CountIf le saydırma

[byfika]

Merhabalar,
sayfa2de b2den itibaren aşağıya doğru, sayfa1 deki her satırdaki " x " leri =EĞERSAY(Sayfa1!B2:AZ2;"x") formülü ile saydırıyorum.
sayfa1 deki satır sayısı çok olduğundan formül excelde kastırmakta.
Range("d2").Value = WorksheetFunction.CountIf(Sayfa1.Range("b2:az2"), "x") makrosu ile örnek olması açısından sayfa2 deki d2 ye sayfa1 in tek satırındaki " x " leri saydırdım.
bu makro sayfa1 satır2 deki x leri sayfa2 d2 ye, sayfa1 satır3 deki x leri sayfa2 d3 ye nasıl yazdırabilirim.
Bilgi için teşekkürler...

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub egersay()
    son = Sheets("Sayfa1").Cells(Rows.Count, "B").End(3).Row
    For i = 2 To son
        Sheets("Sayfa2").Cells(i, "B") = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("B" & i & ":AZ" & i), "x")
    Next
End Sub

 

[byfika]

Merhabalar,
Sayın Yusuf bey, kodu uyguladım. Çok çok teşekkürler,
Saygılarımla...