Macro to print an area in Excel and edit a cell approximately 500 times

[Msinmath]

I'm a macro novice and I need some help. I have a sheet called results and a print area called results analysis. Within the sheet commencing at cell J7 there is a list of around 500 names. Cell B3 within the print area should contain the name from J7. Once it has printed, B3 should contain J8 and start the print cycle again. This should continue until it reaches a cell which contains 0,0. I need a macro which can do this automatically. Without a macro, this is a laborious task. Can anyone please help?

 

[Logit]

Please post a copy of your workbook.

This forum does not provide a means to do so. You will need to post it to a CLOUD Download website and provide the download link here.

 

[Msinmath]

Please post a copy of your workbook.

This forum does not provide a means to do so. You will need to post it to a CLOUD Download website and provide the download link here.

Hi Logit

Thank you for offering to take a look at my problem. I have created a smaller version of the spreadsheet for you to peruse.
Here is the link

Macro Query.xlsx | Powered by Box

app.box.com

 

[Logit]

Your example workbook does not match the description in your original post.

 

[cooper645]

Sub Msinmath_Printing()
'https://www.mrexcel.com/board/threads/macro-to-print-an-area-in-excel-and-edit-a-cell-approximately-500-times.1149934/
Dim i As Long, Sh As Worksheet
Dim LRow As Long

Application.ScreenUpdating = False

Set Sh = Sheets("Results")
LRow = Sh.Cells(Rows.Count, "J").End(xlUp).Row

For i = 7 To LRow
    If Not Sh.Cells(i, 10) = "0,0" Then
        Sh.Cells(3, 2) = Sh.Cells(i, 10)
            Sh.PrintOut
    Else
        MsgBox "Printing has completed", vbOKOnly + vbInformation, "Macro complete"
    End If
Next i

Application.ScreenUpdating = True

End Sub

 

[Msinmath]

Your example workbook does not match the description in your original post.

Apologies for the discrepancies as I had edited the file before sending it to you. Cell B3 is now A7 and J7 is now J9.

 

[cooper645]

Amended to suit your new ranges

Sub Msinmath_Printing2()
'https://www.mrexcel.com/board/threads/macro-to-print-an-area-in-excel-and-edit-a-cell-approximately-500-times.1149934/
Dim i As Long, Sh As Worksheet
Dim LRow As Long

Application.ScreenUpdating = False

Set Sh = Sheets("Results")
LRow = Sh.Cells(Rows.Count, "J").End(xlUp).Row

For i = 9 To LRow
    If Not Sh.Cells(i, 10) = "0,0" Then
        Sh.Cells(7, 1) = Sh.Cells(i, 10)
            Sh.PrintOut
    Else
        MsgBox "Printing has completed", vbOKOnly + vbInformation, "Macro complete"
    End If
Next i

Application.ScreenUpdating = True

End Sub

 

[Msinmath]

Sub Msinmath_Printing()
'https://www.mrexcel.com/board/threads/macro-to-print-an-area-in-excel-and-edit-a-cell-approximately-500-times.1149934/
Dim i As Long, Sh As Worksheet
Dim LRow As Long

Application.ScreenUpdating = False

Set Sh = Sheets("Results")
LRow = Sh.Cells(Rows.Count, "J").End(xlUp).Row

For i = 7 To LRow
    If Not Sh.Cells(i, 10) = "0,0" Then
        Sh.Cells(3, 2) = Sh.Cells(i, 10)
            Sh.PrintOut
    Else
        MsgBox "Printing has completed", vbOKOnly + vbInformation, "Macro complete"
    End If
Next i

Application.ScreenUpdating = True

End Sub

Thank you. I'll try this out and see it works.

 

[cooper645]

make sure you use the one that suits where ever you have decided your ranges are

 

[Msinmath]

make sure you use the one that suits where ever you have decided your ranges are

Hi Cooper645

Thank you for the macro. It prints but does not stop when it reaches a cell with a value of zero. Can the macro be amended to do this? I do not want to decimate a rainforest by using too much paper.
Thank you