CommandButton gizleme

[ahmett46]

Slm arkadaşlar
CommandButtonlardan oluşan tuş takımı oluşturdum. Yapmak istediğim bu tş takımını gizli tutmak. İlgili hücreye tıkladığımda açılmasını istiyorum. başka bi hücreye tıkladığımda ve ya tuş takımında bulunan * tuşuna tıkladığımda gizlenmesini istiyorum mümkün mü? Dosya ektedir. Teşekkürler...

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$17" Then
    Calendar1.Visible = True
    Else
    Calendar1.Visible = False
    
        If Target.Address = "$A$18" Then
        ActiveSheet.Shapes("Group 65").Visible = True
        Else
        ActiveSheet.Shapes("Group 65").Visible = False
        End If
End If
End Sub

 

[ahmett46]

Private Sub Worksheet_SelectionChange(ByVal Target As Range
daha önce kullandığım için hata veriyo

 

[ahmett46]

Tamam hocam beraber kullandım oldu Teşekkürler