| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Do until loop
Hi,
I need the following to code to loop, but each time pasting one row further down on Sheet 2 until the Control Find function finds "Ele NonRec END". Cells.Find(What:="ele nonrec", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate Selection.Copy Sheets("Sheet2").Select Range("A2").Select ActiveSheet.Paste Sheets("Sheet1").Select Cells.Find(What:="record sent", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("I2").Select ActiveSheet.Paste Sheets("Sheet1").Select Cells.Find(What:="global", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("X2").Select ActiveSheet.Paste Sheets("Sheet1").Select Cells.Find(What:="o", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _ .Activate Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("AD2").Select ActiveSheet.Paste Sheets("Sheet1").Select Please help!! Thank you in advance. John |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| For Each ... Next loop - need to reference the loop variable | Excel Programming | |||
| Advancing outer Loop Based on criteria of inner loop | Excel Programming | |||
| Loop Function unable to loop | Excel Programming | |||
| Problem adding charts using Do-Loop Until loop | Excel Programming | |||
| HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming | |||
Threaded Mode
