How to make my combox invisible?

[Mientje08]

Hello,

I am struggling with the code to make my combobox appear and disappear.

I want to make my combobox appear when N= 1.
For all other cases It has to be disappeared.

I have made my code like this:

Private Sub Combobox_visible()
If Range("N6").Value = 1 Then
ComboBox1.Visible = True
Else
ComboBox1.Visible = False
End If
End If
End Sub


But it doesn't work, itstays visible all the time. Can someone please help me???
I cant upload my excel here?
Thank you!!

 

[Kamolga]

What about ?

[COLOR=#333333]Sub goaway()
[/COLOR][COLOR=#333333]If Range("N6").Value = 1 Then[/COLOR]   
ActiveSheet.Shapes("Drop Down 1").Visible = True
else
ActiveSheet.Shapes("Drop Down 1").Visible = False 
End if
[COLOR=#333333]End Sub[/COLOR]

Note: if you drow a combo on a sheet, when you click it, you have its name on top left, which by default is Drop Down 1. ComboBox1 is for ActiveX and Userforms

You can share a workbook using onedrive and paste a link

 

[Mientje08]

What about ?

[COLOR=#333333]Sub goaway()
[/COLOR][COLOR=#333333]If Range("N6").Value = 1 Then[/COLOR]   
ActiveSheet.Shapes("Drop Down 1").Visible = True
else
ActiveSheet.Shapes("Drop Down 1").Visible = False 
End if
[COLOR=#333333]End Sub[/COLOR]

Note: if you drow a combo on a sheet, when you click it, you have its name on top left, which by default is Drop Down 1. ComboBox1 is for ActiveX and Userforms

You can share a workbook using onedrive and paste a link

This is the link of thefile :
https://michelingroup-my.sharepoint...4-806a-493e-8ecd-93006c1854d0}&action=default

 

[RoryA]

Welcome to the forum.

Please take a minute to read the forum rules, especially regarding cross-posting, and then add links here to your posts in other forums. Thanks.

 

[Kamolga]

I can't access micelingroup sharepoint, the activesheet.shapes did not work?