Bul Penceresinin Kapatılması

[Seyit Tiken]

S.A
Arkadaşlar bu kodla;

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

Bul Penceresini açıyorum. Bul işlemi gerçekleştikten sonra pencere kapansın(kod ile).
Allah razı olsun, teşekkür ediyorum.

 

[Korhan Ayhan]

@Seyit Tiken,

"Bul işlemi gerçekleştikten sonra" bölümünü excele nasıl anlatacağız. Sonuçta "Tümünü Bul" ya da "Sonrakini Bul" butonlarına elle basıyorsunuz. Benim aklıma şöyle bir çözüm geldi. Mesela BUL penceresini açtıktan 15 saniye sonra otomatik kapanması sağlanabilir.

Ben olsam kendi BUL formumu kendim hazırlar ve kullanırdım. Böylece yönetmesi daha kolay olurdu.

 

[Seyit Tiken]

Sonrakini Bul'dan sonra anlık olarak kapanması gerek; sizin söylediğiniz şekilde UserFormu B planı olarak düşünüyorum, teşekkür ediyorum...

 

[Korhan Ayhan]

Eğer bulmak istediğiniz veri sabit bir veri ise SENDKEYS metodu ile çözüm üretilebilir.

 

[Seyit Tiken]

Korhan bey veriler sabittir, SENDKEYS ile ne kadar pratik olur denemek lazım diye düşünüyorum.
Bul Penceresinin Çalışma Kitabı olarak açılması ile ilgili SENDKEYS işe yaramıştı.

 

[Korhan Ayhan]

Karar sizin...

 

[Korhan Ayhan]

Aşağıdaki kod ile;

Sendkeys yöntemi ile BUL penceresi açılıyor. "İçinde" bölümü için "Çalışma Kitabı" parametresi seçiliyor.
"Aranan" ifadesini arıyor 2 saniye bekleme yapıyor ve sonrasında BUL penceresi kapanıyor.

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
            SendKeys "Aranan", True
            SendKeys "{enter}"
            Application.Wait Now + TimeSerial(0, 0, 2)
            SendKeys "{Esc 2}"
        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
            SendKeys "Aranan", True
            SendKeys "{enter}"
            Application.Wait Now + TimeSerial(0, 0, 2)
            SendKeys "{Esc 2}"
    End Select
End Sub

 

[Seyit Tiken]

Korhan bey çok teşekkür ediyorum, şöyle bir durum oluştu, time'den dolayı herhalde, maus kilitleniyor, Bul penceresine müdahale edilemiyor.

 

[Korhan Ayhan]

O satırları silebilirsiniz.