Ara Bul

[takirti]

Makroda DÜĞme Atama İle Ara Bul Yapabİlİrmİyİz? Control F Yapmak Yerİne Bunu Kullanmak İstİyorum. Makro Katdet İle Denedİm Ama BaŞaramadim. TŞk Ederİm.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub ac()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

 

[takirti]

Saygı duyarız. Ne diyeyim. 5 dk da beşiktaş. (Gerçi ben GS'liyim)

 

[takirti]

Ya üstad. ayıp olmazsa bişi daha sormak istiyorum. verdiğin kodu uyguladım. gayet güzel çalışıyor. Koda bir tuş atadım. Ama tuşun fareyi sürekli takip etmesi mümkünmü?

 

[Levent Menteşoğlu]

Fareyi değil ama imleçi takip edebilir. Yani işlem yapmak için fare ile bir hücre seçmelisiniz.

 

[takirti]

olabilir üstad. bizde yaklaşık 80-90 sayfalık ürün listemiz var. kodları ararken control f tuşu kullanıyoruz. makro tusu daha basit olacak. ayrıca imlecide takip ederse daha güzel olacak. bu arada makro kodlarının hepsi ezberinizde.

 

[Levent Menteşoğlu]

Butonu taşımak yerine aşağıdaki gibi bir kod kullanmak daha mantıklı. Bu konu thisworkbook kod sayfasına kopyalayın. Herhangi bir hücreye çift tıkladığınızda pencere açılacaktır.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

Not:Kodların hepsinin ezberimde olması mümkün değil.

 

[takirti]

tşkler

Süper oldu saol