Search butonu yaratma

[sadolayn]

Iyi çalışmalar arkadaşlar
ek te paylaştım elimde bir liste var yaklaşık 1000 satırlık sizden ricam search butonu yaratmanız yanı ısmı yazdıgımda benzer ısımler suzulecek örneğin "izm" yazınca search kısmına otomatik izmir ve izmit gelicek bilmem anlatabildim mi

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim k As Range, adr As String, sat As Long, j As Long
ListBox1.Clear
If TextBox1.Text = "" Then
    MsgBox "Lütfen Ara kutusuna bir değer giriniz!!", vbCritical, "U Y A R I"
    TextBox1.SetFocus
    Exit Sub
End If
sat = Cells(Rows.Count, "B").End(xlUp).Row
Set k = Range("B1:B" & sat).Find(TextBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox1.AddItem
        ListBox1.Column(0, j) = ActiveSheet.Name
        ListBox1.Column(1, j) = k.Value
        ListBox1.Column(2, j) = k.Address
        j = j + 1
        Set k = Range("B1:B" & sat).FindNext(k)
    Loop While Not k Is Nothing And adr <> k.Address
End If
End Sub

 

[sadolayn]

Bu ektekı dosya yanlıs mı oldu acaba tam ıdrak edemedım d6 ve d9 hucrelerıne cıft tıklayınca userform cıkıyor bu verdıgınız kod kıtap.59.xls baglantılımı acaba bakarmısınız tesekkur ederım

 

[Orion1]

Bu ektekı dosya yanlıs mı oldu acaba tam ıdrak edemedım d6 ve d9 hucrelerıne cıft tıklayınca userform cıkıyor bu verdıgınız kod kıtap.59.xls baglantılımı acaba bakarmısınız tesekkur ederım

Eveet.Yanlışmış!
Tekrar indiriniz.

 

[sadolayn]

tesekkurler elinize saglık tam ıstedıgım gıbı yalnız bırsey sorucagım ben sızın kıtap .59 calısma sayfasından alt +11 yapıp user formu export dıyerek bılgısayarıma alıyorum kendı calısma sayfama import dıyerek alıyorum aram butonuna basınca sıızn kıtap 59 calısma sayfası acılıyor neden acaba napmam lazım sayfa 1 ı komple benım exceldekı calısma sayfama aktaramazmıyım