Girilen Hücreye Göre Makro Çalıştırılması

[serkancicek]

Kolay gelsin. Aslında çok kolay fakat o kadar işlemi yaptıktan sonra bir program oluşturdum. Tabiki kafam karıştı. Sizden şöyle bir yardım talebim olacak; programımda makrolar var ve düğme atama istemiyorum. Mesela "A1" hücresine değer girdiğimde makronun çalışmasını istiyorum. Değer herhangi bir değer olabilir. Metin - rakam. Şimdiden teşekkürler.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    Düğme3_Tıklat
End Sub
Private Sub Düğme3_Tıklat()
    MsgBox "Düğme3_Tıklat makrosu çalışdı. "
End Sub

 

[serkancicek]

Olmadı

Teşekkür ediyorum. Ancak örneğini uyguladığımda hata verdi. Örnek dosya ekledim. Dosyadan yardımcı olursanız memnun olurum. Kolay gelsin.

 

[hamitcan]

Not:Giriş sayfasının kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$E$3" Then Exit Sub
    Düğme3_Tıklat
End Sub
Private Sub Düğme3_Tıklat()
    ActiveSheet.Range("$18:$24").AutoFilter Field:=1, Criteria1:="1"
End Sub

 

[serkancicek]

Teşekkür Ederim

Teşekkür ederim. İşimi gördü İyi çalışmalar.