- Katılım
- 2 Mart 2011
- Mesajlar
- 120
- Excel Vers. ve Dili
-
İşyerinnde Excel 2003
Evde Excel 2010
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
listbox click kodu
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
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
Kod:
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