Userform cmdbutton show when value in label exist

[Fredric Andersson]

Hello guys again,

i have a new problem that make me tear up my hair.
This is how my userform is (Last picture)

When there is a value in Nummer (like the one or two) i want to show the "Åtgärd för detta ärende"
Below is my code that i tought worked but dont work.

anyone have a soultion for this?

If riskanalys_dashboard.n1 <> "" Or riskanalys_dashboard.n2 <> "" Or riskanalys_dashboard.n3 <> "" Then

riskanalys_dashboard.cmd_åtgärd1.Visible = True
riskanalys_dashboard.cmd_åtgärd2.Visible = True
riskanalys_dashboard.cmd_åtgärd3.Visible = True
Else

riskanalys_dashboard.cmd_åtgärd1.Visible = False
riskanalys_dashboard.cmd_åtgärd2.Visible = False
riskanalys_dashboard.cmd_åtgärd3.Visible = False

End If

Br
Fredric

 

[Logit]

'If this macro is located in a UserForm, try editing the code as such :

If Me.riskanalys_dashboard.n1 <> "" Or Me.riskanalys_dashboard.n2 <> "" Or Me.riskanalys_dashboard.n3 <> "" Then

Me.riskanalys_dashboard.cmd_åtgärd1.Visible = True
Me.riskanalys_dashboard.cmd_åtgärd2.Visible = True
Me.riskanalys_dashboard.cmd_åtgärd3.Visible = True
Else

Me.riskanalys_dashboard.cmd_åtgärd1.Visible = False
Me.riskanalys_dashboard.cmd_åtgärd2.Visible = False
Me.riskanalys_dashboard.cmd_åtgärd3.Visible = False

End If

The "Me." tells Excel to refer to the UserForm code and not code located elsewhere in the project.

 

[Fredric Andersson]

'If this macro is located in a UserForm, try editing the code as such :

If Me.riskanalys_dashboard.n1 <> "" Or Me.riskanalys_dashboard.n2 <> "" Or Me.riskanalys_dashboard.n3 <> "" Then

Me.riskanalys_dashboard.cmd_åtgärd1.Visible = True
Me.riskanalys_dashboard.cmd_åtgärd2.Visible = True
Me.riskanalys_dashboard.cmd_åtgärd3.Visible = True
Else

Me.riskanalys_dashboard.cmd_åtgärd1.Visible = False
Me.riskanalys_dashboard.cmd_åtgärd2.Visible = False
Me.riskanalys_dashboard.cmd_åtgärd3.Visible = False

End If

The "Me." tells Excel to refer to the UserForm code and not code located elsewhere in the project.

I see, i tried it but it didnt work.

i gott error messenge "compilation error cannot find method or data member"

Br

 

[Logit]

If you can post your workbook for download that would be a big help. You'll have to use a cloud website like DropBox.com or similar.

 

[dmt32]

Hi
see if this update to your code does what you want

Dim HasValue As Boolean

HasValue = Val(Me.N1) > 0 Or Val(Me.N2) > 0 Or Val(Me.N3) > 0

Me.cmd_åtgärd1.Visible = HasValue
Me.cmd_åtgärd2.Visible = HasValue
Me.cmd_åtgärd3.Visible = HasValue

Solution assumes that you are looking for any numeric value > 0 entered in any of the 3 textboxes for the commandbuttons to be visible

Dave

 

[abdelfattah]

@Fredric Andersson
I suspect you can call commandbutton name as you posted in OP !
I think you renamed command button in caption option , not name option in windows properties.
why contains dot?!

riskanalys_dashboard.cmd_åtgärd1.Visible

this is not properties !
of course the excel show "compilation error cannot find method or data member"
re-write name commandboutton where doesn't conflict with symbols uses in EXCEL system or WINDOWS.