Açıklama Sayısını Bulma

[seddur]

Merhaba.Ekli dosyada görüleceği üzere 10 yıllık randevu takip uygulaması üzerinde çalışıyorum.Yapmak istediğim userformdaki textbox1'e girilen isme göre açıklama kutucuklarında bulunan ismi saydırmak.Amaç hasta kaçıncı kez randevu almış onu bulmak.tabi 10 yıllık sürede takip edilecek.Bunun için dosyada userform oluşturdum.Bazı Hücrelere VEDAT DURMAZ adını ekledim.Kaç adet Vedat Durmaz var o bulunacak.Yardımlarınız için şimdiden Teşekkür Ediyorum.

 

[Mustafa MUTLU]

Private Sub CommandButton1_Click()
Sheets("Veri").Cells(1, "aa") = TextBox1.Text
Sheets("Veri").Cells(1, "ab") = "=IF(ISERROR(COUNTIF(R[1]C[-26]:R[999999]C[-19],RC[-1])),0,COUNTIF(R[1]C[-26]:R[999999]C[-19],RC[-1]))"
TextBox2.Text = Sheets("Veri").Cells(1, "ab")
End Sub

 

[Levent Menteşoğlu]

Merhaba.Ekli dosyada görüleceği üzere 10 yıllık randevu takip uygulaması üzerinde çalışıyorum.Yapmak istediğim userformdaki textbox1'e girilen isme göre açıklama kutucuklarında bulunan ismi saydırmak.Amaç hasta kaçıncı kez randevu almış onu bulmak.tabi 10 yıllık sürede takip edilecek.Bunun için dosyada userform oluşturdum.Bazı Hücrelere VEDAT DURMAZ adını ekledim.Kaç adet Vedat Durmaz var o bulunacak.Yardımlarınız için şimdiden Teşekkür Ediyorum.

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
Dim hucre As Range
Set s1 = Sheets("Randevu")

For Each hucre In s1.Range("B:Q").SpecialCells(xlCellTypeComments)
If hucre.Comment.Text = TextBox1 Then say = say + 1
Next

TextBox2 = say
End Sub

 

[seddur]

Levent Bey kod yalnızca ocak veya şubat aylarının sonucunu gösteriyor tüm ayların toplamını göstermiyor

 

[Korhan Ayhan]

İsme göre sayım yaptığı için isimleri kontrol etmenizde fayda var. Bir boşluk karakteri bile fazla olsa eşleşme olmayacaktır.

 

[seddur]

Tekrar kontrol ettim ama aynı dediğim gibi.

 

[Korhan Ayhan]

Eksik saydığını söylediğiniz örnek dosyanızı paylaşınız.

 

[seddur]

Dosyayı paylaşıyorum

 

[Korhan Ayhan]

Paylaştığınız dosyaya göre hangi sonuçları görmek istiyorsunuz?

 

[seddur]

VEDAT DURMAZ adlı açıklamaların sayısını Bütün ayları ve yılları kapsayacak şekilde saydırmak istiyorum.Kod yalnızca Ocak veya şubat aylarını sayıyor hepsini saymıyor.

 

[Korhan Ayhan]

Paylaştığınız dosyada bahsettiğiniz isimden kaç adet açıklama var?

 

[seddur]

7 adet VEDAT DURMAZ olması gerekiyor.

 

[Korhan Ayhan]

Bu 7 adet dosyanızda hangi sayfa bulunuyor?

 

[seddur]

"Randevu" sayfasında

 

[Korhan Ayhan]

Emin misiniz?

Bende son paylaştığınız dosyada "Randevu" sayfası aşağıdaki gibi görünüyor. Toplamda 3 adet açıklama var ve hepsinde farklı veriler yazıyor.

 

[seddur]

Mart ayına bakıyorsunuz.Ocak-Şubat ve Mart aylarında toplamda 7 adet VEDAT DURMAZ var.Sayfadaki Spinbutton ile.aylar arasında geçiş yapın.Test amaçlı 3 adet de SEDAT DURU var.

 

[Korhan Ayhan]

Bu durumda siz aslında veri sayfasındaki verileri saydırmak istiyorsunuz diye bir sonuç çıkarıyorum.

 

[seddur]

Evet o da olabilir ama o zaman hücre aralıklarını güncellememiz gerekir.

 

[Korhan Ayhan]

Veri sayfasında yana doğru kaç sütun kullanmayı planlıyorsunuz?

 

[seddur]

Veri sayfasını bu şekilde kullanacağım herhangi bir değişiklik olmayacak