veri aktarımı

[cenkatli]

arkadaslar herkese merhaba. forum a yeni uye oldum ve sayenizde buranın baya cok faydaları olacagı ınancındyım.
Yapmak istediğim sey:

Sheet1 deki alt alta 10 verinin herbirinin yanına bir buttom eklemek ve buttom a basıldıgında o satırdaki bilgiyi sheet 2 de alt alta yazması. ben buttonla satırı kopyalayıp sheet 2 ye yapıstırabiliyorum ama yaptıgım sadece sheet 2 de verilen adrese bunu gondermekç yanı atıyorum ben A3 teki buttom a tıkladıgımda onu sheet 2 nin A1 ine gitmesini ve ben eger A5 tekine tıkladıgımda da onun A2 ye gitmesinin ve her tıklamamda sheet 2 de bunu yukarıdan asagı dogru yapmasını beceremiyorum.
yardım ve onerilerinizi bekliyorum

 

[Ferhat Pazarçevirdi]

Öncelikle sheet2'deki son dolu satırı bulmalısınız.

Bunun için Sheets("Sheet2").Cells(65536,1).end(xlup).row komutunu kullabilirsiniz. Bunu da örneğin sonsatir diye bir değişkene atayın.

sonsatir=Sheets("Sheet2").Cells(65536,1).end(xlup).row

Madem kopyalamaya kadar geliyorsunuz, yapıştırma için de şunu kullanın.

'yapıştıracağınız hücreye konumlanmak için;
Sheets("Sheet2).cells(sonsatir+1,1).select

'yapıştırmak için
activesheet.paste

'tekrar Sheet1'e dönmek için
sheets("Sheet1").cells(1,1).select

Tabi görüntü kaymalarını görmemek için

kodunuzun başına application.screenupdating=false ve true'yu kullanın

iyi çalışmalar

 

[cenkatli]

Tesekkür ederim.