İSTATİSTİK SAYFASINA KOŞULLU VERİ AKTARMA(AYLIK İSTATÃ

[Ongun]

ÝSTATÝSTÝK SAYFASINA KOÞULLU VERÝ AKTARMA(AYLIK ÝSTATÃ

Herkese selamlar, "istatistik" adlı çalışma sayfasına diğer sayfalarda kayıtlı verileri koşullu olarak aktarmak istiyorum. Sorum şöyle, İstatistik sayfasında bir tablu var ve bu tablonun içindeki hücrelere aylar itibariyle diğer sayfalara girilen bilğilerden koşula uyanları aktarmak mümkünmü?.
UserForm1 üzerinde 2 adet TextBox ve 1 adet CommondButton var, yapmak istediğim TextBox1`e örnek 01/05/2005 tarihini TextBox2`yede 31/05/2005 tarihini girip bütona basınca istatistik sayfasındaki tablunun içinde bulunan bütün hücrelere diğer sayfalardaki bu tarih aralığındaki bilgileri getirmek istiyorum. Yani AYLIK İSTATİSTİK yapmak istiyorum.
Bu konuda bana yardımcı olursanız sevinirim. Saygılarımla :hey:

 

[Levent Menteşoğlu]

Bu isteğinizle ilgili çok sayıda örnek sitemizde mevcuttur. Ben bunlardan birinin linkini veriyorum. Oradaki örnekleri inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3033&highlight=tarih%2A+s%FCz%2A

 

[Ongun]

Sayın Leventm, bahsettiğiniz link`i inceledim, ayrıca sitede arama yaptım ama, sorunuma çözüm bulamadım. Sizlere örnek dosya gönderiyorum. Gerekli açıklamayı dosyada yaptım. Bana yardımcı olursanız sevinirim. Sevgilerimle :hey:

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[Ongun]

Sayın Leventm, elinize sağlık örneği inceledim. Ancak, sorunuma çözüm bulamadım. Daha doğrusu sizi tam olarak bilgilendiremedim. Bundan dolayı özür diliyorum. Zamanınızı çalmış oldum. Yeni bir örnek dosya hazırladım. Umarım açıklama yapabilmişimdir. Eğer yeterli açıklama göremediyseniz. lütfen beni uyarınız. Saygılarımla,

 

[Ongun]

Lütfen yardım edermisiniz. :hey:

 

[Exelans]

Merhaba,
Bir dosya hazırladım. Ama sorunuz çok eksik olduğundan sadece son göndediğiniz dosyadakileri yaptım.
Aynı mantıkla siz de yapabilirsiniz.
Eğer olmaz ise ya da eskikleri bildirirseniz yine ilgilenirim.
Kolay gelsin.

 

[Ongun]

Sayın Exelans, elinize saglık çok güzel olmuş, ancak örnegin sayfa 1 A sütununda Mart ayına ait B sütunundaki kişi sayı 2 oldugu halde F sütunundaki dönem sayısı 3 olması gerekirken dönem sayısını 2 vermektedir. Kodları bu şekilde degiştirmek için ne yapmam lazım. Saglıklı kalın. Sevgilerimle

 

[Exelans]

Pardon, hata yapmışım,

BIR:
cc = cc + s2.Cells(a, 3).Value
dd = dd + s2.Cells(a, 4).Value
ee = ee + s2.Cells(a, 5).Value

Kırmızı BİR: satırını burada gösterdiğim yere al.

 

[Ongun]

Kodları ilgili yere aldım olmadı.

 

[Exelans]

Ben de denedim. Oldu.
Sanırım yanlış bir revizyon yapıyorsunuz.
Aşağıdaki kodları aynen Combobox1 in kodları olarak kullanın.
[vb:1:0620fe4df9]Private Sub ComboBox1_Click()
Dim Yüzler As String
Dim Onlar As String
Dim Besler As String
Dim Donem As String
Dim a As Integer, say As Integer, ffc As Integer, ffd As Integer, ffe As Integer
Dim bb As Integer, cc As Single, dd As Single, ee As Single, ff As Integer
Dim bbc As Single
Dim bbd As Single
Dim bbe As Single
ReDim Adlar(100)
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.[B511].ClearContents
s1.[a2] = ComboBox1.Value
s2.[a19] = ComboBox1.Value
For a = 2 To 15
If UCase(Format(s2.Cells(a, 1), "mmmm")) = ComboBox1.Value Then
For say = 1 To bb
If Adlar(say) = s2.Cells(a, 2) Then GoTo BIR
Next say
If say = bb + 1 Then
Adlar(say) = s2.Cells(a, 2)
bb = bb + 1
End If
BIR:
cc = cc + s2.Cells(a, 3).Value
dd = dd + s2.Cells(a, 4).Value
ee = ee + s2.Cells(a, 5).Value
ff = ff + 1
If s2.Cells(a, 3).Value > 0 Then
bbc = bbc + 1
ffc = bbf + 1
End If
If s2.Cells(a, 4).Value > 0 Then
bbd = bbd + 1
ffd = ffd + 1
End If
If s2.Cells(a, 5).Value > 0 Then
bbe = bbe + 1
ffe = ffe + 1
End If
End If
Next a
s2.[b19] = "KİÃžİ SAYISI " & bb
s2.[c19] = Round(cc, 2)
s2.[d19] = Round(dd, 2)
s2.[e19] = Round(ee, 2)
s2.[f19] = ff
For i = 7 To 9
Cells(i, 2) = bb
Cells(i, 3) = ff
Cells(i, 4) = s2.Cells(19, i - 4)
Next i
End Sub[/vb:1:0620fe4df9]

 

[Ongun]

Sayın Exelans, her şey için çok teşekkür ederim. Sorunumu çözdüm. ama tam olarak denemedim. sanırım sorun olmayacak. eğer olursa size bildiririm.
Ayrıca, Sn Leventm`de sizin aracılığınız ile teşekkür ederim. Elleriniz dert görmesin. İyi ki varsınız. Sevgiyle kalın. :hey:

 

[Ongun]

Merhabalar, sorunumu çözdüm sandım ama olmadı. Sayfa2 de alt alta sıralı veriler olacak, sayfa2 de açıklamadan sonraki satırları örnek olarak yazmıştım. aslında orayı boş olarak düşünün.
Selamlar

 

[Ongun]

Merhabalar, sorunumu çözdüm sandım ama olmadı.

Lütfen yardımcı olurmusunuz.

 

[Ongun]

Next a
s2.[b19] = "KİÃžİ SAYISI " & bb
s2.[c19] = Round(cc, 2)
s2.[d19] = Round(dd, 2)
s2.[e19] = Round(ee, 2)
s2.[f19] = ff
For i = 7 To 9
Cells(i, 2) = bb
Cells(i, 3) = ff
Cells(i, 4) = s2.Cells(19, i - 4)
Next i
End Sub
Yukarıdaki kodlar sayfa2 satır 19 da toplamları yazdırıyor. buraya yazdırmasını istemiyorum. çünkü bu sayfada yüzlerce satır bilgi olacak doğrudan sayfa1 deki istatistik tablosunun ilgili sütununa yazdırması yeterli.
Bu şekilde kodları nasıl düzenleyebilirim. Ben uğraştım yapamadım.
Lütfen yardımcı olurmusunuz. Þimdiden teşekkür ederim.

 

[Exelans]

[vb:1:49aebf9895]s2.[b19] = "KİÃžİ SAYISI " & bb
s2.[c19] = Round(cc, 2)
s2.[d19] = Round(dd, 2)
s2.[e19] = Round(ee, 2)
s2.[f19] = ff
For i = 7 To 9
Cells(i, 2) = bb
Cells(i, 3) = ff
Cells(i, 4) = s2.Cells(19, i - 4)
Next i
End Sub[/vb:1:49aebf9895]
Bunun yerine aşağıdakini kullan
[vb:1:49aebf9895]For i=7 to 9
Cells(i, 2) = bb
Cells(i, 3) = ff
Next i
Cells(7, 4) = Round(cc,2)
Cells(8, 4) = Round(dd,2)
Cells(9, 4) = Round(ee,2)[/vb:1:49aebf9895]

 

[Ongun]

Sayın Exelans, elinize sağlık çok güzel olmuş, teşekkür ederim. bir sorum daha olacak, ay`a göre istatistik çıkarıyor. peki yıl farklı olursa kodu nasıl değiştirmemiz gerekir. yani 01/01/2005 ve 01/01/2004 ve 01/01/2003 aynı sütunda olursa yıl`a göre de seçim yaptırmak için ne yapmamız lazım. yardımcı olursanız sevinirim. selamlar.

 

[Exelans]

Merhaba,
Tabi bu da münkün. Ama sanırım sorular ard arda gelmeye başladı.
Þimdi şöyle yapalım. Siz comboboxdan Ay değil de Dönem Seçin. MART 2005 gibi
Ã?nce comboboxu buna göre düzenlemek gerekecek.
Daha sonra Kodlarda hücredeki ay değeriyle Combobox da seçilen değerin karşılaştırılmasının yapıldığı satırı hücrelerdeki tarihi AY & YIL olarak alıp karşılaştırırsak olacaktır.
Ben aşağıda 2000-2020 yılları arasına örnek verdim.
Ã?nce Comboboxu düzenleyelim. Bunu için initialize olayındaki kodun ilgili kısımlarına aşağıdaki kırmızı yerleri ilave edin.

ComboBox2.Visible = False
For yıl = 2000 To 2020
For b = 1 To 12
ComboBox1.AddItem yıl & " " & UCase(Format("01." & b & ".2005", "mmmm"))
Next b
Next yıl

Ve combobox olayındaki ilgili satıra da aşağıdaki kırmızı yerleri ilave ediniz.

If Year(s2.Cells(a, 1)) & " " & UCase(Format(s2.Cells(a, 1), "mmmm")) = ComboBox1.Value Then

 

[firstisland]

Next a
s2.[b19] = "KİÃžİ SAYISI " & bb
s2.[c19] = Round(cc, 2)
s2.[d19] = Round(dd, 2)
s2.[e19] = Round(ee, 2)
s2.[f19] = ff
For i = 7 To 9
Cells(i, 2) = bb
Cells(i, 3) = ff
Cells(i, 4) = s2.Cells(19, i - 4)
Next i
End Sub

s2' leri s1 veya başka bir sayfa(sheet) yaparsanız istediğiniz sayfaya yazdırmış olursunuz.

 

[Ongun]

Ama sanırım sorular ard arda gelmeye başladı.

Sayın Exelans, ilginize teşekkür ederim. Elinize sağlık, bu konuyla ilgili sorularım olabilir. Beni bağışlayın. Teşekkürlerimi sunarım. İyi ki varsınız. Umarım her şey gönlünüzce olur. Sevgilerimle.