Listbox'a Combobox'taki Değere Göre Veri Ekleme

[quesh]

Merhabalar arkadaşlar.

Ekteki dosyada açılan Userformda "Ad Seçin" altındaki Comboboxtan bir ad seçildiği anda o ada karşılık gelen Yeri ve Tarihi verilerinin Sayfa1'de B ve C sütunlarından alınıp Userformdaki ilgili Listboxlarda listelenmesini nasıl sağlayabililrim?.

Yardımlarını için şimdiden teşekkür ederim.

 

[quesh]

Şu şekilde çözebildim. Merak eden arkadaşlar varsa deneyebilirler.

For i = 2 To Cells(65536, "A").End(xlUp).Row
If Sheets(1).Cells(i, 1) = ComboBox1.Value Then
ListBox1.AddItem Cells(i, 2).Value
End If
Next i

 

[camelmoonbull]

Merhaba sayın quesh,

Bulduğunuz çözümü de burada paylaştığınız için çok teşekkürler. Ben de buna benzer bir konuda çözüm arıyorum... Fakat çözümünüzü dosyanıza uyguladığımda "ADI SEÇİN" kısmında herhangi bir isim belirmiyor. Dolayısıyla "YERİ" ve "TARİHİ" listeleri de dolmuyor. Bir öneriniz var mıdır?

Private Sub UserForm_Initialize()
Sheets(1).Select

Dim i As Long
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If Sheets(1).Cells(i, 1) = ComboBox1.Value Then
    ListBox1.AddItem Cells(i, 2).Value
    End If
Next i

End Sub