Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print sheets based on cell value
I have a workbook of about 30 sheets. Beginning with the 3rd sheet, each
sheet has a date in cell K4. I wish to print just the sheets for which the month in K4 equals certain values. So far I have this: Sub PrintSheets() Dim MonthDue As Integer ThisWorkbook.Activate For Each sh In ThisWorkbook.Sheets If sh.Index 2 Then sh.Select 'changing the activesheet MonthDue = Month(K4) Select Case MonthDue Case 4 ActiveSheet.PrintOut Case 12 ActiveSheet.PrintOut End Select End If Next sh End Sub The problem is this: Sheet 3 has a month value of 12 and so prints. The code cycles to Sheet 4 which has a month value of 5. The variable MonthDue is not changing though. It's value remains 12 and so prints Sheet 4 though I don't want it to. What am I missing that would result in MonthDue updating its value for each sheet? Thanks for any help. -- - markvi |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Printing sheets based on a cell value | Excel Programming | |||
Print page based on the value of a cell | Excel Programming | |||
Hide sheets based on Cell value | Excel Discussion (Misc queries) | |||
Print ranges based on cell value | Excel Programming | |||
Open file and print sheets based on data in cell | Excel Programming |