bir sütunda arama yaparak aranan kriterin kaç tane olduğunu saydırma

[iecalap]

selam arkadaşlar bu foruma yeni katılıyorum
benim sorunum nöbet listesi hazırlıyorum
a kişisinin o ayda kaç tane nöbeti olduğunu saydırmak istiyorum
örn
01.03.2007 a
02.03.2007 b
03.03.2007 c
04.03.2007 a
05.03.2007 b
06.03.2007 a
......
a kişisinin nöbet sayısı 3
b kişisinin nöbet sayısı 2
c kişisinin nönbet sayısı 1
gibi
teşekkürler

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz

 

[kanber]

ben de teşekkür ederim

 

[hsayar]

Esenlikler,
arama yaptım bu sonucu buldum aşağıdaki gibi düzenlşedim işime yaramadı kod olarak nasıl kullanacağım?

Sub esaytest()
    Set shR = ThisWorkbook.Sheets("Yil_Biloncosu")
    Set AranacakAralik = shR.Range(Cells(1, 14), Cells(1000, 14))
    AranacakAralik.Select
    Aranan = "İçi"
    Aranankaçtane = CountIf(AranacakAralik, Aranan)
    MsgBox Aranankaçtane
End Sub

Yapılmak istenen "Yil_Biloncosu" sayfasının N1:N1000 aralığında aranan değişkenindeki değeri aratıp sayısını bulmak, eğer değer 0 ise kendi kodalrımda başka yere gönderme yapacağım.

 

[hsayar]

Verdiğim rahatsızlıktan dolayı özür dilerim, ne zamandır kod yazmadığım için küçük detayları bile unutmuşum. sorunumu çözdüm, WorksheetFunction eklemem gerekiyormuş.

Sub esaytest()
    Set shR = ThisWorkbook.Sheets("Yil_Biloncosu")
    Set AranacakAralik = shR.Range("n1:n1000")
    Aranan = "dışı"
    Aranankaçtane = [COLOR=red]WorksheetFunction[/COLOR].CountIf(AranacakAralik, Aranan)
    MsgBox Aranankaçtane
End Sub

 

[uzmanamele]

merhaba
syn hsayar,
benzer bir soru aşağıdaki linkde var, formüllü çözüm düşünürseniz kullanabilirsiniz.

http://www.excel.web.tr/showthread.php?t=53384

 

[hsayar]

Sn uzmanamale ilginize teşekkür ederim. sorunumu hallettim.