Her tıkta veriyi bir alt hücreye atmak.

Katılım
10 Ağustos 2005
Mesajlar
58
Private Sub CommandButton1_Click()
Sheets("Emk Kes").Cells(4, Sheets("Emk Kes").[IV4].End(xlToLeft).Column + 1) = [z14]
End Sub

Merhaba,
Yukarıdaki kodlarla sayfa1 de bulunan commandbuton a tıkladığımda yine sayfa1 Z14 hücresinde bulunan veriyi başka bir sayfa olan "Emk Kes" sayfasına B4 hücresine, sırasıyla her tıklayışımda C4,D4,E4 olarak gönderiyorum.Yani B4 den başlayarak soldan sağa doğru dolu hücrenin sağına veriyi gönderebiliyorum.

Esas sorum ise aynı sayfa1 Z14 deki veriyi her tıklayışımda soldan sağa doğru değil mesela yine B4 den bu sefer aşağı doğru ritmik bir şekilde veriyi nasıl gönderirim. Yani birinci tıklayışımda B4 e, ikinci tıklayışımda B5 e, üçüncü tıklayışımda B6 ya atacak şekilde yukarıdaki kodlarda bulunan IV4 sınırı gibi mesela benim koyduğum B100 satırına kadar.

Yukarıdaki kodlarda sabit olan satır.Benim şu an istediğimde ise sabit olan sütun olacak galiba.Bu işlem için yukarıdaki kodların nesini değiştirebilirim.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi deneyin.

[vb:1:7630e219f3]Private Sub CommandButton1_Click()
Sheets("Emk Kes").Cells(Sheets("Emk Kes").[b65536].End(3).row + 1,"b") = [z14]
End Sub [/vb:1:7630e219f3]
 
Katılım
10 Ağustos 2005
Mesajlar
58
Teşekkür ederim sayın @leventim.Klavyenize sağlık.
Saygılar....
 
Üst