Toggle Button Stay pressed or unpressed even if exiting and re-entering stays where I left it before

[Carlosjunior]

In the example of the video I posted I have a problem:

My toggle button when I exit and re-enter it stays on the userform in green color untill then all right, the problem is when I switch to red color and exit the form it automatically changes to green color instead of getting unpressed in red color where I left it before. Can you help me please. Thanking in advance

 

[Domenic]

One way might be to use a worksheet cell to keep track of the state of your togglebutton. When unloading your userform, record its state in a cell, let's say A1...

ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = Me.ToggleButton1.Value

Unload Me

Then, in the userform initialize event handler, set the state of the togglebutton according to the value in A1...

Me.ToggleButton1.Value = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value

Hope this helps!

 

[Snakehips]

@Carlosjunior Having looked at your previous thread, I'm thinking. maybe you wish to initialise the toggle button based on rows 2:4 being hidden or not?

 

[Carlosjunior]

@Carlosjunior Having looked at your previous thread, I'm thinking. maybe you wish to initialise the toggle button based on rows 2:4 being hidden or not?

Thanks @Snakehips and @Domenic

 

[Snakehips]

@Carlosjunior Not sure if you are now sorted or if the below helps?

My 365 Mac setup does not let me do forms or toggle buttons so its an indication of coding only that works for a checkbox.
Maybe substitute toggle button for checkbox and use logic of Init for your Form initialise code?

Sub CheckBox1_Click()
Dim Rws As Range
Dim Tog As CheckBox
Dim State As Boolean

State = ActiveSheet.Range("2:4").EntireRow.Hidden
Set Tog = Sheets("Sheet1").CheckBoxes("Check Box 1")
Set Rng = Sheets("Sheet1").Range("2:4")
With Tog
    If State Then
        .Caption = "Hide"
        .Interior.Color = vbRed
       .Value = 1
    Else
        .Caption = "Hidden"
        .Interior.Color = vbGreen
        .Value = -4146
    End If
    
    Rng.EntireRow.Hidden = Not State
    .Value = Not State
End With

End Sub

'This would be form initialisation
Sub Init()

Dim Rws As Range
Dim Tog As CheckBox
Dim State As Boolean

State = ActiveSheet.Range("2:4").EntireRow.Hidden
Set Tog = Sheets("Sheet1").CheckBoxes("Check Box 1")
Set Rng = Sheets("Sheet1").Range("2:4")
With Tog
    If Not State Then
        .Caption = "Hide"
        .Interior.Color = vbRed
       .Value = 0
    Else
        .Caption = "Hidden"
        .Interior.Color = vbGreen
        .Value = 1
    End If
    
End With

End Sub

Hope that helps.