Arama Butonu Yardim

[bitmez13]

Örnekte Yardim Edersenİz Sevİnİrİm

 

[Ferhat Pazarçevirdi]

Kodlarınızı aşağıdaki gibi revize ediniz.

Listbox1'in Click olayı için :

Private Sub ListBox1_Click()
Range(ListBox1.List(ListBox1.ListIndex, 1)).Select
End Sub

Textbox'ın Change olayı için

Private Sub TextBox1_Change()
Dim SUT, S  As Integer
Dim DEG1, DEG2 As String
ListBox1.Clear
For SUT = 2 To Cells(65536, "A").End(3).Row
    DEG1 = UCase(Replace(Replace(Cells(SUT, "A"), "i", "İ"), "ı", "I"))
    DEG2 = UCase(Replace(Replace(TextBox1, "i", "İ"), "ı", "I"))
    If DEG1 Like "*" & DEG2 & "*" Then
       ListBox1.AddItem
       ListBox1.List(S, 0) = Cells(SUT, "A")
       ListBox1.List(S, 1) = Cells(SUT, "A").Address
       S = S + 1
    End If
Next
End Sub

 

[ozsah]

Ferhat bey yukarıya yazdığınız kodu liste de açılan list boxa uygulayabilirmisiniz. ayrıca eğer basit ise sizin için listede görünenleri kenarından çekip hücreye mause ile aktarabilirmiyiz.