How to repeat vba code to use next row down

[Virkis]

Hello, I am new to vba coding so apologises if this is a very basic question!

I am writing a macro that will generate a .zrxp file on which is written the following (from the Active Worksheet):

Print #1 , "#REXCHANGE"; Range("A3").Value; "|*|RINVAL-777|*|"
Print #1 , "#LAYOUT(timestamp,value,remark)|*|"

Print #1 , (Format(Range("B3").Value, "yyyymmdd")); (Format(Range("c3").Value, "hhmm")); ", station visit by "; Range("O3"); ", Gauge "; Range("D3"); " ,Logger "; Range("H3"); ", "; Range("I3")

I would now like to repeat the above and write to the same .zrxp file (without overwriting the above) but based on information from the row below in the Active Sheet. For example:

Print #1 , "#REXCHANGE"; Range("A4").Value; "|*|RINVAL-777|*|"
Print #1 , "#LAYOUT(timestamp,value,remark)|*|"

Print #1 , (Format(Range("B4").Value, "yyyymmdd")); (Format(Range("c4").Value, "hhmm")); ", station visit by "; Range("O4"); ", Gauge "; Range("D3"); " ,Logger "; Range("H4"); ", "; Range("I4")


I would like this to repeat for all rows in the Active Sheet until it reaches a row with no value in A. Then end and save.


Please forgive my ignorance! Any help would be greatly appreciated

V

 

[jmacleary]

Hi there and welcome. This should do it:

Dim Lastrow As Long
Dim ThisRow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For ThisRow = 3 To Lastrow
    Print [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , "#REXCHANGE"; Range("A" & ThisRow).Value; "|*|RINVAL-777|*|"
    Print [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , "#LAYOUT(timestamp,value,remark)|*|"
    Print [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , (Format(Range("B" & ThisRow).Value, "yyyymmdd")); (Format(Range("c" & ThisRow).Value, "hhmm")); ", station visit by "; Range("O" & ThisRow); ", Gauge "; Range("D3"); " ,Logger "; Range("H" & ThisRow); ", "; Range("I" & ThisRow)
Next ThisRow

If you also meant to pick up the gauge row by row, then replace the "D3" with "D"&ThisRow.

Regards
John