Soru countA

[sirkülasyon]

Dim a As Worksheet
Dim say As Integer
Set a = Worksheets("Sayfa6")
say = WorksheetFunction.CountA(a.Range("C2:C65536"))
Range("D2").ClearContents
Range("D2") = say

Çift tık ile C sütununda olan rakamı sayıyor. Ama C sütunun da rakam silindiği zaman D2 hücresinde rakam eksilmiyor eski haliyle kalıyor.
Bunu nasıl düzeltebilirim=

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına aşağıdaki kodu eklerseniz C sütununda bir değişiklik olduğunda işlemi gerçekleştirir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        Range("D2") = WorksheetFunction.CountA(Range("C2:C" & Rows.Count))
    End If
End Sub

 

[sirkülasyon]

Sayın dalgalikur
Ellerine sağlık. Teşekkür ederim.