Koşullu Visible Buton

[baydeniro]

Merhaba arkadaşlar. Bir makro butonunun koşula bağlanması mümkün müdür. Forumda bayağı araştırdım ama bulamadım. Yani bir makro butonunun VISIBLE olması için bir koşula bağlanması durumu. Örnek dosya ektedir. ABUZER isimli butonun visible olabilmesi için H10 hücresinde AD yazması gerekse bu nasıl koda uygulanabilir.

 

[programer]

Sheet1'in Worksheet_Change olayına aşağıdaki kodu yazıp denermisiniz.

Düğme yerine CommandButton kullanılmıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H10") = "AD" Then
CommandButton1.Visible = False
Else
CommandButton1.Visible = True
End If
End Sub

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [H10] = "AD" Then Sheet1.Shapes("Button 1").Visible = 0
If Not [H10] = "AD" Then Sheet1.Shapes("Button 1").Visible = 1
End Sub

 

[baydeniro]

Sayın programer çok teşekkürler.

 

[baydeniro]

Teşekkürler

Sayın Sayit Tiken çok çok teşekkürler. İşte budur. Elleriniz dert görmesin.