Function to Check Borders
It worked when I put it in a new wb, but not when it's in my personal.xls wb.
"JLGWhiz" wrote:
Dave's function worked fine for me. I copied his code and pasted it in my
standard code module, then I put a thin solid border on a cell in cell A4.
Then in a cell in another column, I typed "ThinBottomBorder(a4)" without the
quote marks, pressed enter and a 1 appeared in that cell. Maybe, if you
explained how you tried his code the problem could be cleared up.
"Marco" wrote:
No go. Did as instructed and getting same error.
"Dave Peterson" wrote:
Put the entire code that I posted in its own module--Insert|Module--don't put it
in a worksheet module and don't put it under the ThisWorkbook module.
Marco wrote:
No go. Still getting the same error.
Do I need to put in "Option Explicit"?
"Dave Peterson" wrote:
You can use a UDF like:
Option Explicit
Function ThinBottomBorder(rng As Range) As Long
If rng.Cells(1).Borders(xlEdgeBottom).Weight = xlThin Then
ThinBottomBorder = 1
Else
ThinBottomBorder = 0
End If
End Function
Then put this in M15:
=thinbottomborder(a14)
Marco wrote:
I want to create a function that will check a cell for a bottom border and
return a 1 if True or 0 if False.
My function will be in cell M15, checking cell A14 for the border.
I have the following, which is returning a #NAME? error:
If Range.Select.Borders(xlEdgeBottom).Weight = xlThin _
Then ActiveCell.FormulaR1C1 = "1" Else ActiveCell.FomulaR1C1 = "0"
Thank you in advance for your help
Marco
--
Dave Peterson
--
Dave Peterson
|