Hide combobox cased on cell value

[roxaas]

I'm trying to hide a combobox if cell V14 is 0 and display it if it's any other number. Below is the code that I have.

Been stuck on this for too long. Time to get some help

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("v14")) Is Nothing Then
    If Range("v14").Value > 0 Then
        Me.ComboBox1.Visible = True
    Else
        Me.ComboBox1.Visible = False
    End If
End If

End Sub

 

[ZVI]

Your code is working. Be sure that macro is available, disable Design Mode and check that the code is in the sheet’s VBA module where the ComboBox1 is.
To find the reason of the problem it is useful to place Option Explicit onto the top of VBA code and click VBE menu: Debug – Compile VBA Project.

A bit shortened code:

' Code of the Sheet1 VBA module
' How to implement this:
' 1. Copy code to the clipboard (Ctrl-C)
' 2. Do right click on sheet's tab name
' 3. Choose Source code
' 4. Paste the code (Ctrl-V)
' 5. Press Alt-Q to close VBE
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("v14")) Is Nothing Then
    Me.ComboBox1.Visible = Range("v14").Value > 0
  End If
End Sub

 

[roxaas]

I figured out why it's not working. Cell v14 is a sum function that adds v2:v13. If it's a number, it works fine. Is there a way around this?

 

[ZVI]

Formula triggers Calculate event instead of Change one.
Use:

Option Explicit
Private Sub Worksheet_Calculate()
  If Not Intersect(Target, Range("v14")) Is Nothing Then
    Me.ComboBox1.Visible = Range("v14").Value
  End If
End Sub