userformda seçeneğe göre arama yapmak

[muratcx]

Merhaba arkadaşlar userform da 2 adet optionbutton var seçeneğe bağlı olarak Textboxa girdiğimiz veriyi Kayıt adlı sayfada süzüp bulunan değerleri listboxlara aktarmak istiyorum geniş anlatım ekli dosyada mevcut yardımlarınızı rica ediyorum.

 

[muratcx]

Merhaba arkadaşlar 1 nolu mesajımdaki sorunumu çözemedim yardım edebilecek arkadaş var mı?

 

[halit3]

bu kodu denermisiniz.?

Private Sub CommandButton1_Click()
Dim k As Range, adr As String, X As Long, sh As Worksheet
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
If TextBox1.Text = "" Then Exit Sub
Set sh = Sheets("KAYIT")
If OptionButton1.Value = True Then
j = 2
Else
j = 3
End If
For i = 1 To 3
X = 0
Set k = sh.Range(sh.Cells(3, j), sh.Cells(Columns.Count, j)).Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
adr = k.Address
Do
Controls("ListBox" & i).AddItem
Controls("ListBox" & i).List(X, 0) = Format(sh.Cells(k.Row, j - 1).Value, "dd.mm.hh:mm:ss")
Controls("ListBox" & i).List(X, 1) = sh.Cells(k.Row, j).Value
X = X + 1
Set k = sh.Range(sh.Cells(3, j), sh.Cells(Columns.Count, j)).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If
j = j + 4
Next

End Sub

 

[muratcx]

Halit hocam ilginize çok teşekkür ederim verdiğiniz kodlarla optionbutton1 seçili(SİCİL) iken istediğim gibi listboxlarda solda kayıt tarihi sağda ürün kod numarası görüntüleniyor burda sorun yok(kodda ufak bir değişiklik yaptım) Ancak optionbutton2(ürün koduna göre)seçildiğinde textboxa ürün kodunu yazıp listboxlarda aynı mantıkla solda kayıt tarihini sağda kaydı yapan sicili görüntülemeliyim çok uğraştım yapamadım yardımlarınızı rica ediyorum
dosyanın son hali ektedir

 

[halit3]

bunu denermisiniz.

Private Sub CommandButton1_Click()
Dim k As Range, adr As String, X As Long, sh As Worksheet
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
If TextBox1.Text = "" Then Exit Sub
Set sh = Sheets("KAYIT")
If OptionButton1.Value = True Then
j = 2
ekle = 2
Else
j = 3
ekle = 0
End If

For i = 1 To 3
X = 0
Set k = sh.Range(sh.Cells(3, j), sh.Cells(Columns.Count, j)).Find(TextBox1.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
adr = k.Address
Do
Controls("ListBox" & i).AddItem
Controls("ListBox" & i).List(X, 0) = Format(sh.Cells(k.Row, j - 1).Value, "dd.mm.yyyy hh:mm")
Controls("ListBox" & i).List(X, 1) = sh.Cells(k.Row, j - 1 + ekle).Value
X = X + 1
Set k = sh.Range(sh.Cells(3, j), sh.Cells(Columns.Count, j)).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If
j = j + 4
Next
End Sub

 

[muratcx]

Halit hocam eline emeğine sağlık tam istediğim gibi olmuş

 

[halit3]

iyi çalışmalar