Sayfa İsmi arama

[blue_cry]

Merhabalar elimde 125 sayfalık exel arsivleri bulunmakta

ve ben bu sayfalardan misalen e458z nolu sayfayı bulmak istiyorum

bunu yapabileceğimiz yani sayfa araması yapabileceğimiz bir kod yada makro varmı


yardımcı olursanız cok sevinirim

saygılarımla

 

[Merhum İdris SERDAR]

.

Bunu deneyin.

Sub Sayfabul()

Dim sara As String

sara = InputBox("Sayfa adını giriniz!")

If sara <> vbNullString Then
On Error Resume Next
Sheets(sara).Activate
If Err.Number <> 0 Then MsgBox sara & " diye bir sayfa yok!(: "
On Error GoTo 0
End If

End Sub

.

 

[greyvolf01]

Çok sağ ok ustadım

 

[unforgivenn]

mümkünse bende bişey sormak istiyorum. Sayfa isimleri bir listboxta sıralı ise ve istenilen sayfayı bulamak için bir textbox kullanılsa, textboxa harf girer girmez süzmeye başlasa bu nümkün mü