sayfa isimleri arasında kelime aramak.

[bycakir]

merhabalar

ekte yer alan excell u bir user form koydum örnek kucuk fakat dosyanın orjinalı 350 400 sayfaya yakın listbox a sayfa isimlerini çağırıyporum fakat arama ile aranacak kelimeyi içeren sayfaların listesini alamıyorum. ornek renoutl yazdım diyelim renould adı gecen saffalar listelensin istiyorum . daha sonrada listede çif tıkladıgım sayfa başlıgına ait sayfa verileri te xtbox lara dagılsın duruma göre güncelleyeyim veya yeni sayfa ekleyeyim. umarım anlatabilmişimdir.

 

[ÖmerFaruk]

Başlıktaki sorunuza cevap
Arama butonu kodlarınızı aşağıdaki şekilde kullanabilirsiniz.

Private Sub CommandButton1_Click()
Dim Listem()
    For i = 1 To Worksheets.Count
        If InStr(1, Worksheets(i).Name, UCase(TextBox1.Value)) Then
        say = say + 1
        ReDim Preserve Listem(1 To say)
        Listem(say) = Worksheets(i).Name
        End If
    Next i
    If say > 0 Then
        ListBox1.Clear
        ListBox1.List = Listem
    Else
        MsgBox "Aranılana uygun sayfa bulunamadı"
    End If
End Sub