Eğer ile buton tıklama

[muratgunay48]

Arkadaşlar. Aslında örnek dosya koymaya çalışırım ama, örnek bile yok kafamda.
Şöyle ki. Sayfa1 A1 hücresine rakam yazacağım. Mesela 50 ve üzeriyse Bir buton var. Ona tıklansın.
Rakam değişken 48 yazarsam bir şey olmasın.
Şimdiden teşekkür ederim.

 

[muratgunay48]

Bunun için kod gerekli sanırım.
Şöyle çok basit bir örnek dosya yapayım dedim ama.

 

[Haluk]

Sayfa1 kod modülüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        If Range("A1") >= 50 Then Call Düğme1_Tıkla
    End If
End Sub

.

 

[muratgunay48]

Sayfa1 kod modülüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        If Range("A1") >= 50 Then Call Düğme1_Tıkla
    End If
End Sub

.

Hocam çok teşekkür ederim. Aradığım tam da buydu. >=50 olursa tıkla olmazsa ne yap kısmını çözememiştim.
Nice mutlu senelere.
Saygılarımla.