listboxı combobox gibi kullanma

[uguristanbul]

degerli arkadaslar
asagıdaki ekli dosya list box var
list box kolon sayısı 9 a bolunmustur yapılmak istenen se
ornegin stok kodu adı altındaki kolonlardan hangi satıra cift tıklanırsa sayfa 2 deki ahucresinin degerlerini gorup oradan gerekli olanı almak bu stok kodu ile liste fiyatrına kadar otomatik olmalı oysa satırdaki diger bilgileri ki(ornegin miktar ) elle girebilirmiyim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[uguristanbul]

hocam istedigim bu degildi

hocam ilginize tesekkur ederim ancak
istedigim bu degildi tam olarak soyle bişey(işallah anlatırım)
formu actan list boxı acıyoruz
karısmıza list box cıkıyor
ornegin (listbox satırlarını satır ve sutun gibi dusunelim)
stok kodu altındaki ilk hucreye cift tıklayacagım ve (yani a1 hucresine tıklar gibi) cift tıklandıgında sayfa 2 deki a kolonunu gostersin ancak o listbox hucresinede yazılması gerekiyor(yani elle yazmak yani sunu demek istiyorum bir combobox dusunun yanındaki dropa tıkladıgımızda nasıl sayfadaki verileri secmek icin getiriyorsa list box taki her satır ve sutunda ayrı ayrı veriler getirmeli
saygılarımla
olabilirmi boyle bir sey bilmiyorum

 

[Orion1]

Ekli dosyayı inceleyiniz.
Sanırım doğru anladım.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:E" & Cells(65536, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
   Cancel = True
    If UserForm1.Visible = False Then Exit Sub
    UserForm1.ListBox1.AddItem
    For i = 1 To 5
        UserForm1.ListBox1.Column(i - 1, UserForm1.ListBox1.ListCount - 1) = Cells(Target.Row, i).Value
    Next i

End Sub

 

[uguristanbul]

teşekkurler hocam