Sayfa ismi arama

[mafeay]

Merhabalar, aşağıdaki gibi bir vba kodum var. Ben bununla çalışma sayfası isimlerinde arama yapabiliyorum. Ama sayfa ismini tamamen aynı yazmak
zorundayım yoksa bulmuyor. Mesela "BİZİM MARKET" diye bi sayfam var ve ben arama kutusuna "BİZİM" yazınca bulamıyor. Bunu nasıl yapabiliriz?

Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

Sub SearchSheetName()
Dim xName As String
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
sayfa = "yok"
For i = 1 To Sheets.Count
    If WorksheetFunction.Proper(Sheets(i).Name) Like "*" & WorksheetFunction.Proper(xName) & "*" Then
        Sheets(i).Select
        MsgBox "Sheet '" & Sheets(i).Name & "' has been found and selected!"
        sayfa = "bulundu"
        Exit Sub
    End If
Next
If sayfa = "yok" Then
    MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub

 

[mafeay]

@YUSUF44 çok teşekkür ediyorum işe yaradı