What VBA do I need that will look at two strings and show a message box stating which is larger?

Example:
1) String1 = "1-668!a"       String2 = "1-668!b"
2) String1 = "288$4$22"  String2 = "287$4$22"
3) String1 = "100(4)(57)" String2 = "100(4)(577)"

1) String 2 is larger
2) String 1 is larger
3) String 2 is larger

By larger I mean which will be listed last if sorted in  ascending order.

I had this question after viewing Office 365 Hybrid Exchange - Mailbox provisioning.

The link in this solution has expired.

I would like to:
Local AD:  Create user and sync to Office 365 cloud.
Office 365: Apply appropriate license that includes Exchange email.

Problem and possible reasons: Account created but Exchange mailbox not provisioning.  This used to be an old SBS server (upgraded to Win2K12 now).  I think it still has old Exchange attributes,  How do you rectify this?

I need to be able to pull everything between the second and third dash in a list of items.

0-AP-LP-6001-CB-MB  >  result = LP
0-AP-MCC-6000           >  result = MCC
0-AP-XFMR-6007         >  result = XFMR
0-FA-5001A-B-6           >  result = 5001A

We have a client who is using Sharepoint instead of Network drives.

They have a shared spreadsheet which is an xlsx that they all have write access to so have the correct permissions for Co-Authoring. This sheet is used multiple times a day with multiple people editing.

The users are getting an 'unable to save due to others being in spreadsheet' bar appear nearly everytime they are in it. They then have to close the spreadsheet & reenter any data that was input.

I have already resaved the spreadsheet to xlsx to give them co-authoring. Am I missing something else that would be causing this issue?

In Office 365, where can I go to find out what files are shared with users external to my company from either sharepoint sites or from users one drive.

Hello experts,

I have the following procedures which allows me to add specific strings in first & last position of a column values.

Sub Add_Specific_Char_First_Position()
Dim rng As Range
Dim strSpecificChar As String
Dim strCol As String
Dim lngLastRow As Long
Dim lngRow As Long

    strCol = InputBox("Please enter the column letter in which you add specific string:", "Choose Column Letter")

    lngLastRow = Range(strCol & Rows.Count).End(xlUp).Row

    Set rng = Application.InputBox("Please select the cell in which you want to add the specific character:", "Select cell", Type:=8)

    If Not rng Is Nothing Then
    
        strSpecificChar = rng
        
        For lngRow = 1 To lngLastRow
            Cells(lngRow, strCol).Value =  strSpecificChar & Cells(lngRow, strCol).Value
        Next

    End If
    
End Sub

Select all Open in new window

Sub Add_Specific_Char_Last_Position()
Dim rng As Range
Dim strSpecificChar As String
Dim strCol As String
Dim lngLastRow As Long
Dim lngRow As Long

    strCol = InputBox("Please enter the column letter in which you add specific string:", "Choose Column Letter")

    lngLastRow = Range(strCol & Rows.Count).End(xlUp).Row

    Set rng = Application.InputBox("Please select the cell in which you want to add the specific character:", "Select cell", Type:=8)

    If Not rng Is Nothing Then
    
        strSpecificChar = rng
        
        For lngRow = 1 To lngLastRow
            Cells(lngRow, strCol).Value = Cells(lngRow, strCol).Value & strSpecificChar
        Next

    End If
    
End Sub

Select all Open in new window

I would like to merge those procedures in one procedure by adding input boxs and if conditions.
1-Inputbox ("Please report column letter in which you want to apply procedure")
2-Inputbox (“Please report value related to the action that you want to perform: 1 for adding string at the beginning else at the end”)
3-Inputbox(“Please select the cell in which is reported value that you want to add”)
Thank you in advance for your help.

Received this after reopening Excel file for another label printing attempt after minor address change to1 record in Excel file

Error! MergeField was not found in header record of data source.

What does in mean? How do I fix this? Data in 2016 Excel for Mac; Label Merge form in 2016 Word for Mac

Hello Experts,

I have a legitimate product key for Microsoft Visio. Can someone let me know where I can find the link to download Microsoft Visio 2016?

Thanks

Carlton

How do I get data from a closed excel file into an outlook VBA collection?

The size of Sheet1 is N-row by M-column and data is sparsely populated.

N is not fixed (changing as rows are added to or deleted from the end of the Sheet1).

I would like to read data (including empty cells) from the entire N x M range.

The total number of collections is M and this number is fixed.

Kindly provide VBA code if possible.

Thank you.
Thomas

How can I change the below code into a function so that I can just plug in the following information?

Variables to substitute in code
ActiveSheet = Sheet name
PivotTable = Pivot table name
Value = Field name
Columns = Field name
Rows = Field name
Filter = Field name

Sub Rebuild_PivotTable()

    ActiveSheet.PivotTables("PivotTable3").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Open Raw Data", _
        Version:=6)
        
    'Clear all pivot table fields
    ActiveSheet.PivotTables("PivotTable3").ClearTable
    
    'Add to values field
    ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
        "PivotTable3").PivotFields("Incident ID"), "Count of Incident ID", xlCount
    
    'Add to Columns field
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Status")
        .Orientation = xlColumnField
        .Position = 1
    End With
    
    'Add to Rows field
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Site")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    'Add to Filters field
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("On Report")
        .Orientation = xlPageField
        .Position = 1
    End With
    'Apply filter
    ActiveSheet.PivotTables("PivotTable3").PivotFields("On Report").CurrentPage = _
        "TRUE"
End Sub

Select all Open in new window