Gizli sayfalarda da arama yapabilmek

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
615
Excel Vers. ve Dili
Microsoft 365
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

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,587
Excel Vers. ve Dili
excel2016
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

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
615
Excel Vers. ve Dili
Microsoft 365
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

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,587
Excel Vers. ve Dili
excel2016
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

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
615
Excel Vers. ve Dili
Microsoft 365
Ö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.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Arama opsiyonlarında gizli sayfalarda arama seçenekleri yok bildiğim kadarıyla, ancak kodla arayabilirsiniz.

Kod:
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

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
615
Excel Vers. ve Dili
Microsoft 365
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub Test()
    Call findAllSheets(Sheets("Kasım").Range("A1"))
End Sub
 

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
615
Excel Vers. ve Dili
Microsoft 365
Teşekkür ederim,ellerinize sağlık...
 
Üst