Gizli sayfalarda da arama yapabilmek

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
462
Excel Vers. ve Dili
2003
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
Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,305
Excel Vers. ve Dili
excel2013
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
462
Excel Vers. ve Dili
2003
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
Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,305
Excel Vers. ve Dili
excel2013
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
462
Excel Vers. ve Dili
2003
Ö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
2,580
Excel Vers. ve Dili
Excel 2003-tr
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
462
Excel Vers. ve Dili
2003
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
2,580
Excel Vers. ve Dili
Excel 2003-tr
Kod:
Sub Test()
    Call findAllSheets(Sheets("Kasım").Range("A1"))
End Sub
 

cavanoos

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