ComboBox taki değeri Sayfa3 te arayıp ListBoxta listelemek

[kelkitli]

Değerli Dostlar Selamlar,
Aşağıda yazılı olan kodlarla ComboBox1 deki değerle change olayına bağlı olarak veri alıyorum. 2. bir işlem olarak da ComboBox1 deki deşeri Sayfa3 D sütununda aratıp G sütunundaki verileri lListBox1 de listelemek istiyorum. Ancak bir hata oluşuyor. Bulamıyorum.
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
On Error Resume Next
Set S1 = Sayfa1
Set S2 = Sayfa2
Set KRİTER = S1.ComboBox1
S2.Select
ara = [Sayfa2!B2:B65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole).Activate
S1.Range("C9") = ActiveCell.Offset(0, -1).Value
S1.Range("C10") = ActiveCell.Offset(0, 2).Value
S1.Range("C12") = ActiveCell.Offset(0, 5).Value
S1.Select
Range("c9").Select
[C15] = "1 Gün"
[C13] = "06.00-13.10"
[C14] = Format(Date, "dd.mm.yyyy")
[C16] = Year([C14])
Dim k As Range, i As Byte
ListBox1.Clear
'If ComboBox1.Value = "" Then Exit Sub
Set k = Sheets("Sayfa3").Range("D: D").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
For i = 1 To 10
ListBox1.AddItem
ListBox1.Column(0, i - 1) = k.Offset(0, i).Value
Next i
End If Set k = Nothing
Set S1 = Nothing
Set S2 = Nothing
Exit Sub
End Sub

Dosyayı ekliyorum.

 

[kelkitli]

Değerli Arkadaşlar dosyayı karışık hale getirmiş olduğumu sanıyorum.
Anlaşılır olması bakımından yeni dosyayı ekliyorum.

 

[Korhan Ayhan]

Selamlar,

Sayfa3 teki örneğin Adem EROLAN adlı kişiye ait bilgi sadece bir satırdamı olacak yoksa birden fazla satırda aynı kişiye ait bilgiler olacak mı?

 

[kelkitli]

Sayın Korhan Ayhan öncelikle ilgilendiğiniz için çok teşekkür ederim. D sütununda Kişiye ait kaç adet izin varsa tamamı listboxta listelenmesi gerekiyor.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[kelkitli]

Sayın Kohan Bey,
Kusura bakmayın dönüşte geciktim. Kişiye ait tek kaydı listeliyor. Kişiye ait bütün kayıtları izin tarihi olarak alt alta listelememiz lazım.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[kelkitli]

Sayın Üstadım çok teşekkürler ederim.