Listboxtan sabit bir sutuna veri aktarma

[Zahir]

İyi günler;
Ekli dosyada listboxa gelen müşteri listesinden seçtiğim müşterilerin kodlarını çift tıklama ile aktif sayfanın aktif hücresine aktarıyorum. Ancak müşteri kodu sabit bir sutunda olduğundan yapmak istediğim hangi hücrede olursam olayım kodun aktif olan satırın B stununa yazması.
Örnek : H4 hücresindeyken listboxtaki müşteriyi çift tıkladığımda o müşteriye ait kodu B4 hücresine yazacak.
Yardımlarınız için teşekkür ederim.

 

[İhsan Tank]

İyi günler;
Ekli dosyada listboxa gelen müşteri listesinden seçtiğim müşterilerin kodlarını çift tıklama ile aktif sayfanın aktif hücresine aktarıyorum. Ancak müşteri kodu sabit bir sutunda olduğundan yapmak istediğim hangi hücrede olursam olayım kodun aktif olan satırın B stununa yazması.
Örnek : H4 hücresindeyken listboxtaki müşteriyi çift tıkladığımda o müşteriye ait kodu B4 hücresine yazacak.
Yardımlarınız için 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)
Dim sat As Long, deg As Variant
sat = Sheets("Liste1").Cells(65536, "A").End(xlUp).Row
deg = ListBox1.Column(0)
Set k = Range("A2:A" & sat).Find(deg, , xlValues, xlWhole)
Cells(ActiveCell.Row, "B") = deg
ActiveCell.Offset(1, 0).Activate
End Sub
Private Sub UserForm_Initialize()
sat = Sheets("Liste1").Cells(65536, "A").End(xlUp).Row
With ListBox1
.ColumnCount = 9
.ColumnHeads = True
.RowSource = "'Liste1'!A2:I" & sat
End With
ListBox1.ColumnWidths = "0;150;30;50;50;50;50;50;50"
End Sub

 

[Zahir]

İhsan Bey çok teşekkür ederim ellerinize sağlık.

 

[İhsan Tank]

İhsan Bey çok teşekkür ederim ellerinize sağlık.

Rica ederim
:keyif: