conditional copy macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Robert Kettle - 30 May 2008 22:37 GMT

I am looking to set up a macro that will conditionally copy multiple cells
from one worksheet to another and print after each.

Example.

There are two worksheets DATA and REPORT.

For each occurence of TRUE in column A on the DATA worksheet, I want to copy
the corresponding value of column B to REPORT cell H2 (ie. A3=TRUE, copy B3 :
A10=TRUE, copy B10), then print the REPORT worksheet and repeat until all
TRUE rows from DATA have been printed.

Thanks for your help.

Reply to this Message

Chris - 30 May 2008 23:05 GMT

On May 30, 2:37 pm, Robert Kettle
<RobertKet...@discussions.microsoft.com> wrote:

> I am looking to set up a macro that will conditionally copy multiple cells
> from one worksheet to another and print after each.
[quoted text clipped - 9 lines]
>
> Thanks for your help.

Robert,

Try this:

Sub ReportPrint()

Application.ScreenUpdating = False
'x = row number
x = 1

'Loop until reach blank cell in column A
Do Until Cells(x, 1).Value = ""
'Copy cell to Report sheet if True in column A
If Cells(x, 1).Value = True Then
Cells(x, 2).Select
Selection.Copy
Sheets("Report").Select
Range("H2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

'Print report sheet
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Data").Select

End If
x = x + 1
Loop

Application.ScreenUpdating = True
End Sub

Good Luck!
Chris

Reply to this Message