Toggle Button 3 options

JasonBing

New Member
Joined
Aug 6, 2019
Messages
49
I need a macro to assign to an object button (Shape) when pressed it will toggle a specific cell value to change between PLANNED, IN-BUILD and COMPLETE. I have this code but it only gives me two options Any Help would be appreciated.

Regards

Jason Bing

Private Sub CommandButton1_Click()
With Range("A1")
.Value = IIf(.Value = "IN-BUILD", "COMPLETE", "IN-BUILD")
End With
End Sub
 

Eric W

MrExcel MVP
Joined
Aug 18, 2015
Messages
8,804
Try:

Code:
Private Sub CommandButton1_Click()

    Select Case Range("A1").Value
        Case "PLANNED": Range("A1").Value = "IN-BUILD"
        Case "IN-BUILD": Range("A1").Value = "COMPLETE"
        Case "COMPLETE": Range("A1").Value = "PLANNED"
    End Select
    
End Sub
 

Forum statistics

Threads
1,078,367
Messages
5,339,783
Members
399,323
Latest member
letitiaysk

Some videos you may like

This Week's Hot Topics

Top