Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
conditional copy macro
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
conditional copy macro
On May 30, 2:37 pm, Robert Kettle
wrote: 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. 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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional Copy Macro | Excel Programming | |||
Conditional copy | Excel Discussion (Misc queries) | |||
Conditional Copy Macro Help Needed | Excel Programming | |||
Conditional Copy Paste Macro | Excel Discussion (Misc queries) | |||
Conditional Copy | Excel Programming |