Villkora visning av knapp i excel

[hockey2]

Hej!

 

Jag har en makroknapp och vill att denna visas när en cell uppfyller ett visst villkor, annars vill jag att den ska vara dold.

 

Någon som vet hur man kan göra detta??

 

Håkan A

[XL-Dennis]

Hej hockey21,

 

Om du använder dig av knappen från Formulärverktygsfältet så:

 

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sShape As Shape

Set Target = Me.Range("A1")
Set sShape = Me.Shapes(1)

If Target.Value = 1 Then
    sShape.Visible = msoTrue
Else
   sShape.Visible = msoFalse
End If

End Sub

 

Om du använder dig av kommandknappen från Kontrollverktygsfältet så:

 

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim obButton As Object

Set Target = Me.Range("A1")
Set obButton = Me.CommandButton1

If Target.Value = 1 Then
   obButton.Visible = msoTrue
Else
   obButton.Visible = msoFalse
End If

End Sub

 

Båda lösningarna kopieras till modulbladet för det aktuella arbetsbladet.

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

[hockey2]

Tackar det funkar utmärkt!

 

Håkan A