ComboBoxa göre listeleme

[teksen]

Herkese iyi çalışmalar,

Ekte gönderdiğim dosyada tarih aralığına göre arama yaptırıp rapor sayfasına aktarabiliyorum fakat ComboBox'tan seçilene göre bu aramayı yaptıramadım.
Neden kaynaklanır acaba?

Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Sadece comboboxtan arama yapacaksanız aşağıdaki kodu comboboxa kopyalayın.

Private Sub ComboBox1_Change()
Set sv = Sheets("veri")
Set sr = Sheets("rapor")
sr.Range("a2:k1000").Clear
For sut = 1 To sv.[c65536].End(xlUp).Row
If sv.Range("a" & sut) = ComboBox1 Then
Range("a" & sut & ":k" & sut).Copy
s = s + 1
sr.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
sut = sr.[c65536].End(xlUp).Row
sr.Range("c" & sut + 1) = WorksheetFunction.Sum(sr.[c2:c65536])
sr.Range("j" & sut + 1) = WorksheetFunction.Sum(sr.[j2:j65536])
sr.Range("c" & sut + 1) = Format(sr.Range("c" & sut + 1), "#,##0.00")
sr.Range("d" & sut + 1) = Format(sr.Range("d" & sut + 1), "#,##0.00")
sr.Range("f" & sut + 1) = Format(sr.Range("f" & sut + 1), "#,##0.00")
sr.Range("h" & sut + 1) = Format(sr.Range("h" & sut + 1), "#,##0.00")
sr.Range("j" & sut + 1) = Format(sr.Range("j" & sut + 1), "#,##0.00")
ListBox1.Visible = True
End Sub

 

[mrttrn]

Private Sub CommandButton1_Click()
Set SV = Sheets("veri")
Set sr = Sheets("rapor")
sr.Range("a2:k1000").Clear

For sut = 1 To SV.[c65536].End(xlUp).Row
If ComboBox1.Value = Range("A" & sut).Value And SV.Range("b" & sut) >= DTPicker1 And SV.Range("b" & sut) <= DTPicker2 And SV.Range("b" & sut) >= DTPicker1 And SV.Range("b" & sut) <= DTPicker2 Then
    Range("a" & sut & ":k" & sut).Copy
    s = s + 1
    sr.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
sut = sr.[c65536].End(xlUp).Row
sr.Range("c" & sut + 1) = WorksheetFunction.Sum(sr.[c2:c65536])
sr.Range("j" & sut + 1) = WorksheetFunction.Sum(sr.[j2:j65536])
sr.Range("c" & sut + 1) = Format(sr.Range("c" & sut + 1), "#,##0.00")
sr.Range("d" & sut + 1) = Format(sr.Range("d" & sut + 1), "#,##0.00")
sr.Range("f" & sut + 1) = Format(sr.Range("f" & sut + 1), "#,##0.00")
sr.Range("h" & sut + 1) = Format(sr.Range("h" & sut + 1), "#,##0.00")
sr.Range("j" & sut + 1) = Format(sr.Range("j" & sut + 1), "#,##0.00")

ListBox1.Visible = True

End Sub

Sn Teksen bende sizin koda göre uyguladım.Comboboxdaki veri, iki tarih arası dikkate alınarak aktarılıyor.

 

[Mahmut Kök]

Buna çok benzeyen bir soru ve çözüm önerileri de aşağıdaki adreste mevcut.

http://www.excel.web.tr/showthread.php?t=39356

 

[teksen]

teşekkür ederim

İkiside çok işime yaradı.