Sadece isme göre veri getirmek

[İsmail Küçükşengün]

Merhabalar;

Aşağıdaki kod.la, Combobox1.den seçtiğim kişiye ait bilgileri, Combobox2 ve combobox3 teki (Başlangıç ve bitiş tarihlerini işaretleyerek) rapor sayfasına aktarıyorum.


Private Sub CommandButton8_Click()
Set s1 = Sheets("rapor")
s1.[a2:g24].Clear 'Contents
Sheets("hesaplar").Select
bastar = DateSerial(Year(ComboBox2), Month(ComboBox2), 1)
bittar = DateSerial(Year(ComboBox3), Month(ComboBox3) + 1, 1) - 1
ad = ComboBox1.Value
For a = 2 To [c65536].End(3).Row
If ad = "HEPSİ" Then GoTo 10
If Cells(a, "c") = ad And Cells(a, "a") >= bastar And Cells(a, "a") <= bittar Then
c = c + 1
For b = 1 To 7
s1.Cells(c + 1, b) = Cells(a, b).Value
Next
End If
GoTo 20
10 If Cells(a, "a") >= bastar And Cells(a, "a") <= bittar Then
c = c + 1
For b = 1 To 7
s1.Cells(c + 1, b) = Cells(a, b).Value
Next
End If
20 Next
If s1.[A3] = 0 Then
MsgBox "UYGUN VERİ BULUNAMADI"
Exit Sub
End If

Dim j As Integer

kenarlıkçiz
ListBox1.RowSource = "rapor!a2:g" & s1.[a65536].End(3).Row
End Sub

SORUNUM:

Combobox2 ve 3.ü iptal ederek, sadece Combobox1.den seçtiğim kişiye ait tüm verileri (başlangıç ve bitiş tarihlerini seçmeden) verileri rapor sayfasına aktarabilmem için yukarıdaki kodda ne gibi değişiklik yapmam gerekir.

Şimdiden teşekkürler.