Macro Help - Loop Problems

[ksp]

Hi All

I have an existing macro (that works) that searches a particular column for any text, and when it does it inserts one row. I have been trying to adapt this same code to create a border on the top edge of the cell where it finds text in column B (I actually need it to add the to columns A-J for that row but haven't gotten that far yet). I can't use CF as there are other borders I do not want in impact on.

Below is the code that I have, and being a real beginner I need some help

Thanks in advance

Karen

Sub Borders()

With Range("B14:B40")
On Error Resume Next
Set C = .Find(What:="*", LookIn:=xlValues)
If Not C Is Nothing Then
firstaddress = C.Offset(1, 0).Address
Do
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstaddress
End If

End With


End Sub

[Rick Hansen]

Good Morning KSP, Your code was real close. You left off the leading dots
in the second with and end with. I made few minor changes, It should work
for you now..(see code below)

Enjoy, Rick, (Fbks,Ak)

Option Explicit

Sub Borders()
Dim C As Range
Dim firstaddress As String

With Range("B14:B40")
On Error Resume Next
Set C = .Find(What:="*", LookIn:=xlValues)
If Not C Is Nothing Then
firstaddress = C.Offset(1, 0).Address
Do
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Set C = .FindNext(C)
Loop While C.Address <> firstaddress
End If
End With

End Sub

"ksp" <[email protected]> wrote in message
news:[email protected]...
>
> Hi All
>
> I have an existing macro (that works) that searches a particular column
> for any text, and when it does it inserts one row. I have been trying
> to adapt this same code to create a border on the top edge of the cell
> where it finds text in column B (I actually need it to add the to
> columns A-J for that row but haven't gotten that far yet). I can't use
> CF as there are other borders I do not want in impact on.
>
> Below is the code that I have, and being a real beginner I need some
> help
>
> Thanks in advance
>
> Karen
>
> Sub Borders()
>
> With Range("B14:B40")
> On Error Resume Next
> Set C = .Find(What:="*", LookIn:=xlValues)
> If Not C Is Nothing Then
> firstaddress = C.Offset(1, 0).Address
> Do
> With Selection.Borders(xlEdgeTop)
> LineStyle = xlContinuous
> Weight = xlHairline
> ColorIndex = xlAutomatic
> End With
> Set C = .FindNext(C)
> Loop While Not C Is Nothing And C.Address <> firstaddress
> End If
>
> End With
>
>
> End Sub
>
>
> --
> ksp
> ------------------------------------------------------------------------
> ksp's Profile:
http://www.excelforum.com/member.php...fo&userid=6267
> View this thread: http://www.excelforum.com/showthread...hreadid=537123
>

[ksp]

Hi Rick

I tried that and it still isn't working. I couldn't see any extra dot's - do I just need new glasses?

Any suggestions?

Thanks

Karen