Trying to expand my knowledge whilst creating org-wide, shared excel workbooks.
I found a nice youTube video that's what I'm looking for - except multiple values.
So.......... upon clicking a button, cell F1 = 0. I have an arrow pointing to another cell, which I'd like to "hide" as other cells (normal conditional formatting). The issue is: there's no error, and the shape doesn't 'disappear.'
The last sub "Worksheet_ClearZeroPrice" below is what I'm referring to.
Any suggestions???
I found a nice youTube video that's what I'm looking for - except multiple values.
So.......... upon clicking a button, cell F1 = 0. I have an arrow pointing to another cell, which I'd like to "hide" as other cells (normal conditional formatting). The issue is: there's no error, and the shape doesn't 'disappear.'
The last sub "Worksheet_ClearZeroPrice" below is what I'm referring to.
Any suggestions???
VBA Code:
Option Explicit
Sub Reset1()
Range("B2:B6").Value = Null 'clears search criteria
Range("A10:M" & Rows.Count).ClearContents 'clears resultant list of A10:M
Range("A9:M" & Rows.Count).Borders.LineStyle = xlNone 'clears previous "removeSpecials macro" borders
Range("E6").ClearContents 'clears high value
Range("F1").Value = "0" 'zeros out
Range("E7").Value = "20" 'sets low value
Range("D3").Value = "verify 365 rnd"
Range("B5").Value = "fswp" 'sets default coverage
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("D4")) Is Nothing Then
Application.Undo
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_ClearZeroPrice(ByVal Target As Range)
If Target.Adress = "$F$1" Then
If Target.Value = 0 Then
Shapes.Range(Array("Straight Arrow Connector 9")).Line.Visible = msoFalse
End If
End If
End Sub