Sıfır Değer Count

[yteizme]

Count

..............................

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SAYFALARDA_SIFIR_SAY()
    Sheets("Sheet1").Select
    For X = 1 To [A65536].End(3).Row
    Cells(X, 2) = WorksheetFunction.CountIf(Sheets(Cells(X, 1).Text).[F:F], 0)
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[yteizme]

teşekkürler,çok başarılı.