Snasui Excel Forum

Code: Select all

Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Sheet5.Range("C" & Rows.Count).End(xlUp).Row
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub

Code: Select all

Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Application.Count(Sheet5.Range("C9:C" & Sheet5.Range("C" & Rows.Count).End(xlUp).Row))+8
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub

Code: Select all

Sub AutoPrintLet1()
Dim i As Long
For i = 9 To Application.Count(Sheet5.Range("C9:C" & Sheet5.Range("C" & Rows.Count).End(xlUp).Row))
Sheet63.Range("K1").Value = Sheet5.Range("C" & i).Value
'Sheet63.PrintOut
Next i
End Sub