Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Newbie repeat question
Hi,
so I want a parrt of my code to repeat until there is a line format found on the cell which is already being searched for, my code is below. What am I missing here? My goal here is to format a seperation line on a page when the macro finds a particular word in a column (the word is the end of each section of listing for a sales person). The code listed below does what I want but does not stop and continues indefinately. All help VERY much appreciated Patrick Sub Find2() Do Dim word As String word = "ATM" Cells.Find(What:=word, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate ActiveCell.EntireRow.Select With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Cells.FindNext(After:=ActiveCell).Activate Loop Until (LineStyle = xlContinuous) End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Newbie Formula Question - how to get formula to repeat in each subsequent row? | New Users to Excel | |||
Real Newbie newbie question | New Users to Excel | |||
If Then Question from Newbie. . . | Excel Discussion (Misc queries) | |||
Newbie Question - Subtraction Formula Question | Excel Discussion (Misc queries) | |||
Newbie With A Question | Excel Worksheet Functions |