CommandButton rakam arttırma

[YILDIZ YAĞMURU]

Merhaba , Aşağıdaki kod , Aktif olan hücreye butona tıkladığınız zaman 12 rakamını yazıyor , AMA ben bunu her butona tıkladığımda artmasını istiyorum yani bir kere tıkladım 12 yazdı ,ikinci tıkladım 24 yazsın üçüncü 36 yazsın yani ilk rakamın katlarını her tıklamada yazsın istiyorum.. yardımcı olurmusunuz ..şimdiden çok teşekkürler . Spinbutton işimi pek görmüyor ..

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ""
On Error Resume Next
If Intersect(ActiveCell, [AE5:AE55]) Is Nothing Then Exit Sub
ActiveCell = "12"
ActiveSheet.Protect ""
End Sub

 

[suleyman242]

Merhaba , Aşağıdaki kod , Aktif olan hücreye butona tıkladığınız zaman 12 rakamını yazıyor , AMA ben bunu her butona tıkladığımda artmasını istiyorum yani bir kere tıkladım 12 yazdı ,ikinci tıkladım 24 yazsın üçüncü 36 yazsın yani ilk rakamın katlarını her tıklamada yazsın istiyorum.. yardımcı olurmusunuz ..şimdiden çok teşekkürler . Spinbutton işimi pek görmüyor ..

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ""
On Error Resume Next
If Intersect(ActiveCell, [AE5:AE55]) Is Nothing Then Exit Sub
ActiveCell = "12"
ActiveSheet.Protect ""
End Sub

aynı kodda

ActiveCell = activecell+12

şeklinde değiştirin.

 

[Ziynettin]

Merhaba,
.......

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ""
On Error Resume Next
If Intersect(ActiveCell, [AE5:AE55]) Is Nothing Then Exit Sub
ActiveCell = ActiveCell + 12
ActiveSheet.Protect ""
End Sub