Veri süzme hakkında (YARDIM)

[EmirhanG]

merhaba arkadaşlar ,ekteki örneği inceler ve yardımcı olursanız memnun olurum teşekürler.....
((alternatif fikirleriniz varsa ricamız olur..)):yardim:

 

[EmirhanG]

ArkadaŞlar Yardimlarinizi Beklİyorum......

 

[N.Ziya Hiçdurmaz]

yanıt

Bir örnek yaptım inceleyiniz.

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")
End Sub

Private Sub ComboBox2_Change()
ComboBox2 = Format(ComboBox2, "dd.mm.yyyy")
End Sub

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("RAPOR").[a1:k10000].ClearContents
For i = 1 To [b65536].End(3).Row
If Range("b" & i) >= CLng(CDate(ComboBox1)) And Range("b" & i) <= CLng(CDate(ComboBox2)) Then
Range("b" & i).EntireRow.Copy
s = s + 1
Sheets("RAPOR").Range("a" & s).PasteSpecial
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "B1:B" & [b65536].End(3).Row
ComboBox2.RowSource = "B1:B" & [b65536].End(3).Row
End Sub

 

[EmirhanG]

İlgin için teşekürler...., ama ben yanlış anlattım galiba , Aynı formda Önce bir müşteri yada müşteri aralığı seçtikten sonra o müşteriye ait tarih aralığınıda seçmek istiyorum mesela "Müşteri1'in 12/12/2006 dan 14/12/2006 yakadar olan işlemleri yada Müşteri1 den Müşteri10'a kadar olan Müşterilerin 12/12/2006 dan 14/12/2006 "yakadar olan işlemleririni raporlayabilecek şekilde bir form yapmak istiyorum.Ve raporda sayfa2 den süzülmüş verilerin ALTTOPLAM larınıda raporda çıkartmak istiyorum. Ben çok uğraştım ama işin içinden çıkamadım kafam durdu valla yardımlarınızı bekliyorum teşekürler.....:???:

 

[Orion1]

Aynı formda Önce bir müşteri yada müşteri aralığı seçtikten sonra o müşteriye ait tarih aralığınıda seçmek istiyorum mesela "Müşteri1'in 12/12/2006 dan 14/12/2006 yakadar olan işlemleri yada Müşteri1 den Müşteri10'a kadar olan Müşterilerin 12/12/2006 dan 14/12/2006 "yakadar olan işlemleririni raporlayabilecek şekilde bir form yapmak istiyorum.Ve raporda sayfa2 den süzülmüş verilerin ALTTOPLAM larınıda raporda çıkartmak istiyorum. Ben çok uğraştım ama işin içinden çıkamadım kafam durdu valla yardımlarınızı bekliyorum teşekürler.....:???:

Bu dedikleriniz zaten sayfaya koymuş olduğunuz Otomatik Filtre ile yapabilirsiniz.

 

[EmirhanG]

evet doğru, ama ben verilerin bulunduğu sayfa (sayfa2) üzerinde değilde form yardımıyla yapmak istiyorum.Teşekürler SEZAR.......mümkünse yardımcı olurmusunuz??

 

[Orion1]

UserForm ve listbox'mı kullanmak istiyorsunuz?

 

[N.Ziya Hiçdurmaz]

yanıt

İsteğiniz doğrultusunda düzenleme yapılmıştır.

Private Sub ComboBox1_Change()
Cells(ComboBox1.ListIndex + 1, 1).Select
TextBox1 = ActiveCell.Offset(0, 1).Value
End Sub

Private Sub ComboBox2_Change()
Cells(ComboBox2.ListIndex + 1, 1).Select
TextBox2 = ActiveCell.Offset(0, 1).Value
End Sub

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("RAPOR").[a2:k10000].ClearContents
For i = 1 To [b65536].End(3).Row
If Range("b" & i) >= CLng(CDate(TextBox1)) And Range("b" & i) <= CLng(CDate(TextBox2)) Then
Range("b" & i).EntireRow.Copy
s = s + 1
Sheets("RAPOR").Range("a" & s + 1).PasteSpecial
End If
Next
TextBox3 = WorksheetFunction.Sum(Sheets("RAPOR").[G2:G10000])
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub

Private Sub TextBox2_Change()
TextBox2 = Format(TextBox2, "dd.mm.yyyy")
End Sub

Private Sub TextBox3_Change()
TextBox3 = Format(TextBox3, "#,##00.0")
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:A" & [A65536].End(3).Row
ComboBox2.RowSource = "A1:A" & [A65536].End(3).Row
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyayı inceleyiniz.seçilen müşteriyi istenilen tarih aralığında raporlayıp alt toplamını almakta.

 

[EmirhanG]

Teşekürler arkadaş kusura kalma ama bir sonuç almak istiyorum onun için birşey daha soracağım; rapor sayfasında verilerin alttoplamlarını görüntülemek istıyorum çünkü çıktı aldığımda bu raporu müşterime iletmek istiyorum nekar işlem yapılmış satış, iade, tutar vb. toplamlarını raporda alttoplam olak görsün istiyorum birde formda tek müşteri değilde müşteri aralığı seçmem mümkünmü acaba ........ tekrar teşekürler.... kusuruma kalma

 

[N.Ziya Hiçdurmaz]

yanıt

İstediğiniz alt toplamlar ayarlanmıştır.

 

[EmirhanG]

Çok Çok TeŞekÜrler ArkadaŞ Bİlgİne Ve Sabirla GÖsterdİĞİn İlgİne......
.... Bİlgİsİnİ Gİzlemeyen CÖmertce Sunan ArkadaŞlarin Çogalmasi Dİleklerİyle, Hayirli ÇaliŞmalar Herkeslere.......!

 

[excellcan]

Merhaba Arkadaşlar
Aslında basit bir soru herhalde ama ben forumda bulamadım yada bulduysam da anlamadım.
Sorum şu : B2-Z212 bir listem var. Bu listeden istediğim değerleri süzüp , o değerin yer aldığı satırı başka bir sayfaya makro kullanmadan , bir formül aracılığıyla kopyalamak istiyorum . Yani ilgili listede Ali isminin geçtiği bütün satırları başka bir sayfaya bir formül yardımıyla kopyalamak. Bunu otomatik süzme ile yapıyordum ama takdir edersiniz ki her sütunda Ali ismini ara sonra bunları ayrı yere kopyala daha sonra da bunların üstünde vesair işlemler yap oldukça yorucu. Hele elinizin altında Excel gibi bir program varken bu tarz bir çalışmaya motive olmak da çok zor geliyor insana. Umarım sorunuma yardımcı olursunuz.
Her şey gönlünüzce olsun. Hoşcakalın