Microsoft Applications

44K

Solutions

38K

Contributors

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Share tech news, updates, or what's on your mind.

Sign up to Post

The attached file contains code that makes combinations from data in "sheet1" B10:AG19  and puts them in sheets "Numbers_X" where "X" is the first number in B10:B19.

When the code is executed again it deletes data in sheets "NumbersX" then writes new data.

The goal here is to edit the code to maximize the number of combinations made.. The current script makes combinations using 32 numbers from "sheet1" (grey / white alternate for easier view). The current code also uses the first number as the only common number as can be seen in sheets "Numbers_X".

The additional numbers have been highlighted light and dark yellow. If it is not possible to max at 69-70 then I'll accept the maximum possible under the circumstances. Please specify the maximum possible numbers used so I can adjust the data accordingly.
CreateMaxCombinationsForSpecificGro.xlsm
0
My organization is currently using SCCM version 1902.

We have some Windows 7 machines and Windows 10 initial install machines that both need to be upgraded to the latest version of Windows 10 using SCCM.

All of these computers are joined to the Active Directory domain and have the SCCM client installed.

SCCM is currently configured to load the latest Windows 10 operating system to computers and virtual machines using PXE boot. Now we need to upgrade these existing Windows operating systems to Windows 10.

What are the steps to upgrading these existing operating systems to the most current version of Windows 10?

SCCM Operating Systems
0
Hello All,

I tried to create an ASP.NET MVC CORE web project using Visual Studio 2019 Community. But when I am right-clicking on Model Folder >> Add A New Item>>
I am seeing “ADO.NET Entity Data Model” under [Data] tab. Can someone explain what I need to do so that I can see “ADO.NET Entity Data Model” under [Data]  ?

Thank you
ADO-NET-Entity-Data-Model.docx
0
I would like to extract the location,city,country etc.from the attach file in vba.
text.txt
0
I have installed the visual studio 2019 community but after some days it showing that my license has expired and I cant use it. Weird because it’s a community edition so shouldn’t it be free? I have done a ton of things – restarted my pc, reinstalled but still the same issue. Can someone guide here…what’s going on?
Thanks
VS-weird-issue.png
0
My company is migrating from SharePoint 2010 and many of our users have extensive "My Links".  Since the "My Links" functionality is not in SharePoint Online, how do we provide this?  

Is there a third party web part?
Is there a way to do this with custom code/extensions/pages, etc?  

I know that in SharePoint 2010 I can go to "http://siteurl/_layouts/MyQuickLinks.aspx" to see my lists, but no easy way to download all of the data and especially for all the users.  

Ideally we find a way to export each user's links and provide them in a similar link in SharePoint Online.  
At a minimum, need to capture everyone's links and make them available in some format in SharePoint Online once we turn off SharePoint 2010.  

Any ideas/Suggestions?
0
I have a SQL server 2014 which backs up database called “YJJ” to a folder. Within that folder I several files. Please see attached excel file for that info. Now just looking at the excel, the full back up [.bak] happens at 2AM daily, followed by [.trn] backups every 30 mins.
So if I want to RESTORE the database to 1/6/2020 with both .bak and .trn…how will I do it?
Also, there is also a [YJJ_Log_bk.bak] which I am not sure what to do?

When doing the backup – I go
Right Click >> Restore Database
Device >> Add >> Select multiple files, starting from .bak at 2AM to all the .TRN files after that time stamps?

Is my approach correct? Or did I missed a step ?

Thanks a lot
backups.xlsx
BU.png
0
Hello experts,

I am not fully satisfied with windows built in search feature.
I am looking for a light, streamline and user friendly alternative to windows search feature.
Some key requirements:
-Have an history follow-up of search performed
-Large filter options such as extension, location, type, date ranges, file content (if possible)
-Portable version
...
Thank you in advance for your help.
1
Happy Holidays All!

I'm looking for some advice on best practices for modern application architecture.

Background:
We have a custom ERP software that was written (and still being used) in about twenty Access 2003 databases.  Each module covers some functionality of the business with minor linking in between.  

The good news is we're finally ready to start building new applications, and, going to be replacing these legacy modules as time allows.  In addition the database schema is somewhat of a mess that I also intend on cleaning up eventually.


