Control Userform labels and buttons with VB macro

[Nitehawkhp]

Hello,

I'm trying to control various labels on a Userform.
Some of the things I want control:

Change color of a button based on whether it has been clicked

Is it possible to make a button visible or invisible by a macro?
I have tried to use the following to accomplish this:

Label56.visible = "False" and
Label56.visible = "True"

However, it doesn't seem to do anything. The label remains visible in all cases.

Is it possible to use a OptionButton as an indicator i.e. "Active" or "Not Active"

Rod

 

[Nitehawkhp]

Ok here is a link to my google drive with the entire workbook included. I think most of you will find it to be pretty archaic to what you all develop, but it's just for me at home to keep track of inventory of parts.

Anyway here is the link.

https://drive.google.com/open?id=1OcOj0VwYlGgJd_yshKmv4R4oYEVCVyxK

Rod

Did the link work? Were you able to get access to the file? Could you download the file and look at it?

 

[Nitehawkhp]

I changed permissions on the file and with this link, I think you should be able to edit the file and store the file back on the drive.

https://drive.google.com/file/d/1OcOj0VwYlGgJd_yshKmv4R4oYEVCVyxK/view?usp=sharing

Please let me know if you have any issues.

Rod

 

[Fluff]

Have you tried Norie's suggestion from post#10?

Also which labels/buttons are you trying to hide?

 

[Trebor76]

Try this as the forms' Initialize event code (currently the last code on the form):

Private Sub UserForm_Initialize()

    Dim lngCounter2 As Long
    Dim MyLabel As String
    
    For lngCounter2 = 56 To 78
        MyLabel = "Label" & lngCounter2
        Controls(MyLabel).Visible = False
    Next lngCounter2

End Sub

 

[Nitehawkhp]

I can't try any of the suggestions.
Everytime I try and display the userform I get:

Run-time error '434':

Object required

I tried to put the excel file on the google drive so everyone here could see what was going on.

I going crazy. It was working fine and then it stopped.

 

[Fluff]

Your form opens quite happily for me.
In the Vb Editor click on Tools > Options > General > and check "Break in class module" > Ok
The try to open the userform, what error do you get & what line of code is highlighted when you click debug?

 

[Norie]

I downloaded the file and the code I posted worked.

 

[Nitehawkhp]

Your form opens quite happily for me.
In the Vb Editor click on Tools > Options > General > and check "Break in class module" > Ok
The try to open the userform, what error do you get & what line of code is highlighted when you click debug?

Fluff,

The reason my userform would not display is because of this code.
It fails on the line in BOLD.

Private Sub UserForm_Initialize()


    Dim lngCounter2 As Long
    Dim Label, MyLabel As String
        For lngCounter2 = 56 To 78
            MyLabel = lngCounter2
            Label = Label & lngCounter2 'MyLabel ',lngCounter2.Visible = False
            [B]Label.Visible = False[/B]
        Next lngCounter2


End Sub

 

[Nitehawkhp]

I changed the initalize code to the one Norie posted and everything is working again.

Thanks everyone

Rod

 

[Fluff]

Glad it's sorted & thanks for the feedback