ComboBox'tan ListBox'a Veri almak

[muhammethezer]

Arkadaşlar sizlerden bir racam var. Excel Sayfa1 üzerinde bir adet ComboBox ve bir adet ListBox var. ComboBoxtan seçtiğim veriye göre ListBoxa "Kayıtlar!C2:C" kolonundan veri almak istiyorum Yardımcı olabilir misiniz?

 

[Ömer BARAN]

Merhaba.

Private Sub ComboBox1_Change()
Set k = Sheets("Kayıtlar"): Set f = Sheets("Form")
f.ListBox1.ListFillRange = "": f.ListBox1.Clear
For ksat = 2 To k.Cells(Rows.Count, "A").End(3).Row
    If k.Cells(ksat, "C") = f.ComboBox1 Then f.ListBox1.AddItem k.Cells(ksat, "B")
Next
End Sub

 

[Orion1]

Dosyanız ektedir.

 

[muhammethezer]

Merhaba.

Private Sub ComboBox1_Change()
Set k = Sheets("Kayıtlar"): Set f = Sheets("Form")
f.ListBox1.ListFillRange = "": f.ListBox1.Clear
For ksat = 2 To k.Cells(Rows.Count, "A").End(3).Row
    If k.Cells(ksat, "C") = f.ComboBox1 Then f.ListBox1.AddItem k.Cells(ksat, "B")
Next
End Sub

Merhaba Ömer Hocam, Cevabınız için teşekkür ederim.
Hocam, Benim yapmak istediğim bir işlem var. Kısaca özetlersem;
İzlemeSayfası isimli bir sayfam var, bu sayfada sahadan gelen verilerin takibini anlık olarak yapmak istiyorum.
Sayfa üzerinde Mahalle Başkanı, Kadın kolları şeklinde Image1, Image2, Image3 şeklinde resim kutuları ve Katılımcıların bilgilerinin geleceği Adı, Soyadı, Görevi, Telefonu bilgilerinin geleceği başlıklar mevcut. Bu başlıklara veriler Kayıtlar sayfasına her kayıt işlemi yapıldığında otomatik olarak verilerin gelmesini sağlamak istiyorum. Sayfayı Refresh edecek kodları ekledim ama Kayıtlar sayfasına bağlantısını yapamadım. Yardımcı olabilir misiniz?

Sub SaveWb()
ThisWorkbook.RefreshAll
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:00:10"), "SaveWb"
End Sub


Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "SaveWb"
End Sub

 

[muhammethezer]

Merhaba değerli arkadaşlar.
Acaba #4 başlık için fikir verebilecek değerli hocalarım yardımcı olabilirler Mi?