Gizli sayfalarda da arama yapabilmek

[cavanoos]

Merhaba;

Excel çalışma kitabında devamlı kullandığım 12 sayfam var.
Kullanmadığım ise 50 sayfam var.
Bir kelimeyi arattığımda 12 sayfanın içinde arıyor.
Gizli kalan diğer sayfalarda da nasıl arama yaptırabilirim ?

Yardımcı olabilir misiniz ?

 

[yanginci34]

Merhaba öncelikle kullandığınız 12 sayfayı ilk sıralara alın daha sonra kodunuzun içine aşağıdaki gibi kırmızı yerleri ekleyerek deneyiniz.
Sub (sizin kodunuzun adı) ()
Dim i
Dim j
For i = 13 To Sheets.Count
Sheets(i).Visible = True
Next
----------
---------
sizin kodlarınız bittikten sonra
For j = 13 To Sheets.Count
Sheets(j).Visible = False
Next
End Sub

 

[cavanoos]

Yanginci34;

Sorumu yanıtladığınız için teşekkür ederim.
Fakat benim yazmış olduğum bir kod yok.
Ctrl + F ile arama yapıyorum.
Bu aramanın sonuçlarında gizli sayfalardaki veriler çıkmıyor.
Amacım o

 

[yanginci34]

Yanginci34;

Sorumu yanıtladığınız için teşekkür ederim.
Fakat benim yazmış olduğum bir kod yok.
Ctrl + F ile arama yapıyorum.
Bu aramanın sonuçlarında gizli sayfalardaki veriler çıkmıyor.
Amacım o

Örnek bir dosya yükleyin yardımcı olalım.


GM 8 d cihazımdan Tapatalk kullanılarak gönderildi

 

[cavanoos]

Örnek bir dosya yükleyin yardımcı olalım.


GM 8 d cihazımdan Tapatalk kullanılarak gönderildi

Ekli dosyada iki sayfa var.Birisi gizli.İki sayfada da KALEM kelimesi var.
Ctrl + F ile arama yapıyorum ve gizli olan sayfadaki sonuçlar çıkmıyor.
Amacımız gizli sayfalardaki sonuçları da görüntüleyebilmek.

 

[veyselemre]

Arama opsiyonlarında gizli sayfalarda arama seçenekleri yok bildiğim kadarıyla, ancak kodla arayabilirsiniz.

Sub Test()
    Call findAllSheets("Kalem")
End Sub

Sub findAllSheets(Aranacak As String)
    For Each Sh In ThisWorkbook.Worksheets
        With Sh.UsedRange
            Set c = .Find(Aranacak, , xlValues, xlWhole)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    MsgBox Sh.Name & ":" & c.Address
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
            Set c = Nothing
        End With
    Next
End Sub

 

[cavanoos]

Veyselemre;

Kod için teşekkür ederim.Sonuca ulaştım.
Aradığımız kelime farklı olursa eğer, kodun içine girip değiştirmemiz gerekecek.
Şu şekilde yapabilmemiz mümkün mü ?
Kasım çalışma sayfasının A1 hücresini referans olarak göstermek
Böylece o hücreye aradığım kelimeyi yazmak daha kolay olacaktır.

 

[veyselemre]

Sub Test()
    Call findAllSheets(Sheets("Kasım").Range("A1"))
End Sub

 

[cavanoos]

Teşekkür ederim,ellerinize sağlık...