Loop Function unable to loop

[Guest]

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"

Skiptohere:
Print #2, " #End script file"
Close #2

ActiveCell.Offset(1, 0).Range("A7").Select
Loop
End Sub

 

[Bob Phillips]

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"

Skiptohere:
Print #2, " #End script file"
Close #2

Next i
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)