enter tuşu ile makro çalıştırma.

[kahramang1]

Merhabalar. Ekli makronun "enter" tuşuna basınca ne yapmam gerektiği konusunda yardımcı olursanız çok memnun olurum. Kolay gelsin.
Sub HastaBul()
'
' HastaBul Makro
'

'
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("A6:I1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:F2"), Unique:=False
Range("A2").Select
End Sub

 

[muhasebeciyiz]

Private Sub Worksheet_Change(ByVal Target As Range)   
    If Not Intersect(Target, Me.Range("A2")) Is Nothing Then       
        If Target.Value <> "" Then           
            Call HastaBul
        End If
    End If
End Sub

Bu şekilde, A2 hücresine yazı yazdığınızda ve Enter tuşuna bastığınızda HastaBul makrosu çalışacaktır. Eğer A6:I1000 aralığına da benzer bir işlev eklemek isterseniz, kodu daha da özelleştirebilirsiniz.

 

[kahramang1]

Bilgiyi eksik yazmşım. Kusura bakmayın. A2 hücresine bir değer yazıp, makro atadığım düğmeye basınca filitreleme yapıyor. Benim amacım A2 hücresine herhangi bir değer yazıp Enter tuşuna basınca filitrelemenin başlamasını rica ediyorum. Teşekkürler.

 

[muhasebeciyiz]

2 nolu mesajdaki güncel kodu tekrar deneyiniz

 

[kahramang1]

Merhabalar. Ben bişeyleri hatalı yapıyorum galiba. dosyayı ekte gönderdim. İncelerseniz çok memnun olurum. Kolay gelsin.

 

[muhasebeciyiz]

hasta bul makrosu çalışmakta, A2 ye yazıp enterlediğinizde sorgulama yapmakta ayrıca filitre sil komutları eklendi deneyiniz

 

[kahramang1]

Filitre sil komutu düğmeye basınca mı çalışıyor?

 

[muhasebeciyiz]

A2 hücresine bilgi girip entere basıldığında makro tetiklenip sonuçları listelemektedir
A2 hücresine bilgi girip hasata bul butonuna basıldığında sonuçları listelemektedir
Filitre sil butonuna basıldığında listenin başına dönmektedir.
Lütfen butonlara basıp deneyimleyiniz

 

[kahramang1]

İlginiz için çok teşekkür ederim. Ellerinize sağlık. Kolay gelsin.