Current setup:
These VMs are running on VMware with HA configured (2 physical hosts, properly provisioned)
  SQL server VM
  a RDP / File Server / Application server VM
  2 AD servers (one per host, non-HA)

My partner has recommended going with a 3 tier architecture to allow for flexibility and uniformity, with specifically a WCF middle-tier to allow for binary communication in-house and an http endpoint for any extranet needs.  That would go on the application server.  

Desktop apps would then be deployed to each user computer as necessary.  (We have a current update batch file which users are used to running to pull down new code bases, all applications run locally).  The applications would then pull from the WCF middle tier and access the data that way.  

Is 3 tier still the best approach?  Also in terms of the desktop apps would you recommend UWP or Windows Forms?  Is EF still the preferred ORM?

0
We need some template or forms for Sharepoint pages and I want to ask Is it possible to do in Sharepoint Online:
Page with form "Holiday request". Employees fulfil this request with some date range - from when to when they will be absent. After submitting a request it is being sent to the right person who can approve or decline. When this person approves it, the correct date range will appear in a group calendar.
Unfortunately, most of the tutorials and guides refer to the previous versions of Sharepoint, not to Sharepoint Online with modern sites.
0
Experts,

I have a group of values on a spreadsheet "Sheet 3"  Column A  Rows 2 =15 that I have assigned to a name field called 'East'.  Is there a way to check column "A" on Sheet 1 equal to one of the values in my named field and assign "EAST" to column "B' on the respective row.

Microsoft Excel 2016
Named_Feild.xlsx
0
As you can see from my screen shot, I’m using the following sub routine to link various worksheets from ExcelFile.xlsx into my database. As shown below, I’ve linked only four worksheets. However, my actually worksheet has many more tabs that I need to link. Also, the tab names are not constant. In other words, I could have three worksheets named like: 1111, 2222, 3333. Then at a later time for the exact same file, I could have four worksheets with multiple other names like: AAAA, BBBB, CCCC, DDDD.

Right now, it’s a manual process for me to update this code each time a sheet name changes or is removed. I’d like to modify this code to be more dynamic by accomplishing the following:

1.      First delete all database table objects that have a string of 4 characters in their name (e.g. 1111, 2233, AABC)
2.      Link all worksheet tabs that have a string of 4 characters in their name from ExelFile.xlsx

I'm using MS office 2016. Any Expert suggestion on this is greatly appreciated! =)

Private Sub LinkSpreadSheets()

Dim Fpath As String, _
  XLname1 As String, _
  tb1 As String, _
  tb2 As String, _
  tb3 As String, _
  tb4 As String

Fpath = Environ("USERPROFILE") & "\Documents\databases"

XLname1 = "\ExcelFile.xlsx"
                   
tb1 = "1001"
tb2 = "2001"
tb3 = "3001"
tb4 = "F008"

With DoCmd

    .DeleteObject acTable, "1001"
    .DeleteObject acTable, "2001"
    .DeleteObject acTable, "3001"
    .DeleteObject acTable, "F008"

    .TransferSpreadsheet acLink, , tb1,

Open in new window

0
Hell All,

i have a feture to be able to send an Email from Acc 2919
Customers want to be able to select an Account first (from which Account to send).

Is there a way to get the Account Names from Outlook?
thanks
0
I have a Windows desktop application that I need to be used by several people from different locations around the country.
Please advise what I can do about it.
Thanks

Luis R
Mexico
0
On click I am copying and pasting data to different pages.  On one particular page ("OrdPrep") I am capturing the OrderNumber and the Order Description. No problem.

But on the OrderPrep page, I want to paste across columns. for example:
               On first Click                            On Second Click                   On Third Click
           Col1                    Col2                 Col3                 Col4                   Col5                 Col6      
       
1.         OrdNum          Order              OrdNum         Order               OrdNum           Order
2.         MJB0001            Stuff             MJB0002        Something        MJB0003           Nothing
3.                                    Stuff1                                                                                           NADA
4.                                    Stuff2                                                                                            Nope
The data comes from sheet1 and is selected by user.. I have tried several different methods but cant get what I want..
I tried to format this message by looking at the preview. If this does not make sense, let me know and I will forward worksheets.
Thank You,
Norm
OSsendE-X.xlsm
0
Trouble adding comma to bar graph data using Windows Chart Class

