Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping
Hi Gurus
I am attempting to loop some simple code that goes down a Column A, finds the start of a new series of up to 24 consecutive numbers, inserts two blank rows and then continues down the next series and repeats the process. My problem is that when it reaches the last of the series it goes back to the start and keeps going. Can a respondent tidy up my simple macro? "Do Range("Start").Select Cells.Find(What:="01", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlDown, MatchCase:= _ True).Activate ActiveCell.Range("a1").Select ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown Selection.End(xlDown).Select Loop" With thanks Murph |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping
That's a problem with Find. You have to figure out when you've started
over. Since you're working down a column you could like: Dim FindRow As Long Range.Find... If ActiveCell.Row < FindRow Then Exit Sub ''done FindRow = ActiveCell.Row ..... -- Jim "Murph" wrote in message ... | Hi Gurus | I am attempting to loop some simple code that goes down a Column A, finds | the start of a new series of up to 24 consecutive numbers, inserts two blank | rows and then continues down the next series and repeats the process. | My problem is that when it reaches the last of the series it goes back to | the start and keeps going. | Can a respondent tidy up my simple macro? | "Do | Range("Start").Select | Cells.Find(What:="01", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ | xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlDown, | MatchCase:= _ | True).Activate | ActiveCell.Range("a1").Select | ActiveCell.EntireRow.Select | Selection.Insert Shift:=xlDown | Selection.Insert Shift:=xlDown | Selection.End(xlDown).Select | | | Loop" | | With thanks | Murph | | |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping
Thanks for the reply Jim.
I am way behind on VB as I started via Excel 4 years ago and have not got my head around the VB terms although I have read the books. In this case I can't get the right syntax of: Range.Find ("01") My initial post may have been confusing as "Start" was the first cell in column A with "01" and then the series went "02", "03", etc. The data has no number format so I presume it is text I am looking for. Are you able to put the "Range.Find" and the syntax of the declaration on the initial macro? At the moment I can't get the computer help files to advance my knowledge. I am sorry if my inaptitude frustrates you. With Thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Looping | Excel Discussion (Misc queries) | |||
Looping | Excel Programming | |||
Next For looping in a If | Excel Programming | |||
Looping | Excel Programming | |||
Looping | Excel Programming |