Buton İle Sayfalar Arası Kopyalama

[onurk1]

Merhaba, 2 sayfadan oluşan bir excel dosyam mevcut. İlk sayfada veri girdirip 2. sayfada bu verileri alt alta sıralı şekilde tutmak istiyorum.

Butona tıkladığımda;
Sayfa1 "D2" hücresini kopyalayıp Sayfa 2 "A" sütunundaki en son boş hücreye
Sayfa1 "A4 hücresini kopyalayıp Sayfa 2 "B" sütunundaki en son boş hücreye

atmasını istiyorum.

Özet olarak;
İlk sayfada bir form var ve formdaki ilgili hücrelere girilen verileri, ikinci sayfadaki ilgili sütunlara sırayla atabilir mi?

Forumdaki diğer kopyalama makroları ile sorunu çözemediğim için yardıma ihtiyacım var. Şimdiden teşekkür ederim.

 

[uzmanamele]

Merhaba

Deneyiniz.

Private Sub CommandButton1_Click()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")

ssat = S2.Range("A1048576").End(3).Row

S1.Range("D2").Copy S2.Range("A" & ssat + 1)
S1.Range("A4").Copy S2.Range("B" & ssat + 1)

End Sub

 

[onurk1]

Merhaba, teşekkür ederim, çalışıyor.