Listboxta süzdükten sonra textboxa veri alma

[djoguzz]

Herkese merhaba

aşağıdaki kod ile textbox içinde arama yaparak verileri süzebiliyorum. Ancak bulduğum veriye tıkladığımda listboxa değişik bir ürünün bilgileri geliyor.

arama yaptığım kod

Private Sub TextBox8_Change()
If TextBox8.Text = "Stok aramak için çift tıklayınız" Then
Exit Sub
End If
If ComboBox5.Text = "" Then
MsgBox "Ürün arama kriteri boş olamaz!", vbCritical
Exit Sub
End If

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 4, 1 To 1)
If TextBox8.Text = "" Then
ListStokGiris.RowSource = "satis!k2:t" & [satis!k65536].End(3).Row
Exit Sub
End If
With Worksheets("satis")
ListStokGiris.RowSource = ""
    'Show all records of Database on Sheet1
    If .FilterMode Then .ShowAllData
    Set k = Sheets("satis").Range("k2:t65536").Find(TextBox8.Text & "*", , xlValues, xlPart)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 4, 1 To a)
            For j = 1 To 3
                myarr(j, a) = .Cells(k.Row, j + 10).Value
            Next j
            Set k = Sheets("satis").Range("k2:t65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ListStokGiris.Column = myarr
    End If
End With
End Sub

listbox click kodu

Private Sub ListStokGiris_Click()
Sheets("satis").Select
CommandButton2.Visible = True
Cells(ListStokGiris.ListIndex + 2, 1).Select
TxtStokAlisKayitNo.Text = Cells(ActiveCell.Row, "K")
TxtStokMalinCinsi.Text = Cells(ActiveCell.Row, "L")
TxtStokSasiPlakaSeri.Text = Cells(ActiveCell.Row, "M")
TxtStokModel.Text = Cells(ActiveCell.Row, "N")
TxtStokAlisTutari.Text = Cells(ActiveCell.Row, "O")
TxtStokAlisTarihi.Text = Cells(ActiveCell.Row, "P")
TxtStokBulunduguYer.Text = Cells(ActiveCell.Row, "Q")
TxtStokKimdenAlindigi.Text = Cells(ActiveCell.Row, "R")
TxtStokAciklama.Text = Cells(ActiveCell.Row, "T")
Label68.Caption = TxtStokMalinCinsi
Label67.Caption = TxtStokSasiPlakaSeri
Label66.Caption = TxtStokModel
Label65.Caption = TxtStokAlisTutari
Label64.Caption = TxtStokAlisTarihi
Label19.Caption = TxtStokBulunduguYer
Label18.Caption = TxtStokKimdenAlindigi
Label62.Caption = TxtStokAciklama

End Sub

 

[djoguzz]

yokmudur yardımcı olabilecek birisi arkadaşlar ?

 

[djoguzz]

konuya bakabilecek bir var mı ?

 

[canerbulut]

benzer konuda benimde yardıma ihtiyacım var

excel sayfalarında yazılı olan verileri seçilen sayfa adına göre userformda yerlerine (textbox veye listbox içine ) nasıl yazdırabilirim.
mesela poz no dan sayfa adı"2200-k" seçilince o sayfadaki veriler aynen userformda oluşsun istiyorum. bir örnek aydınlatıcı olur. yardımcı olabilirseniz sevinirim...