Formül Sonucunu Hücre Açıklamasına Getirme

[harziyan]

Merhabalar;
Bu kod hata veriyor, acaba hatam ne?
Özetle ("g1:w300") aralığında işlem yapıldığında, "G1" hücresine, "G" sütunundaki "x" yazılı hücrelerin sayısı yazılsın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Son = [A65536].End(3).Row
    If Intersect(Target, Range("g1:w300")) Is Nothing Then Exit Sub
    Range("G1").Comment.Text Text:=(Application.WorksheetFunction.CountIf(Range("g2:g" & Son), "X"))
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Son = [A65536].End(3).Row
    If Intersect(Target, Range("g1:w300")) Is Nothing Then Exit Sub
    Say = Application.WorksheetFunction.CountIf(Range("G2:G" & Son), "X")
    On Error Resume Next
    Range("G1").Comment.Delete
    On Error GoTo 0
    Range("G1").AddComment
    Range("G1").Comment.Text Text:=CStr(Say)
End Sub

 

[harziyan]

Üstadım ellerinize sağlık, acaba bu iş "W" sütununa kadarki tüm sütunlardaki "x" leri saydırmak şeklinde de yapılabilir mi?

 

[Korhan Ayhan]

Her sütun kendi içinde sayılacak şeklinde anladım...

Private Sub Worksheet_Change(ByVal Target As Range)
    Son = Cells(Rows.Count, 1).End(3).Row
    If Intersect(Target, Range("G1:W300")) Is Nothing Then Exit Sub
    Say = Application.WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(Son, Target.Column)), "X")
    On Error Resume Next
    Cells(1, Target.Column).Comment.Delete
    On Error GoTo 0
    Cells(1, Target.Column).AddComment
    Cells(1, Target.Column).Comment.Text Text:=CStr(Say)
End Sub

 

[harziyan]

Tam isabet üstadım. Mükemmel iş çıkardınız. Sağlıcakla kalın...:hey: