Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 17 Aralık 2010, 10:06:18

Başlık: 3 verinin sayısı
Gönderen: voleclub - 17 Aralık 2010, 10:06:18

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.]

Başlık: Ynt: 3 verinin sayısı
Gönderen: Rami - 19 Aralık 2010, 01:22:58

Alıntı yapılan: voleclub - 17 Aralık 2010, 10:06:18

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.]

Başlık: Ynt: 3 verinin sayısı
Gönderen: voleclub - 20 Aralık 2010, 11:11:09

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.

Başlık: Ynt: 3 verinin sayısı
Gönderen: lark - 21 Aralık 2010, 00:59:02

=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))

Başlık: Ynt: 3 verinin sayısı
Gönderen: voleclub - 21 Aralık 2010, 07:44:12

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