I am using the library:
System.Windows.Forms.DataVisualization.Charting

and found I could format (with comma) for values > 1,000

with this line of code:
ca.AxisY.LabelStyle.Format = ("##,#");

But, I can't figure out how to get the data to display also with the comma.

Best I get is the following:
Missing Comma on Data
Here is the Microsoft reference document:
https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.datavisualization.charting.chart?view=netframework-4.0
0
Hello, so I have this Excel table (facsimile):

Initial table
I've been asked to make it so that the table can be printed using the second column as a way to split it into more tables. So, the data should be grouped depending on the second column value.

So this table should be printed on 3 pages, and we'd get these 3 tables, one on each page:

3 tables, grouped by the value in the second column
Does Excel have some quick way to do this which I don't know of? Do you have any suggestions?

Thanks.
0
Hello experts,
I have the following procedure:
Sub Add_Values_Multiple_Columns()
    Dim wsActive    As Worksheet
    Dim wsOutput    As Worksheet
    Dim strCol      As Variant
    Dim strColList  As String
    Dim lngLastRow  As Long
    Dim lngLastCol  As Long
    Dim shName      As String
    
    Application.ScreenUpdating = False
    
    Set wsActive = ActiveSheet
    
    strColList = InputBox("Please report column letter(s) following by ; in which you want to apply procedure," _
                          & ": A for single column A;C;D for multiple columns", "Choose Column Letter(s)")
    If strColList = vbNullString Then
        MsgBox ("No input!")
        Exit Sub
    End If
    
    For Each strCol In Split(strColList, ";")
        If Not ValidCellReference(strCol) Then
            MsgBox strCol & " is not a valid column letter.", vbExclamation
            Exit Sub
        End If
    Next strCol
    
    Set wsOutput = Worksheets.Add(after:=Worksheets(Worksheets.Count))
        
    For Each strCol In Split(strColList, ";")
        lngLastRow = Range(strCol & Rows.Count).End(xlUp).Row
        If wsOutput.Range("A1") = "" Then
            lngLastCol = 1
        Else
            lngLastCol = wsOutput.Cells(1, Columns.Count).End(xlToLeft).Column + 1
        End If
        lngLastRow = wsActive.Range(strCol & Rows.Count).End(xlUp).Row
        wsActive.Range(strCol & "1:" & strCol & lngLastRow).Copy wsOutput.Cells(1, lngLastCol)
    Next
    
    shName = 

Open in new window

0
i am trying to save publisher file , when i save it says disk you trying to save is write protected

i am not having any issues with any other word or excel 365
0
Hi Experts,
I have a sheet that has a list of names down one side, and a list of places across the top.
Some intersecting cells are filled red. I want to type a name into a cell and the list of places (column headers) will show up.
Please see example.
All cells have formulas or arrays already, including the red ones. This sheet is pulling data from another sheet to determine which cells will turn red if a condition is already met.

