hücre içinde arttırarak üstüne toplama

[Ayhan Ercan]

merhaba arkadaşlar.


bir command button yapmak istiyorum. ve hangi hücrenin içine girdiysem, clicklediğimde o içinde bulunduğum hücrede yazılı sayıyı otomatik olarak 20 (C3 hücresine yazdığım) arttırsın.
mesela:

a hücresinde alt alta herhangi sayılar var diyelim ki 50, 100, 55, 70, 80.

a1 geldim. clickledim 50 oldu 70
a2 geldim. clickledim 100 oldu 120
a3 geldim. clickledim 55 oldu 75 ..... devam edecek
umarım anlatabilmişimidir....

 

[omerceri]

Aşağıdaki Kodu Sayfa Modülüne kopyalarsan
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 1 Then
ActiveCell.Value = ActiveCell + [C3]
End If
End Sub

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
ActiveCell = ActiveCell + [C3]
End Sub

 

[Ayhan Ercan]

cok teşekkür ederim ... tam istediğim gibi olmuş..