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.
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.
Kod:
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