ListBox da sıralama

[polis-53]

Merhaba Arkadaşlar ekte gönderdiğim dosyaya ComboBox3 e Hangi Bölgeyi seçersem o bölgedeki Bayileri ListBox1 e göstersin istiyorum bir yardımcı olursanız çok sevineceğim.
iyi çalışmalar.

 

[asi_kral]

Merhaba Arkadaşlar ekte gönderdiğim dosyaya ComboBox3 e Hangi Bölgeyi seçersem o bölgedeki Bayileri ListBox1 e göstersin istiyorum bir yardımcı olursanız çok sevineceğim.
iyi çalışmalar.

Merhaba
Bu Kodu userform'un kod bölümüne kopyalayın ve deneyin.

Private Sub ComboBox3_Change()
'Konu       :   Seçilen Bölgeye Göre Listeleme
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As New Collection, a As Range, _
say As Worksheet
Set say = Sheets("İller")
On Error Resume Next
For asi = 2 To say.Cells(Rows.Count, "B").End(xlUp).Row
If say.Cells(asi, "B") = ComboBox3 Then
kral.Add say.Cells(asi, "C"), CStr(say.Cells(asi, "C"))
End If: Next
ListBox1.Clear
For Each a In kral
ListBox1.AddItem a
Next
End Sub

Dosyanız Ekte.

 

[polis-53]

teşekkür ederim asri kral sağolun

 

[asi_kral]

teşekkür ederim asri kral sağolun

Kolay Gelsin.

 

[polis-53]

asi_kral_1967

merhaba kusura bakma bir sorunla karşılaştım bayı adı şeçildiğinde veri sayfasında veri seçilen bayinin kaydı yoksa bir onceki bayının verilerini gösteriyor eğer veri yoksa textboxları boş göstersin iyi akşamlar.

 

[asi_kral]

merhaba kusura bakma bir sorunla karşılaştım bayı adı şeçildiğinde veri sayfasında veri seçilen bayinin kaydı yoksa bir onceki bayının verilerini gösteriyor eğer veri yoksa textboxları boş göstersin iyi akşamlar.

Yeni konu açarak sorunuzu sorsanız daha iyi olur. Konu karışıyor