How to stop my print Macro if a cell contains nothing.

[Wagsbags83]

Good Morning All,

I am really somewhat new with using macro's and VBA in excel sheets.

Currently I have a macro that I recorded that looks like the following.

Sub PrintAttempt()
'
' PrintAttempt Macro
' Print Labels
'

'
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.FormulaR1C1 = "2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.FormulaR1C1 = "3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.FormulaR1C1 = "4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.FormulaR1C1 = "5"
Range("B3").Select
End Sub

Basically this enters the number 1 in cell B1 which then pulls a bunch of information from the sheet Database and prints. Then replaces 1 with 2 and pulls that info and prints.

I am trying to figure out how to get the macro to stop when it reaches a number that pulls no information.

Any help would be greatly appreciated.

Thanks,
Chris

 

[BSALV]

Sub PrintAttempt()
     For i = 1 To 100
          ActiveCell.FormulaR1C1 = i
          If Range("C1") = "" Then Exit For     'somewhere a cell where, if you change the activecell, the loop has to stop as soon as that one is empty
          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
     Next
End Sub

please, for easier read, copy&paste,..., use the VBA-icon in the ribbon here above, and copy your code in between.

 

[Wagsbags83]

Hey BSALV,

Thanks for the tip there at the bottom. I apologize as I am new to the Forum but appreciate any advice at all.

As for the code provided for the macro, I can not thank you enough. This worked perfectly and is a huge huge help !!!

Thanks again truly truly appreciate you.

Chris