Non blank cell

[tweek]

Hi,
How could I write a if statement that say´s something like: IF cell B2 is not blank THEN format a cell like:


Range("IP2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With

End Sub

 

[gaj104]

Hi,

Surely conditional formatting is a better way to achieve this?

Does it have to be done in VBA?

 

[Jonmo1]

You could just use conditional formatting...

Highlight cell IP2, click format - conditional formatting
Select "Formula Is"
=B2<>""
Click Format - Borders
Apply border as desired
click OK
click OK


If it must be VB, it would be something like

IF Range("B2").Value <> "" Then

 

[tweek]

Hi, the VB works for me if I write IF Range("B2").Value > "" Then .

I´ll use that since I´ll be doing more complicated things than formatting only.

Thank you very much!!!