koşula uyanların sayısı

[peleryn]

Merhabalar;

Aşağıdaki kodlar Evren Hocamın desteğiyle hazırladığım bir dosyamda ListBox'a koşula uyan verileri listeliyor ve bir Textbox'a kaç adet olduğunu yazıyor.Bunu da göreceğiniz üzere Label'a click yaparak çalıştırıyorum.

Ama userformun açılışına istatistikleri sadece rakam olarak görebileceğim Textbox'lar yerleştirdim.İhtiyacım olan;form aktive olduğunda sadece kodda geçen a değerini hesaplaması ve TextBox1'e yazması.

Private Sub Label9_Click()
listeadı.Caption = "Fiziksel Rehabilitasyon Hizmetleri"
Dim i As Long, a As Long
ReDim myarr(1 To 2, 1 To 1)
Sheets("GİRİŞ İŞLEMLERİ").Select
liste.Clear
For i = 2 To Cells(65536, "B").End(xlUp).Row
If UCase(Replace(Replace(Cells(i, "Ah").Value, "i", "İ"), "ı", "I")) = "FİZİKSEL" _
Then
a = a + 1
ReDim Preserve myarr(1 To 2, 1 To a)
myarr(1, a) = Cells(i, "B").Value
myarr(2, a) = Cells(i, "Ah").Value
End If
Next i
If a > 0 Then liste.Column = myarr
sayı.Text = Format(a, "#,##0") + " " + "Öğrenci"
End Sub

 

[Orion1]

Cevap linkte.
http://www.excel.web.tr/showthread.php?goto=newpost&t=74943

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

TextBox1 = WorksheetFunction.CountIf(Sheets("GİRİŞ İŞLEMLERİ").Range("AH:AH"),"FİZİKSEL")

 

[peleryn]

Hocam cevabınızı aldım.Diğer konuyu daha fazla dağıtmamak için oraya bir teşekkür yazmıyorum.Buraya da izninizle verdiğiniz cevabı ekliyorum.Arama yapan olursa belki birisinin işine yarar kolaylık olsun.

Private Sub UserForm_Activate()
TextBox1.Text = WorksheetFunction.CountIf(Range("AH2:AH65536"), "FİZİKSEL")
End Sub

İlginiz için çok teşekkür ederim..

 

[Orion1]

Hocam cevabınızı aldım.Diğer konuyu daha fazla dağıtmamak için oraya bir teşekkür yazmıyorum.Buraya da izninizle verdiğiniz cevabı ekliyorum.Arama yapan olursa belki birisinin işine yarar kolaylık olsun.

İlginiz için çok teşekkür ederim..

Hassasiyetiniz için teşekkür ederim.
İyi çalışmalar.

 

[peleryn]

Korhan hocam size de çok teşekkür ediyorum.Yine aynı ihtiyaca yönelik biraz farklı bir kod dizilimi var bunu nasıl çevirebilirim.

Private Sub Label27_Click()
listeadı.Caption = "6-12 Yaş Kız Öğrenciler"
Dim i As Long, a As Long
ReDim myarr(1 To 2, 1 To 1)
Sheets("GİRİŞ İŞLEMLERİ").Select
liste.Clear
For i = 2 To Cells(65536, "B").End(xlUp).Row
If UCase(Replace(Replace(Cells(i, "K").Value, "i", "İ"), "ı", "I")) = "KIZ" _
And Cells(i, "p").Value > 6 And Cells(i, "p").Value <= 12 Then
a = a + 1
ReDim Preserve myarr(1 To 2, 1 To a)
myarr(1, a) = Cells(i, "B").Value
myarr(2, a) = Cells(i, "P").Value
End If
Next i
If a > 0 Then liste.Column = myarr
sayı.Text = Format(a, "#,##0") + " " + "Öğrenci"
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

TextBox1 = Evaluate("=SUMPRODUCT(('GİRİŞ İŞLEMLERİ'!K2:K65536=""KIZ"")*('GİRİŞ İŞLEMLERİ'!P2:P65536>6)*('GİRİŞ İŞLEMLERİ'!P2:P65536<=12))")

 

[peleryn]

Korhan hocam elinize sağlık kodu dosyaya aktardım çalışıyor.Böylece TOPLAÇARPIM'ı da makro olarak görmüş oldum.İlgi ve yardımınız için çok teşekkür ederim.