WorksheetFunction.CountIf(Range... hakkında

[ahatbek]

Merhaba.

Private Sub UserForm_Initialize()
TextBox1 = WorksheetFunction.CountIf(Range("B2:B500"), "ahatbek")
End Sub
Yukarıdaki kod aktif sayfadan çekiyor fakat farklı sayfadan çekmek için ne yapmak gerekiyor. Saygılar...

 

[Orion1]

Aşağıdaki kod işinizi görecektir.
Kırmızı yere siz hangi sayfayı istiyorsanız onun adını yazınız.

TextBox1 = WorksheetFunction.CountIf([B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Range("B2:B500"), "ahatbek")

 

[ahatbek]

Teşekkür ederim Hocam.

 

[Carpintero]

Edit: Yardımcı sütun kullanarak sorunu hallettim. Teşekkürler

Merhabalar, aşağıda kaç tane elma var A hücresine yazdırıyoruz.
Benim isteğim ise A hücresine hem elma hemde armutun toplam sayısını yazdırmak
kendim düzeltemedim yardımcı olunursa çok sevinirim.

For i = 7 To sst ' 
    
    Set Rng = Range(Cells(i, "B"), Cells(i, "T"))
    Cells(i, "A") = Application.WorksheetFunction.CountIf(Rng, "Elma")

Next i