Listbox'tan müşteri kodunu getirme

[Zahir]

Merhabalar;
Daha önceden yine bu forum vasıtasıyla yapılmış bir listboxım var ve bu listboxa gelen müşteri isimlerini çift tıkladığımda o müşterinin kodu istediğim excel hücresine yazdırabiliyorum. Çok işime yarayan bu uygulamada aynı müşteri isimleri sözkonusu olduğunda çift tıkladığım müşterinin kodu olarak aynı isimdeki ilk müşterinin kodu geliyor. Buna çözüm olarak listboxa sadece müşteri isimlerini değilde kodu da dahil o müşteriye ait tüm bilgileri getirip o şekilde seçim yaparak kodunu getirtebilirmiyiz. Dosyayı açtığınızda anlatmak istediğimi daha net anlayacaksınız. Yardımlarınız için şimdiden teşekkür ederim.

 

[İhsan Tank]

Merhabalar;
Daha önceden yine bu forum vasıtasıyla yapılmış bir listboxım var ve bu listboxa gelen müşteri isimlerini çift tıkladığımda o müşterinin kodu istediğim excel hücresine yazdırabiliyorum. Çok işime yarayan bu uygulamada aynı müşteri isimleri sözkonusu olduğunda çift tıkladığım müşterinin kodu olarak aynı isimdeki ilk müşterinin kodu geliyor. Buna çözüm olarak listboxa sadece müşteri isimlerini değilde kodu da dahil o müşteriye ait tüm bilgileri getirip o şekilde seçim yaparak kodunu getirtebilirmiyiz. Dosyayı açtığınızda anlatmak istediğimi daha net anlayacaksınız. Yardımlarınız için şimdiden teşekkür ederim.

merhaba userform'un kod bölümündeki kodları bununla değiştirin

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Müşteri_Listesi").Select
ts = ListBox1.ListIndex + 2
ListBox1.RowSource = ""
ActiveCell.Value = Cells(ts, "A")
UserForm_Initialize
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "20;60"
ListBox1.RowSource = "Müşteri_Listesi!A2:B" & Sheets("Müşteri_Listesi").Range("A65536").End(xlUp).Row
End Sub

Not : Müşteri Listesi sayfasının adını Müşteri_Listesi olarak değiştirin

 

[Orion1]

Dosyanız ektedir.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim sat As Long, deg As Variant
sat = Sheets("Müşteri Listesi").Cells(65536, "A").End(xlUp).Row
deg = ListBox1.Column(0)
Set k = Range("A2:A" & sat).Find(deg, , xlValues, xlWhole)
If Not k Is Nothing Then MsgBox deg
End Sub

Private Sub UserForm_Initialize()
sat = Sheets("Müşteri Listesi").Cells(65536, "A").End(xlUp).Row
With ListBox1
    .ColumnCount = 9
    .ColumnHeads = True
    .RowSource = "'Müşteri Listesi'!A2:I" & sat
End With
End Sub

 

[Zahir]

Sayın İhsan TANK ve Sayın Orion1 ikinizide ilgilendiğiniz için çok teşekkür ederim gerçekten çok güzel oldu. Ellerinize sağlık.

 

[İhsan Tank]

Sayın İhsan TANK ve Sayın Orion1 ikinizide ilgilendiğiniz için çok teşekkür ederim gerçekten çok güzel oldu. Ellerinize sağlık.

rica ederim
Syn : Orion1 Hocam'ada çok teşekkür ederim. Örnekleri ile bizleri aydınlatmaya devam ediyor.
:yazici: