• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Gizli sayfalarda da arama yapabilmek

Katılım
17 Aralık 2008
Mesajlar
449
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,014
Beğeniler
54
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
 
Katılım
17 Aralık 2008
Mesajlar
449
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,014
Beğeniler
54
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
 
Katılım
17 Aralık 2008
Mesajlar
449
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,327
Beğeniler
27
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
 
Katılım
17 Aralık 2008
Mesajlar
449
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.
 
Üst