combobox'a göre listbox da veri secimi

Katılım
5 Şubat 2009
Mesajlar
188
Excel Vers. ve Dili
Microsoft Office 365
Altın Üyelik Bitiş Tarihi
21-03-2022
merhaba arkadaşlar, combobox ile listbox da veri süzme işlemi yapılan bir cok örnek var fakat benim istedigim combobox a göre listbox daki kolonu mouse ile secer gibi select yapması. var mıdır bunun cözümü.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Örnek dosya ekleyiniz.:cool:
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Bir örnek verirmisiniz comboboxtan neyi seçersek listboxta seçilecek satır o olsun.Bu arada sütun seçilemez,satır seçilebilir.:cool:
 
Katılım
5 Şubat 2009
Mesajlar
188
Excel Vers. ve Dili
Microsoft Office 365
Altın Üyelik Bitiş Tarihi
21-03-2022
Bir örnek verirmisiniz comboboxtan neyi seçersek listboxta seçilecek satır o olsun.Bu arada sütun seçilemez,satır seçilebilir.:cool:
mesela combobox da ALL-01-KK-14 secildigil zaman activite kodundaki ALL-01-KK-14 nin oldugu satır secilsin yani birinci satır.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
mesela combobox da ALL-01-KK-14 secildigil zaman activite kodundaki ALL-01-KK-14 nin oldugu satır secilsin yani birinci satır.
Dosyanız ektedir.:cool:
Kod:
Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then ListBox1.ListIndex = -1: Exit Sub
ListBox1.ListIndex = -1
For i = 0 To ListBox1.ListCount - 1
    If ComboBox1.Value = ListBox1.Column(4, i) Then
        ListBox1.ListIndex = i
        Exit For
    End If
Next i

End Sub
 

Ekli dosyalar

Katılım
5 Şubat 2009
Mesajlar
188
Excel Vers. ve Dili
Microsoft Office 365
Altın Üyelik Bitiş Tarihi
21-03-2022
Dosyanız ektedir.:cool:
Kod:
Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then ListBox1.ListIndex = -1: Exit Sub
ListBox1.ListIndex = -1
For i = 0 To ListBox1.ListCount - 1
    If ComboBox1.Value = ListBox1.Column(4, i) Then
        ListBox1.ListIndex = i
        Exit For
    End If
Next i

End Sub
Çok tesekkürler,
 
Üst