Jan 24 2023 01:16 AM
Hi,
Looking for advice on how to loop this macro for each row until the next cell is empty.
For context, I am transposing data from a table into a printable form (for each table entry)
Sheets("LEC TEMPLATE").Select
Sheets("LEC TEMPLATE").Copy After:=Sheets(3)
Range("B3").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(IF('FULL REPORT'!R[-1]C[-1]:R[-1]C[30]="""","""",'FULL REPORT'!R[-1]C[-1]:R[-1]C[30]))"
Range("B3:B35").Select
With Selection
.HorizontalAlignment = xlLeft
End With
Range("B26").Select
Selection.NumberFormat = "m/d/yyyy h:mm"
End Sub
Thanks,
L