kopyalama işlemine ikinci satırdan başlama

[Astalavista58]

Sub deneme()

Dim ws As Worksheet
Dim i As Long
Dim j As Long

Set ws = ThisWorkbook.Sheets("Mahmut")

For i = 2 To Workbooks.Count
        Workbooks(i).Activate
        For j = 1 To ActiveWorkbook.Worksheets.Count
        ActiveWorkbook.Sheets(j).Activate
        lr = ws.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
        ActiveSheet.UsedRange.Copy ws.Range("A" & lr)
    Next j
Next i

End Sub

Merhabalar herkese kolay gelsin, yukarıdaki gibi bir formülüm var. Aktif tüm excel kitap ve sayfalarını gezerek tüm verileri kopyalayıp "Mahmut" ismindeki excele alt alta yapıştırıyor. Benim yapmak istediğim kopyalama işlemine 2. satırdan başlaması. Nasıl bi revize yapmak gerekiyor.

 

[Muzaffer Ali]

Merhaba.

Sub deneme()

Dim ws As Worksheet
Dim i As Long
Dim j As Long

Set ws = ThisWorkbook.Sheets("Mahmut")

For i = 2 To Workbooks.Count
        Workbooks(i).Activate
        For j = 1 To ActiveWorkbook.Worksheets.Count
        ActiveWorkbook.Sheets(j).Activate
        lr = ws.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
        if lr=1 then lr=2
        ActiveSheet.UsedRange.Copy ws.Range("A" & lr)
    Next j
Next i

End Sub

 

[Astalavista58]

Muzaffer Bey hayırlı akşamlar, formülü denedim ama istediğim gibi çalışmadı. Benim istediğim kopyalama yapacağı sayfaların birinci satırını atlayarak verileri ikinci satırdan başlayarak kopyalasın

 

[Astalavista58]

Konu hakkında yardımcı olabilir misiniz