Hücreye Girilen Verinin Farklı Sayfaya Kaydedilmesi

[iplikci_80]

EK'te ki çalışmada yapmak istediğim şey DATA sayfası Z2 hücresine yazdığım sicil numarasının ÇIKIŞ sayfası A5 hücresinden itibaren aşağı doğru kaydedilerek gitmesini ( Örneğin DATA sayfası Z2 hücresine 1 yazdım, 1 ÇIKIŞ sayfası A5 hücresine kaydedilecek daha sonra DATA sayfası Z2 hücresine 2 yazdım 2 ÇIKIŞ sayfası A6 hücresine kaydedilirek.............. gidecek.) sağlamak hususunda yardımlarınızı rica ediyorum.

 

[relaxim]

Merhaba,

Boş bir modüle ekleyip bir butona atabilirsiniz.

Private Sub aktar()

Dim s1 As Worksheet: Set s1 = Sheets("DATA")
Dim s2 As Worksheet: Set s2 = Sheets("ÇIKIŞ")
Dim Son As Integer
Son = 5
If s1.Range("Z2") <> "" Then

Son = s2.Cells(Rows.Count, 1).End(3).Row + 1
s2.Cells(Son, 1).Value = s1.Range("Z2").Value

End If

MsgBox "Aktarma işlemi tamamlanmıştır."

End Sub

 

[iplikci_80]

Çok teşekkür ederim.