aktarım

[şiraz1]

ekteki dosyada bi türlü aktarımı yapamadım gerekli kodu yazdım ancak neresinde hata yaptım bulamıyorum lütfen yardımcı olabilrmisiniz

yapmak istediğim kısaca şöyle A01 ve A02 sheetlerindeki verileri özet tabloya aktarmak

yardımlarınız için şimdiden teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub sayfa_aktar()
Dim sh As Worksheet, sat As Long, sat2 As Long
Application.ScreenUpdating = False
Set s1 = Sheets("ÖZET TABLO")
s1.Range("A6:I65536").ClearContents
For Each sh In Worksheets
    If sh.Name <> "ÖZET TABLO" Then
        sat2 = sh.Cells(41, "A").End(xlUp).Row
        sat = s1.Cells(65536, "A").End(xlUp).Row + 1
        sh.Range("A6:I" & sat2).Copy
        s1.Range("a" & sat).PasteSpecial Paste:=xlPasteValues
    End If
Next
s1.Range("A6:ı41").Sort Range("A6")
Application.ScreenUpdating = True
MsgBox "Aktarım tamamlandı" & vbLf & _
"", vbOKOnly + vbInformation, ""
End Sub

 

[şiraz1]

bu kadar kısa sürede böyle hızlı cevap sizi hayranlıkla takip ediyorum süpersiniz çok teşekkürler