Soru Başka sayfanın altına aktarma sorunu

[NADİR YILDIZ]

Private Sub CommandButton4_Click()
Dim s1 As Worksheet, S2 As Worksheet, Son As Long, Satir As Long

Set s1 = Sheets("ZİRVE FT MÜKERRER KONTROL")
Set S2 = Sheets("MÜKELLEF")

Son = S2.Cells(S2.Rows.Count, "T").End(3).Row

Satir = s1.Cells(s1.Rows.Count, "A").End(3).Row + 2

s1.Range("U" & Satir & ":AH" & Satir).Resize(Son - 3).Value = S2.Range("A7:O2000" & Son).Value

Set s1 = Nothing
Set S2 = Nothing

MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub


arkadaşlar merhaba yukarıda kod ile "MÜKELLEF" sayfasındaki bilgileri "ZİRVE FT MÜKERRER KONTROL" sayfasındaki dolu alanın altına aktarım yapıyorum
ancak 99 satırdan fazlasını aktaramıyorum sorun nerede acaba

 

[Ziynettin]

Bu şekilde deneyin.

Private Sub CommandButton4_Click()
    Dim s1 As Worksheet, S2 As Worksheet, Son As Long, Satir As Long
    Dim Tbl()
    Set s1 = Sheets("ZİRVE FT MÜKERRER KONTROL")
    Set S2 = Sheets("MÜKELLEF")
    Son = S2.Cells(S2.Rows.Count, "T").End(3).Row
     If Son < 7 Then Exit Sub
    Tbl = S2.Range("A7:O" & Son).Value
    Satir = s1.Cells(s1.Rows.Count, "A").End(3).Row + 2
    s1.Range("U" & Satir).Resize(UBound(Tbl), UBound(Tbl, 2)) = a
    Set s1 = Nothing
    Set S2 = Nothing
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[NADİR YILDIZ]

Ziynettin bey teşekkürler

böyle hata mesajı veriyor

 

[ÖmerFaruk]

s1.Range("U" & Satir).Resize(UBound(a), UBound(a, 2)) = a

s1.Range("U" & Satir).Resize(UBound(Tbl,1), UBound(Tbl, 2)) = Tbl

şeklinde denermisin.

 

[NADİR YILDIZ]

Teşekkürle ömer faruk bey

iyi çalışmalar

 

[Ziynettin]

Kod da gerekli düzenleme yapıldı.

 

[NADİR YILDIZ]

Teşekkürler ziynettin bey

iyi çalışmalar