Gizli sayfalarda da arama yapabilmek

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
453
Beğeniler
0
Excel Vers. ve Dili
2003
#1
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,228
Beğeniler
103
Excel Vers. ve Dili
excel2013
#2
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
453
Beğeniler
0
Excel Vers. ve Dili
2003
#3
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,228
Beğeniler
103
Excel Vers. ve Dili
excel2013
#4
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
453
Beğeniler
0
Excel Vers. ve Dili
2003
#5
Ö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

Katılım
9 Mart 2005
Mesajlar
2,559
Beğeniler
134
Excel Vers. ve Dili
Excel 2003-tr
#6
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
453
Beğeniler
0
Excel Vers. ve Dili
2003
#7
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.
 
Katılım
9 Mart 2005
Mesajlar
2,559
Beğeniler
134
Excel Vers. ve Dili
Excel 2003-tr
#8
Kod:
Sub Test()
    Call findAllSheets(Sheets("Kasım").Range("A1"))
End Sub
 

cavanoos

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