Düğme ile verileri başka bir sayfaya aktarma

[sms055]

Merhaba,
Bir sayfadaki verilerin bir kısmını başka bir sayfadaki hücrelere aktarmak istiyorum. Aktarılan sayfadaki hücre dolu ise bir alt hücreye yazsın.
Örneğin; Bilgi Girişi sayfasının B2 hücresindeki verinin, döküm sayfasındaki A2 hücresine, B3 ün B2 ye, B4 ün C2 ye şeklinde aktarılması lazım. Ve aktarılan hücreler dolu ise bir alt hücreye aktarması lazım.

Dosyayı aşağıya ekliyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Selamlar.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
Set s1 = Sheets("Bilgi Giriş")
Set s2 = Sheets("veri")

yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1

s2.Cells(yeni, "A") = s1.[B2]
s2.Cells(yeni, "B") = s1.[B3]
s2.Cells(yeni, "C") = s1.[B4]
s2.Cells(yeni, "D") = s1.[B5]
s2.Cells(yeni, "E") = s1.[B6]
s2.Cells(yeni, "F") = s1.[B7]
s2.Cells(yeni, "G") = s1.[B12]
s2.Cells(yeni, "H") = s1.[B13]
s2.Cells(yeni, "I") = s1.[B14]
s2.Cells(yeni, "J") = s1.[B15]
s2.Cells(yeni, "K") = s1.[B16]
s2.Cells(yeni, "L") = s1.[B17]
s2.Cells(yeni, "M") = s1.[B18]
s2.Cells(yeni, "N") = s1.[B19]
s2.Cells(yeni, "O") = s1.[B20]

End Sub

 

[sms055]

Sayın @yusuf44
Kod, makro çalıştır ile gayet güzel çalıştı.
Koda birde düğme yaptım ve makroyu atadım. Düğmeye her bastığımda hücreleri aktardı.
Size çok teşekkür ederim.
Selamlar.

 

[YUSUF44]

İyi çalışmalar.

 

[elifki]

Sayın @yusuf44
Kod, makro çalıştır ile gayet güzel çalıştı.
Koda birde düğme yaptım ve makroyu atadım. Düğmeye her bastığımda hücreleri aktardı.
Size çok teşekkür ederim.
Selamlar.

Merhaba,
bende yukardakine benzer birşey yapmaya çalışıyorum ekteki excelde birinci sayfada bulunan butonu tıkladığımızda 2. sayfada bulunan bilgiler farklı bir çalışma sayfasına (excele) aktarılsın istiyorum. Yardımcı olabilri misniz

 

[elifki]

ek aşağıdkai gibidir.