kriterlere göre rapor alma

[dogandündar]

levent beyin günün sorusu baslığı altında açtığı veri tabanıdan kriterlere göre sorgulama çalışmalarını kendi cari hesaplarımda yapmak istedım ama beceremedim.yardımcı olurmusunuz?

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
Set sb = Sheets("bayiler")
Set sr = Sheets("rapor")
sr.Range("a1:f5000").Clear
For sutc = 1 To [c65536].End(xlUp).Row
If sb.Range("c" & sutc) = Val(ComboBox1) Then
sb.Range("a" & sutc & ":f" & sutc).Copy
s = s + 1
sr.Range("a" & s).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

Private Sub ComboBox2_Change()
Set sb = Sheets("bayiler")
Set sr = Sheets("rapor")
sr.Range("a1:f5000").Clear
For sutc = 1 To [c65536].End(xlUp).Row
If sb.Range("d" & sutc) = Val(ComboBox2) Then
sb.Range("a" & sutc & ":f" & sutc).Copy
s = s + 1
sr.Range("a" & s).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

Private Sub ComboBox3_Change()
Set sb = Sheets("bayiler")
Set sr = Sheets("rapor")
sr.Range("a1:f5000").Clear
For sutc = 1 To [e65536].End(xlUp).Row
If sb.Range("e" & sutc) = ComboBox3 Then
sb.Range("a" & sutc & ":f" & sutc).Copy
s = s + 1
sr.Range("a" & s).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

Private Sub ComboBox4_Change()
Set sb = Sheets("bayiler")
Set sr = Sheets("rapor")
sr.Range("a1:f5000").Clear
For sutc = 1 To [f65536].End(xlUp).Row
If sb.Range("f" & sutc) = ComboBox4 Then
sb.Range("a" & sutc & ":f" & sutc).Copy
s = s + 1
sr.Range("a" & s).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "c2:c" & [c65536].End(xlUp).Row
ComboBox2.RowSource = "d2:d" & [d65536].End(xlUp).Row
ComboBox3.RowSource = "e2:e" & [e65536].End(xlUp).Row
ComboBox4.RowSource = "f2:f" & [f65536].End(xlUp).Row
End Sub

 

[dogandündar]

sağolun ama tam istediğim gibi olmamış. galıba anlatamadım gunu gelen ve toplam miktara göre değilde genel olarak istiyorum yani gunu gelenler seçtıgımde toplam sütunu raporda olmamalı. ve userformun altına tamam butonu ekleyebılırmıyız. bu butona basıldıgında direkt rapor sayfası açılsın