Loop until underlined border??
 

Group,

I was wondering if coding a loop until a cell formatted
with an underline border is present is possible. and if so
what would be the syntax. Thanks in advance


Jeff

'''' Don't know what to put in the loop until name
''''X is the variable i cant figure out

Do
ActiveCell.Offset(1, 0).Select
loop until activecell.select = X

Loop until underlined border??
 

I turned on the macro recorder and used format =Cells=border to put a
border on the bottom of the active Cell. It recorded:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/19/2004 by OGILVTW
'

'
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End Sub


So you can possibly design a test around the parameters associated with
having a bottom border.

--
Regards,
Tom Ogilvy




"Jeff" wrote in message
...
Group,

I was wondering if coding a loop until a cell formatted
with an underline border is present is possible. and if so
what would be the syntax. Thanks in advance


Jeff

'''' Don't know what to put in the loop until name
''''X is the variable i cant figure out

Do
ActiveCell.Offset(1, 0).Select
loop until activecell.select = X

Loop until underlined border??
 

I would think it would also be the last cell so
x=cells(rows.count,"a").end(xlup).row

but this should do what you want
Sub findborder()
For Each c In Selection
If c.Borders(xlEdgeBottom).LineStyle = xlContinuous Then MsgBox c.Address
Next
End Sub

--
Don Guillett
SalesAid Software

"Jeff" wrote in message
...
Group,

I was wondering if coding a loop until a cell formatted
with an underline border is present is possible. and if so
what would be the syntax. Thanks in advance


Jeff

'''' Don't know what to put in the loop until name
''''X is the variable i cant figure out

Do
ActiveCell.Offset(1, 0).Select
loop until activecell.select = X

Loop until underlined border??
 

Try this:

Loop Until ActiveCell.Borders(xlEdgeBottom).LineStyle =
xlContinuous


-----Original Message-----
Group,

I was wondering if coding a loop until a cell formatted
with an underline border is present is possible. and if
so
what would be the syntax. Thanks in advance


Jeff

'''' Don't know what to put in the loop until name
''''X is the variable i cant figure out

Do
ActiveCell.Offset(1, 0).Select
loop until activecell.select = X
.