Bilgi aktar

[sedat2161]

Hayırlı akşamlar arkadaşlar. Ekli dosyamda buton ile sayfa 1 ie 3 ten sayfa 2 ye alt alta bilgi aktarmak istiyorum. Aktarma yapıyor yalnız sayfa toplamı aldığım için toplamın altından aktarmaya başlıyor. Yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

rows.count yerine tablodaki son satır olan 8 yazmalısınız.
Yalnız 7 satır dolunca artık yeni satıra aktarma yapmaz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("Bilgi Giriş")
Set s2 = Sheets("veri")
Set s3 = Sheets("öğün")
yeni = s2.Cells(8, "C").End(3).Row + 1
s2.Cells(yeni, "C") = s1.[e9]
s2.Cells(yeni, "d") = s3.[d6]
End Sub

 

[sedat2161]

Çok teşekkür ederim hocam emeğinize sağlık