veri aktarımı

[aydgur]

satış sayfasındaki a1=firma - b1=tarih - c1:f.no - d1=ç.vade - e1=cins f1=kg - g1=ytl - h1=usd - ı1=euro - j1=ö.ytl - k1=ö.usd - l1=ö.euro-m1=ytl - n1=usd - o1=euro başlıklarındaki tüm verileri 55.satır dahil olduğu gibi stoklar sayfasına aktarmak istiyorum. Düğmeye nasıl bir makro atamalıyım .Şimdiden teşekkürler.

 

[akcacaki]

"satış sayfasındaki a1=firma - b1=tarih - c1:f.no - d1=ç.vade - e1=cins f1=kg - g1=ytl - h1=usd - ı1=euro - j1=ö.ytl - k1=ö.usd - l1=ö.euro-m1=ytl - n1=usd - o1=euro başlıklarındaki tüm verileri 55.satır dahil olduğu gibi stoklar sayfasına aktarmak istiyorum. Düğmeye nasıl bir makro atamalıyım .Şimdiden teşekkürler."

sheets("satış").select
range("a155").select
selection.copy
sheet("stoklar").select
activesheet.paste

stoklar sayfasında seçili olan yere paste yapar
hep aynı hücreye paste yapmak için
sheet("stoklar").select komutundan sonra
range("?").select komutunu gir, ? yerine istediğin hücreyi yaz

 

[aydgur]

stoklar sayfasına aktarırken ilk boş hücreden itibaren yazarmı , yani eski kopyalananlarda kalırmı ?

 

[akcacaki]

sheets("satış").select
range("a1:O55").select
selection.copy
sheet("stoklar").select
Range("?").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
activesheet.paste

? işareti yerine ilk bakacağı hücreyi yaz