tüm sayfada arama yapmak

[tamer060]

Excelde 30 sayfalık çalışmam mevcut bu çalışma kitabında arama yapmak istediğimde ctrl + f tuşu işlevi yapıyor. Benim merak ettiğim a1 hücresine aramak için değer yazarak tüm çalışma kitabında boton yardımı ile arama yapmak için nasıl bir kod kullanmalıyız?

 

[hamitcan]

Sub TumSayfalardaAra()
    Dim sht As Worksheet
    x = 0
    Deger = InputBox("Değeri Girin")
    For Each sht In Worksheets
        If Not sht.Cells.Find(Deger) Is Nothing Then
            x = x + 1
            MsgBox sht.Name & " isimli sayfada mevcut"
        End If
    Next
    If x = 0 Then MsgBox "Aradığınız değer bulunamadı"
End Sub

 

[tamer060]

Teşekkür ederim hamit bey.

 

[tamer060]

HAMİT BEY cancel dediğimde arama işlmine devam ediyor arama kısmını kapatmıyor. Bunu nsl düzeltiriz.

aramadan vazgeçince kod dursun

 

[hamitcan]

Bu satırı değiştirerek dener misiniz ?

If MsgBox(sht.Name & " isimli sayfada mevcut", vbOKCancel) = vbCancel Then Exit Sub