(10/11/2020, 21:44)berduş yazdı: internetten bakıp kırdım da sorunu çözemedim
anlamadığım yığınla Excel kodu var yani aslında tam sizlik
isterseniz şifresiz dosyayı yükleyeyim

Sub AKTAR()



    Dim son As Long

    Dim syfKayitlar As Worksheet

    Set syfKayitlar = ThisWorkbook.Sheets("KAYITLAR")

    son = syfKayitlar.Range("A" & Rows.Count).End(3).Row

    If son = 2 Then

        MsgBox "Aktarilacak veri yok...", vbCritical, "Hata"

        Exit Sub

    End If

    syfKayitlar.Range("A3:AK" & son).Copy

    Sheets("GENEL").Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

    MsgBox "Aktarma tamamlandi...", vbInformation, "Aktarma"

    Set syfKayitlar = Nothing

End Sub