bulunulan satıra göre değer artırma

[GursoyC]

Merhaba,
ekli örnek dosyamda yukarı ok tuşu sabit olarak B2 hücresinin değerini 1 artıracak şekilde kodlandı.

Benim istediğim ise; ben kaçıncı satırda bulunursam, bu oka tıkladığımda B sütununun o satırına ait değeri 1 artırması.

Örneğin 16. satırdayım (mesela K16'dayım) , oka tıkladığımda B16'ya 1 eklemeli.

veya C28'deyim. oka tıkladığımda B28'i 1 artırmalı.

yardımcı olursanız sevinirim.

 

[Orion1]

Buyurun.

Cells(ActiveCell.Row, "B").Value = Cells(ActiveCell.Row, "B").Value + 1

 

[GursoyC]

Çok teşekkür ederim Evren bey,
saygılar.

 

[Orion1]

Çok teşekkür ederim Evren bey,
saygılar.

Rica ederim.
İyi çalışmalar.