Thanks experts
Chris
Book2.xlsx
0
Hello experts,
I have the following procedure which allows me to copy reported column from one sheet to another:
Sub Add_Values_Multiple_Columns()
    Dim wsActive    As Worksheet
    Dim wsOutput    As Worksheet
    Dim strCol      As Variant
    Dim strColList  As String
    Dim lngLastRow  As Long
    Dim lngLastCol  As Long
    Dim shName      As String
    
    Application.ScreenUpdating = False
    
    Set wsActive = ActiveSheet
    
    strColList = InputBox("Please report column letter(s) following by ; in which you want to apply procedure," _
                          & ": A for single column A;C;D for multiple columns", "Choose Column Letter(s)")
    If strColList = vbNullString Then
        MsgBox ("No input!")
        Exit Sub
    End If
    
    For Each strCol In Split(strColList, ";")
        If Not ValidCellReference(strCol) Then
            MsgBox strCol & " is not a valid column letter.", vbExclamation
            Exit Sub
        End If
    Next strCol
    
    Set wsOutput = Worksheets.Add(after:=Worksheets(Worksheets.Count))
        
    For Each strCol In Split(strColList, ";")
        lngLastRow = Range(strCol & Rows.Count).End(xlUp).Row
        If wsOutput.Range("A1") = "" Then
            lngLastCol = 1
        Else
            lngLastCol = wsOutput.Cells(1, Columns.Count).End(xlToLeft).Column + 1
        End If
        lngLastRow = wsActive.Range(strCol & Rows.Count).End(xlUp).Row
        wsActive.Range(strCol & "1:" & strCol & 

Open in new window

0
Hello Experts,
I have the following procedure which allows me to loop on multiple columns and add default values.
Sub Add_Values_Multiple_Columns()

    Dim strCol As Variant
    Dim strColList As String
    Dim lngLastRow As Long, lngRow As Long
    Dim strToReplaceWith As String
    
    
    strToReplaceWith = InputBox("Please input the Value which should replace the values of the Reported Columns.")
    
    If strToReplaceWith = "" Then
        MsgBox "You didn't input any value.", vbExclamation
        Exit Sub
    End If
    

    strColList = InputBox("Please report column letter(s) following by ; in which you want to apply procedure," _
                          & ": A for single column A;C;D for multiple columns", "Choose Column Letter(s)")
    If strColList = vbNullString Then
        MsgBox ("No input!")
        Exit Sub
    End If
    
    For Each strCol In Split(strColList, ";")
        If Not ValidCellReference(strCol) Then
            MsgBox strCol & " is not a valid column letter.", vbExclamation
            Exit Sub
        Else
            lngRow = Range(strCol & Rows.Count).End(xlUp).Row
            If lngRow > lngLastRow Then lngLastRow = lngRow
        End If
    Next strCol
    
    For Each strCol In Split(strColList, ";")
        If lngLastRow > 1 Then Range(strCol & "2:" & strCol & lngLastRow).Value = strToReplaceWith
    Next

    Exit Sub

Error_Routine:
    MsgBox Err.Description, vbExclamation, "Something went wrong!"
    
End Sub

Open in new window


I would like to take as a reference the loop on multiple columns part in order to cover the following requirement:
1.      Display inputbox: "Report columns that you want to copy at Output sheet: example: C;E;D
2.      Generate Ouput sheet with the the following name: Output & format(now,"yyyymmddmmss")
3.      Copy the columns reported in first inputbox in Output sheet.
I attached dummy file with Activesheet and Output sheet.
If you have questions, please contact me.
Dummy-file-copy-multiple-columns.xlsx
0
Microsoft Teams
Dashboards
Graph widget

We are using Microsoft Teams to track opportunities.  We have a field for Probability and a field for Estimated Budget.  I need to create a query (and chart) that calculates Probability * Estimated Budget but I cannot find a multiplication function in queries.

Thanks
0
hi i want to copy all worksheets data into single master sheet excluding 1st worksheet
i am using the following vba code
Sub ConsolidateData()
    Dim wrk As Workbook 'Workbook object - Always good to work with object variables
    Dim sht As Worksheet 'Object for handling worksheets in loop
    Dim trg As Worksheet 'Master Worksheet
    Dim rng As Range 'Range object
    Dim colCount As Integer 'Column count in tables in the worksheets
     
    Set wrk = ActiveWorkbook 'Working in active workbook
     
    For Each sht In wrk.Worksheets
        If sht.Name = "MasterSheet" Then
            MsgBox "There is a worksheet called as 'Master'." & vbCrLf & _
            "Please remove or rename this worksheet since 'Master' would be" & _
            "the name of the result worksheet of this process.", vbOKOnly + vbExclamation, "Error"
            Exit Sub
        End If
    Next sht
     
     'We don't want screen updating
    Application.ScreenUpdating = False
     
     'Add new worksheet as the last worksheet
    Set trg = wrk.Worksheets.Add(After:=wrk.Worksheets(wrk.Worksheets.Count))
     'Rename the new worksheet
    trg.Name = "Mastersheet2"
     'Get column headers from the first worksheet
     'Column count first
    Set sht = wrk.Worksheets(2)
    colCount = sht.Cells(1, 255).End(xlToLeft).Column
     'Now retrieve headers, no copy&paste needed
    With trg.Cells(1, 1).Resize(1, colCount)
        .Value = sht.Cells(1, 1).Resize(1, …
0
I have an excel table with massive data (about 60000 rows) where i need to update countif and sumif formulas which i have recorded thru a macro. its working but taking around 15-30 minutes to get updated any solution / advice will be of great help
us-500.xlsm
1

Microsoft Applications

44K

Solutions

38K

Contributors

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.