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 & 

Select all Open in new window

…

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, …

Hello experts,
I am looking for a procedure to check extra spaces in used range.
The idea is to:
Loop used range as of row 2 on activesheet and highlight values that have extra space at the end in red and in yellow at the beginning.
I can not provide dummy file as I am reporting the question from my cell.
If necessary I will do it later.
Thank you for your help.

Hello experts,

I have the procedure reported at: https://www.experts-exchange.com/questions/29155959/Excel-VBA-Add-specific-value-on-multiple-columns.html

Sub Add_Specific_String_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
        End If
    Next strCol
    
    For Each strCol In Split(strColList, ";")
        lngLastRow = Range(strCol & Rows.Count).End(xlUp).Row
        Range(strCol & "2:" & strCol & lngLastRow).Value = strToReplaceWith
    Next
End Sub

Function 

Select all Open in new window

…

Hello experts,
I have the following procedure which allow me to add string on multiple columns at the beginning or at the end.
I would like to add the following requirement:
Instead of adding a single string I would like to add a numeric listing (1,2,3 till the last used range)
Example: I have:
Range A2: toto
Range A3: titi
I launch the procedure in column A with flag at the end I expect to have:
Range A2: toto1
Range A3: titi2
Note: procedure should be able to add listing on multiple columns with beginning and ending flags.
If you have questions, please contact me.
Thank you.

Sub Add_Specific_String_Multiple_Columns()

    Dim sRng As String
    Dim temp_rng As String
    Dim strSpecificChar As Variant    'New declaration in order to add numeric and non numeric values
    Dim strCol As Variant
    Dim strColList As String
    Dim lngLastRow As Long, lngRow As Long
    Dim intWhich As Integer
    Dim intWhich_temp As String

    intWhich = 0
    intWhich_temp = InputBox("Please report value related to the action that you want to perform: 1 for adding string at the beginning 2 at the end")

    If intWhich_temp = vbNullString Then
        MsgBox ("No input!")
        Exit Sub
    End If

    If IsNumeric(intWhich_temp) Then intWhich = intWhich_temp

    Select Case intWhich
    Case 1, 2
    Case Else
        MsgBox "Please enter '1' or '2'"
        Exit Sub
    End Select

    strColList = InputBox("Please report column letter(s) following by ; in which 

Select all Open in new window

…

Hello experts,

I have the following procedure which allows me to add string on files:

EE  question: https://www.experts-exchange.com/questions/29155167/Excel-VBA-add-string-on-files.html

Sub Add_String_On_Files()
' Local variables
    Dim BaseFolder As String, NextFile As String, FileExt As String
    Dim I As Integer
    Dim StrToAdd As String
    Dim MsgTxt As String
    
    MsgTxt = "Before running this procedure, make sure to report following information in range A1:"
    MsgTxt = MsgTxt & vbNewLine & " 1-Path directory in which you want are located files to rename"

    Ans = MsgBox(MsgTxt & vbNewLine & vbNewLine & _
                "Do you want to continue?", vbQuestion + vbYesNo, "Confirm Please!")
    If Ans = vbNo Then Exit Sub
    
    On Error GoTo Error_Routine
    ' Stop if no base folder provided
    If ActiveSheet.Range("A1").Value = "" Then
        MsgBox "A1 doesn't contain a directory string.", vbExclamation
        Exit Sub
    End If

    ' Stop if base folder provided does not exist
    BaseFolder = ActiveSheet.Range("A1").Value
    If Right(BaseFolder, 1) <> Application.PathSeparator Then BaseFolder = BaseFolder & Application.PathSeparator

    If Len(Dir(BaseFolder, vbDirectory)) = 0 Then
        MsgBox "Directory in A1 does not exist.", vbExclamation
        Exit Sub
    End If

    ' Get current date time
        
    StrToAdd = InputBox("Enter the string that you want to add at the end of your files.")
    
    If StrToAdd

Select all Open in new window

…

Hello experts,
I need to copy active sheet rename it by adding "-v2" at the end.
Could you please advice and provide a smart and simple way to.
-If new sheet (Active sheet &  -v2)
exists delete it
-Copy active sheet
-Rename it by adding v2
-Set new sheet as variable as I need to continue with a with loop
If you have questions, please call contact me. Thank you for your help.

Need this Word Booklet to print properly (Mac to HP Laser)

I have attached a booklet sample I created so I could find help to make it print like a booklet.

I use Word 16.27 (2019) ON A MAC

I feel like I am missing this "Multiple Pages"


I do not see that option aywhere.

Can you make this print like a booklet?

If you make a small change to do this, please send me back the working version and tell me what you changed.

Also, how do I make Word print the one side and request my confirmation that I flipped the pages over?

Thanks!

Hi,

I am beginner in Python...can you please recommend a few list of websites that teaches python basics/fundamentals for the layman in the best easy digestible format, quick to pick up?

thanks

Hello and Good Afternoon Everyone,

       I am wondering if I can install a Windows-based collection of games, Hoyle Card Puzzle & Board Games, onto an Acer Chromebook running Chrome OS.  If so, can someone outline the necessary steps for accomplishing this goal?  

       Thank you

       George