Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Function unable to loop
Hi,
I am doing a macro that uses Do Until...Loop to process on certain column data(Col G) and go thru row by row on my wksheet and print that string(Print#2) onto a script txt file. The problem is i am always stuck at row 1 and does not automatically go to the next row of data. CAn anyone advise why is this so and how to? My Example: Sub test( ) Do Until ActiveCell.Row LastRow ActiveCell.FormulaR1C1 = Range("G2") Total$ = ActiveCell.FormulaR1C1 If ActiveCell.FormulaR1C1 = "" Then GoTo Skiptohere Print #2, "testing" Print #2, "testing" Print #2, "testing" Skiptohe Print #2, " #End script file" Close #2 ActiveCell.Offset(1, 0).Range("A7").Select Loop End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Function unable to loop
Not sure what you are trying to do but I have revamped so
Sub test() LastRow = 7 For i = ActiveCell.Row To LastRow Cells(i, ActiveCell.Column).FormulaR1C1 = Range("G2") Total$ = Cells(i, ActiveCell.Column).FormulaR1C1 If Cells(i, ActiveCell.Column).Value = "" Then GoTo Skiptohere Print #2, "testing" Print #2, "testing" Print #2, "testing" Skiptohe Print #2, " #End script file" Close #2 Next i End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Junior728" wrote in message ... Hi, I am doing a macro that uses Do Until...Loop to process on certain column data(Col G) and go thru row by row on my wksheet and print that string(Print#2) onto a script txt file. The problem is i am always stuck at row 1 and does not automatically go to the next row of data. CAn anyone advise why is this so and how to? My Example: Sub test( ) Do Until ActiveCell.Row LastRow ActiveCell.FormulaR1C1 = Range("G2") Total$ = ActiveCell.FormulaR1C1 If ActiveCell.FormulaR1C1 = "" Then GoTo Skiptohere Print #2, "testing" Print #2, "testing" Print #2, "testing" Skiptohe Print #2, " #End script file" Close #2 ActiveCell.Offset(1, 0).Range("A7").Select Loop End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find loop doesn't loop | Excel Discussion (Misc queries) | |||
Does loop function cause this problem? | Excel Worksheet Functions | |||
Problem adding charts using Do-Loop Until loop | Excel Programming | |||
Need function for checkbox in loop | Excel Programming | |||
HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming |