Çözüldü AKTAR makrosunda hata

[sirkülasyon]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If Range("A4").Value = "" Then
Exit Sub
Else
End If
Sheets("SGK").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A4").Value = "" Then
Range("A4").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(0, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = Range("E14").Value
ActiveCell.Offset(0, 2).Value = Range("F14").Value
ActiveCell.Offset(0, 3).Value = Range("G14").Value
ActiveCell.Offset(0, 4).Value = Range("H14").Value
ActiveCell.Offset(0, 5).Value = Range("I14").Value
ActiveCell.Offset(0, 6).Value = Range("J14").Value
ActiveCell.Offset(0, 7).Value = Range("K14").Value
ActiveCell.Offset(0, 8).Value = Range("L14").Value
ActiveCell.Offset(0, 9).Value = Range("M14").Value
Range("E14").Value = ""
Range("F14").Value = ""
Range("G14").Value = ""
Range("H14").Value = ""
Range("I14").Value = ""
Range("J14").Value = ""
Range("K14").Value = ""
Range("L14").Value = ""
Range("M14").Value = ""

MsgBox ("Bilgiler veri tabanına kayıt edildi.")
Application.ScreenUpdating = True
End Sub

Zarf Açma sayfasındaki E14:M14 arasında yer alan verileri SGK sayfasına A4 (sıra no kısmı) ten itibaren alt atta aktarmak istedim. Ancak makro değişik yerlere aktarıyor. Düzeltilmiş hali için yardımcı olabilir misiniz?

 

[PLİNT]

Mehaba
Aşağıdaki gibi deneyin
(üst bölümde başında tırnak olan satırlar "zarf" sayfası içinse; tırnakları kaldırırsınız)

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet
Dim x As Long, a As Long
Set s1 = Sheets("ZARF")
Set s2 = Sheets("SGK")
'If S1.Range("A4").Value = "" Then
'Exit Sub
'Else
'End If

s2.Select
If s2.Range("A4").Value = "" Then
s2.Range("A4").Value = 1
x = 4
Else
x = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(x, 1).Value = x - 3
End If
For a = 2 To 10
s2.Cells(x, a).Value = s1.Cells(14, a + 3).Value
s1.Cells(14, a + 3).Value = ""
Next
MsgBox ("Bilgiler veri tabanına kayıt edildi.")
End Sub

 

[sirkülasyon]

s1 =kısmı "variable not defined" hatası vermekte.

Bakabilmeniz mümkün mü

 

[PLİNT]

Kod sayfasında "Option Explicit" varsa ondandır, yukarıdaki kodlara tanımlamalar eklendi; o şekliyle deneyin.

 

[sirkülasyon]

Ellerine Sağlık
Teşekkür Ederim