Snasui Excel Forum

Code: Select all

'Other code
For Each s In Worksheets
    If s.Name <> M.Name Then 'ª×èÍäÁèµÃ§¡Ñ¹
        s.Range("A1:Z1").Copy
        lr = M.Range("C34").End(xlUp).Row + 1
        if lr < 5 then lr = 5
        M.Range("B" & lr).PasteSpecial Paste:=xlPasteValues
    End If
Next s
'Other code

Code: Select all

Sub copy_unit()
    Dim s As Worksheet
    Dim M As Worksheet
    Set M = Sheets("Main")
    Dim lr As Long
For Each s In Worksheets
    If s.Name <> M.Name Then 'ชื่อไม่ตรงกัน
        s.Range("A1:Z1").Copy
        lr = M.Range("C34").End(xlUp).Row + 1
        M.Range("B" & lr).PasteSpecial xlPasteValues
    End If
Next s
    'MsgBox ("Completed")
End Sub

Code: Select all

'Other code
For Each s In Worksheets
    If s.Name <> M.Name Then
        s.Range("A1:Y1").Copy
        lr = M.Range("c" & Rows.Count).End(xlUp).Row + 1
        M.Range("B" & lr).PasteSpecial xlPasteValues
    End If
Next s
'Other code

Code: Select all

Sub copyunit()
    Dim s As Worksheet
    Dim M As Worksheet
    Set M = Sheets("Main")
    Dim lr As Long
    For Each s In Worksheets
        
        s.Range("A1:Y1").Copy
        
        lr = M.Range("B" & Rows.Count).End(xlUp).Row + 1
        M.Range("B5" & lr).PasteSpecial xlPasteValues
    Next s
    'MsgBox ("Completed")
End Sub