Soru Tüm Sayfalarda Bul

[Seyit Tiken]

S.A, Arkadaşlar aşağıdaki görseli şu kodla açıyorum,

Application.CommandBars.FindControl(ID:=1849).Execute

Çalışma Kitabını seçiyorum > kaydediyorum, lakin kitabı kapatıp tekrar açtığımda Çalışma Sayfası olarak değişiyor, bunu Çalışma Kitabı olarak nasıl sabitleyebiliriz?, teşekkür ediyorum, Allah razı olsun.

 

[Korhan Ayhan]

@Seyit Tiken,

Dosya açıkken bu ayarı yapınca ve tekrar CTRL+F tuşlarına basınca bahsettiğiniz bölüm sabit kalıyor.

Ama dosyayı kapatıp açtığınızda varsayılan ayara tekrar geri dönüyor.

Eğer çok gerekliyse makro ile bu pencereyi açtırıp ilgili seçim yaptırılabilir diye düşünüyorum.

 

[Seyit Tiken]

Korhan bey teşekkür ediyorum, Allah razı olsun...
Çözümü şu kod ta buldum.

Application.Dialogs(xlDialogFormulaFind).Show

 

[Murat OSMA]

Eğer çok gerekliyse makro ile bu pencereyi açtırıp ilgili seçim yaptırılabilir diye düşünüyorum.

Örnek bağlantı ile destek; https://superuser.com/questions/204068/set-excel-to-search-within-entire-workbook-by-default

 

[Korhan Ayhan]

@Seyit Tiken,

Bu kodu tek başına denediğimde farklı bir BUL penceresi açıyor.

 

[Seyit Tiken]

Murat bey teşekkür ediyorum, Linkini verdiğiniz sitedeki şu kodu denedim, bir ara oldu gibi, daha sonra bir düzelme olmadı.

SendKeys "^f", True
SendKeys "{TAB 7}"
SendKeys " ", True
SendKeys "{ESC}", True
SendKeys "^f", True
SendKeys "{TAB 2}", True
SendKeys "{DOWN}{DOWN}{ENTER}"
SendKeys "^f", True
SendKeys "%t", True

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Bul()
    Dim Ofis_Dili As Byte
    
    Ofis_Dili = Application.International(xlCountryCode)

    Application.CommandBars.FindControl(ID:=1849).Execute
    Select Case Ofis_Dili
        Case 1 'İngilizce Ofis Kullananlar
            SendKeys "%t", True
            SendKeys "{tab}{enter}", True
            SendKeys "{tab 2}", True
            SendKeys "{down 2}{enter}", True
            SendKeys "+{tab 2}", True
        Case 90 'Türkçe Ofis Kullananlar
            SendKeys "%k", True
            SendKeys "{tab}{enter}", True
            SendKeys "{tab 2}", True
            SendKeys "{down 2}{enter}", True
            SendKeys "+{tab 2}", True
    End Select
End Sub

 

[Seyit Tiken]

Korhan bey tam çözüm, teşekkür ediyorum, yabancı sitedeki cevaplar yarım yamalaktı kullanışlı değildi, gayet güzel oldu. Allah razı olsun.