Excel çalışma sayfasında hücre tıklanma sayısı

[Cihan SK]

Merhaba Arkadaşlar,

İnternet ve forum üzerinden aramalarım sonuçsuz kaldı. Öğrenmeye çalıştığım konu çalışma sayfasında B sütununda bir hücreye tıklandığında karşı hizasındaki G sütununda kaç kere tıklandığının görünmesi şöyle ki,

B sütununda karışık tıklama yapan bir sayacım var. Örn: B29 5 kere tıklandığında G sütununda 5 olarak görünmeli ve bunu B sütunundaki bütün hücrelere yapmalı, ayrıca çalışma sayfası kapatıldığında değerler sıfırlanmalı bunun gibi bir şey yapmak istiyordum. Ancak revize edebileceğim bir veri bulamadım.

Yardımcı olan arkadaşlara şimdiden çok teşekkür ederim...

 

[antonio]

Sayaç oluşturmak istediğiniz sayfanın sekmesine sağ tıklayıp, açılan menüden "Kod Görüntüle" seçeneğine tıklayınız. Kod penceresi açılacaktır. Aşağıdaki kodları o pencereye yapıştırıp test ediniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim say As Long
say = 0
If Not Intersect(Target, [B:B]) Is Nothing Then
    say = say + 1
    Range("G" & Target.Row).Value = Range("G" & Target.Row).Value + say
End If
End Sub

 

[Cihan SK]

Sayaç oluşturmak istediğiniz sayfanın sekmesine sağ tıklayıp, açılan menüden "Kod Görüntüle" seçeneğine tıklayınız. Kod penceresi açılacaktır. Aşağıdaki kodları o pencereye yapıştırıp test ediniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim say As Long
say = 0
If Not Intersect(Target, [B:B]) Is Nothing Then
    say = say + 1
    Range("G" & Target.Row).Value = Range("G" & Target.Row).Value + say
End If
End Sub

Super oldu Teşekkürler. :mutlu::mutlu::mutlu::mutlu::mutlu::mutlu::mutlu: