WorksheetFunction.CountIf ile dolu olan hücreleri sayma

[Ergün Güler]

Selam,
Arkadaşlar Hazırldığım kodlar içerisinde aşağıdaki kod ile P:AI sütunlaarı arasındaki sayı olan (veya 0'dan büyük olan, veya boş olmayan gibi)hücreleri saymak istiyorum. kırmızı alandaki ile yapamadım nasıl yapabilirim? Yardımcı olabilirseniz çok sevinirim.

WorksheetFunction.CountIf(s2.Range(s2.Cells(j, "P"), s2.Cells(j, "AI")), [COLOR="Red"][B]<> "")[/B][/COLOR]

İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

Sub SAYILARI_SAY()
    MsgBox WorksheetFunction.CountIf(Range("A:A"), ">=0")
End Sub
 
Sub METİNLERİ_SAY()
    MsgBox WorksheetFunction.CountIf(Range("A:A"), ">?")
End Sub
 
Sub BOŞ_OLMAYANLARI_SAY()
    MsgBox WorksheetFunction.CountA(Range("A:A"))
End Sub

 

[Ergün Güler]

Selam,
Sayın Korhan Ayhan, Çok teşekkür ederim. Başlıkla ilgisi olmayabilir ama musaade ederseniz bir sorum daha olacak.
Bir makro içinde

WorksheetFunction.Large(s2.Range("C4:C48"), j)

kod ile C4:C48 aralığındaki büyük sayıları buluyorum.
mesela:
C4: 2
C5: 12
C6: 25
C7: 33
C8: 2
C9: 1
C10: 8
C11: 8
C12: 5
C13: 25

sıra ile

33
25
25
12
8
8
5
2
2
1

olarak buluyorum. Sonuçlar doğrudur.
Ancak, aynı zamanda büyük olan sayının satırını bulmak veya karşısıdaki değeri bulmak istiyorum. sıralanan sayılardan aynı olan var ise tüm aynı sayılar için ilk sayının satırını yazıyor.
Örnek 2 için;
Sayı___Satır

2_____4.satır
2_____4.satır olarak buluyor.
Oysa benim isteğim,
Sayı___Satır

2_____4.satır
2_____8.satır olarak bulması.
Yardımcı ollabilirseniz çok sevinirim.
İyi çalışmalar.

 

[kabridni]

sutunlarda aynılarını renklendirme

arkadaşlar sutunlarda aynı olan değerleri renklendiren bir excel macro yapabilirmisiniz.

 

[Vedat Özer]

arkadaşlar sutunlarda aynı olan değerleri renklendiren bir excel macro yapabilirmisiniz.

Selamlar,

Koşullu biçimlendirme ile yapılabilir.
Lütfen Ayrı Bir Konu Açıp Örnek Dosya İle Destekleyin.