Print Macro

[Daaan]

Hi guys

I have this print macro up and running.

Basically, it picks up a number in a column and puts it into a certain cell in another sheet. The sheet populates itself and then prints out autmatically.

However, it picks up 111 rows and prints them out... sometimes I don't want all rows and need to macro to stop when say "x" is found in a row.

Is there anyway I can change my current macro to incorporate this?

Here is the current code:

Sub Print_Other_Default()
For r = 4 To 115
Sheets("Other Print").Range("G4").Value = Cells(r, 1).Value
Sheets("Other Print").PrintOut
Next r
End Sub

Thanks

Dan

 

[Trebor76]

Hi Daaan,

Try this:

Sub Print_Other_Default()
    
    For r = 4 To 115
        If Cells(r, "A").Value <> "x" Then
            With Sheets("Other Print")
                .Range("G4").Value = Cells(r, "A").Value
                .PrintOut
            End With
        Else
            Exit For
        End If
    Next r
    
End Sub

HTH

Robert

 

[Daaan]

Thanks Robert

Your macro definately stops at "x", however, I have the macro as a button on the sheet that I am printing "13.Special Case Calc" and it picks up the data from sheet "other print".

your macro is printing out the sheet "other print"

Do you know how I would correct his?

Thanks

Dan

 

[Trebor76]

your macro is printing out the sheet "other print"

As yours was via the following line:

Sheets("Other Print").PrintOut

 

[Daaan]

All good, i got it working

Thankyou very much, Robert!!!

 

[Trebor76]

I'm glad to hear it and you're welcome