Her satırda ayrı buton

[Arbalot]

Merhaba arkadaşlar;

Bir sorunum var ama forumda nasıl aramam gerektiğini bilemedim;

benim her satırda bir butonum var bu butonun bulunduğu satırdaki A hücre içeriğini başka bir kolona kopyalamasını istiyorum. Daha sonra da yazdır komutu vereceğim. Örneğin;

Sheets("Sayfa2").Cells(1, 1).Value = ActiveSheet.Cells(2, 1).Value
Sheets("Sayfa2").PrintOut

Buradaki Sheets("Sayfa2").Cells(1, 1) için ilk 1 değeri her satır için değişken olacak 6 satırdaki yazdır butonuna bastıysam Sheets("Sayfa2").Cells(6, 1) olmasını istiyorum bunu nasıl sağlayabilirim.

 

[numan şamil]

Merhaba arkadaşlar;

Bir sorunum var ama forumda nasıl aramam gerektiğini bilemedim;

benim her satırda bir butonum var bu butonun bulunduğu satırdaki A hücre içeriğini başka bir kolona kopyalamasını istiyorum. Daha sonra da yazdır komutu vereceğim. Örneğin;

Sheets("Sayfa2").Cells(1, 1).Value = ActiveSheet.Cells(2, 1).Value
Sheets("Sayfa2").PrintOut

Buradaki Sheets("Sayfa2").Cells(1, 1) için ilk 1 değeri her satır için değişken olacak 6 satırdaki yazdır butonuna bastıysam Sheets("Sayfa2").Cells(6, 1) olmasını istiyorum bunu nasıl sağlayabilirim.

Merhaba
Hersatırda ayrı buton yerine butona bastığımızda karşımıza çıkan
InputBox'a hücre ismi girirek işlem yapsa daha kullanışlı olamazmı?
ekli dosyayı inceleyiniz
Değilse örnek dosya eklerseniz cevap verenler olacaktır