3 verinin sayısı

[voleclub]

Selam,
Sayfa 1 den   veri sayısını ,sayfa 2 deki tabloya yerleştirmek istiyorum.   
Örneğim:  B3 hücresine 0-5 yaş arası erkek otizimli sayısı kaçtane olduğunu bulmak istiyorum: Teşekkürler


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Rami]

Selam,
Sayfa 1 den   veri sayısını ,sayfa 2 deki tabloya yerleştirmek istiyorum.   
Örneğim:  B3 hücresine 0-5 yaş arası erkek otizimli sayısı kaçtane olduğunu bulmak istiyorum: Teşekkürler

Merhaba.
Eğer kod ile isterseniz; "Sayfa2" nin kod sayfasına:

Kod: [Seç]

Private Sub Worksheet_Activate()
[B3:G6] = Empty
For x = 3 To 6
v = Array("OTİSTİK", "ZİHİNSEL EĞİTİM", "BEDENSEL EĞİTİM", "BEDENSEL+ZİHİNSEL EĞİTİM")
For a = 1 To Sheets("Sayfa1").Cells(65000, 1).End(xlUp).Row
b = 2
ara = Date - CDate(Sheets("Sayfa1").Cells(a, 3))
Select Case ara
Case Is < 1827
If Sheets("Sayfa1").Cells(a, 4) = "K" Then b = b + 1
If Sheets("Sayfa1").Cells(a, 2) = v(x - 3) Then
Sheets("Sayfa2").Cells(x, b) = Sheets("Sayfa2").Cells(x, b) + 1
End If
Case 1827 To 5113
b = 4
If Sheets("Sayfa1").Cells(a, 4) = "K" Then b = b + 1
If Sheets("Sayfa1").Cells(a, 2) = v(x - 3) Then
Sheets("Sayfa2").Cells(x, b) = Sheets("Sayfa2").Cells(x, b) + 1
End If
Case Is >= 5114
b = 6
If Sheets("Sayfa1").Cells(a, 4) = "K" Then b = b + 1
If Sheets("Sayfa1").Cells(a, 2) = v(x - 3) Then
Sheets("Sayfa2").Cells(x, b) = Sheets("Sayfa2").Cells(x, b) + 1
End If
End Select
Next
Next
End Sub


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

teşekkür ederim,
=TOPLA.ÇARPIM(((ETARİHLİ(Sayfa1!C2:C296;BUGÜN();"y")>=0)*(ETARİHLİ(Sayfa1!C2:C296;BUGÜN();"y")<=6))*((Sayfa1!D2:D296="E"))) formiline otizimide eklemek istiyorum.ama bir türlü oluyor.

[lark]

=TOPLA.ÇARPIM((Sayfa1!B1:B296="OTİSTİK")*(Sayfa1!D1:D296="E")*(ETARİHLİ(Sayfa1!C1:C296;BUGÜN();"y")<=6)*(ETARİHLİ(Sayfa1!C1:C296;BUGÜN();"y")>=0))

[voleclub]

çok teşekkür ederim hepinize...