Kopyalama

[ThEeNCi]

Selamlar aşağıdaki macro ile kopyalama yapıyorum fakat kayıt sayfasında dolu satır varsa alta yazmasını yapmıyor nasıl yapabilirim teşekkürler


Private Sub Image4_Click()
Dim Satır As Long

Application.ScreenUpdating = False
Sheets("Dilekçe").Range("H16").Copy
Sheets("Kayıt").Range("B1048576").End(3).Offset(1).Row
Sheets("Kayıt").Range("b1048576").PasteSpecial Paste:=xlPasteAll
Sheets("Kayıt").Range("b1048576").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Application.CutCopyMode = False
Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation

End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.

Private Sub Image4_Click()
Dim Satır As Long
Application.ScreenUpdating = False
Sheets("Dilekçe").Range("H16").Copy
a = Sheets("Kayıt").Range("B1048576").End(3).Row + 1
Sheets("Kayıt").Range("b" & a).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ThEeNCi]

Variable not defined hatası verdi

 

[PLİNT]

Variable not defined hatası verdi

Kod sayfası başında
"Option Explicit" varsa silin veya

Private Sub Image4_Click()
Dim Satır As Long
[COLOR="Red"]Dim a as long[/COLOR]

'....diğer kodlar

Kırmızı tanımlamayı ekleyin

 

[ThEeNCi]

Çok Teşekkürler