| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Select Printing Macro
I have a workbook that contains about 60 timesheets on individual worksheets.
Not all of the worksheets have data filled in if a particular individial does not work on that day. I print timesheets at the end of each day. What I would like to do is run a macro that would print only the worksheets if the date cell has the current date in it. The date cell is B1. I hope this makes sense. -- -CRM |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Select Printing Macro
Something like this should be close.
Sub PrintUsedSheets() Dim wks As Worksheet For Each wks In Worksheets If wks.Range("B1").Value = Date Then wks.PrintOut Next wks End Sub -- HTH... Jim Thomlinson "saltnsnails" wrote: I have a workbook that contains about 60 timesheets on individual worksheets. Not all of the worksheets have data filled in if a particular individial does not work on that day. I print timesheets at the end of each day. What I would like to do is run a macro that would print only the worksheets if the date cell has the current date in it. The date cell is B1. I hope this makes sense. -- -CRM |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Select Printing Macro
Jim,
Thanks for the reply. I added the macro and nothing happened when I ran it. not sure what to do. Any other thoughts? - -CRM "Jim Thomlinson" wrote: Something like this should be close. Sub PrintUsedSheets() Dim wks As Worksheet For Each wks In Worksheets If wks.Range("B1").Value = Date Then wks.PrintOut Next wks End Sub -- HTH... Jim Thomlinson "saltnsnails" wrote: I have a workbook that contains about 60 timesheets on individual worksheets. Not all of the worksheets have data filled in if a particular individial does not work on that day. I print timesheets at the end of each day. What I would like to do is run a macro that would print only the worksheets if the date cell has the current date in it. The date cell is B1. I hope this makes sense. -- -CRM |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Select Printing Macro
Is your value in Cell B1 and actual date or is it text? To check in some
other cell add =B1 + 1 which should return the next day if your cell is a true date and not just text. True dates can also be reformatted. The other possibility is that your date is actually a date and time strung together. Try reformatting the date using one of the built in date/time formats. If the time is anything other than 12AM then you have a date and time in the cell. Let me know the results... If it is text then give me an example of the cell value. -- HTH... Jim Thomlinson "saltnsnails" wrote: Jim, Thanks for the reply. I added the macro and nothing happened when I ran it. not sure what to do. Any other thoughts? - -CRM "Jim Thomlinson" wrote: Something like this should be close. Sub PrintUsedSheets() Dim wks As Worksheet For Each wks In Worksheets If wks.Range("B1").Value = Date Then wks.PrintOut Next wks End Sub -- HTH... Jim Thomlinson "saltnsnails" wrote: I have a workbook that contains about 60 timesheets on individual worksheets. Not all of the worksheets have data filled in if a particular individial does not work on that day. I print timesheets at the end of each day. What I would like to do is run a macro that would print only the worksheets if the date cell has the current date in it. The date cell is B1. I hope this makes sense. -- -CRM |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Select Printing Macro
Jim,
Would it be plausible to rewrite the macro so that if cell B1 is greater than 0, then print? -- -CRM "Jim Thomlinson" wrote: Is your value in Cell B1 and actual date or is it text? To check in some other cell add =B1 + 1 which should return the next day if your cell is a true date and not just text. True dates can also be reformatted. The other possibility is that your date is actually a date and time strung together. Try reformatting the date using one of the built in date/time formats. If the time is anything other than 12AM then you have a date and time in the cell. Let me know the results... If it is text then give me an example of the cell value. -- HTH... Jim Thomlinson "saltnsnails" wrote: Jim, Thanks for the reply. I added the macro and nothing happened when I ran it. not sure what to do. Any other thoughts? - -CRM "Jim Thomlinson" wrote: Something like this should be close. Sub PrintUsedSheets() Dim wks As Worksheet For Each wks In Worksheets If wks.Range("B1").Value = Date Then wks.PrintOut Next wks End Sub -- HTH... Jim Thomlinson "saltnsnails" wrote: I have a workbook that contains about 60 timesheets on individual worksheets. Not all of the worksheets have data filled in if a particular individial does not work on that day. I print timesheets at the end of each day. What I would like to do is run a macro that would print only the worksheets if the date cell has the current date in it. The date cell is B1. I hope this makes sense. -- -CRM |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Select Printing Macro
Try this
If wks.Range("B1").Value 0 Then wks.PrintOut or If trim(wks.Range("B1").Value) < "" Then wks.PrintOut -- HTH... Jim Thomlinson "saltnsnails" wrote: Jim, Would it be plausible to rewrite the macro so that if cell B1 is greater than 0, then print? -- -CRM "Jim Thomlinson" wrote: Is your value in Cell B1 and actual date or is it text? To check in some other cell add =B1 + 1 which should return the next day if your cell is a true date and not just text. True dates can also be reformatted. The other possibility is that your date is actually a date and time strung together. Try reformatting the date using one of the built in date/time formats. If the time is anything other than 12AM then you have a date and time in the cell. Let me know the results... If it is text then give me an example of the cell value. -- HTH... Jim Thomlinson "saltnsnails" wrote: Jim, Thanks for the reply. I added the macro and nothing happened when I ran it. not sure what to do. Any other thoughts? - -CRM "Jim Thomlinson" wrote: Something like this should be close. Sub PrintUsedSheets() Dim wks As Worksheet For Each wks In Worksheets If wks.Range("B1").Value = Date Then wks.PrintOut Next wks End Sub -- HTH... Jim Thomlinson "saltnsnails" wrote: I have a workbook that contains about 60 timesheets on individual worksheets. Not all of the worksheets have data filled in if a particular individial does not work on that day. I print timesheets at the end of each day. What I would like to do is run a macro that would print only the worksheets if the date cell has the current date in it. The date cell is B1. I hope this makes sense. -- -CRM |
|
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Select Printing Macro
That did it!!! Thanks Jim!
-- -CRM "Jim Thomlinson" wrote: Try this If wks.Range("B1").Value 0 Then wks.PrintOut or If trim(wks.Range("B1").Value) < "" Then wks.PrintOut -- HTH... Jim Thomlinson "saltnsnails" wrote: Jim, Would it be plausible to rewrite the macro so that if cell B1 is greater than 0, then print? -- -CRM "Jim Thomlinson" wrote: Is your value in Cell B1 and actual date or is it text? To check in some other cell add =B1 + 1 which should return the next day if your cell is a true date and not just text. True dates can also be reformatted. The other possibility is that your date is actually a date and time strung together. Try reformatting the date using one of the built in date/time formats. If the time is anything other than 12AM then you have a date and time in the cell. Let me know the results... If it is text then give me an example of the cell value. -- HTH... Jim Thomlinson "saltnsnails" wrote: Jim, Thanks for the reply. I added the macro and nothing happened when I ran it. not sure what to do. Any other thoughts? - -CRM "Jim Thomlinson" wrote: Something like this should be close. Sub PrintUsedSheets() Dim wks As Worksheet For Each wks In Worksheets If wks.Range("B1").Value = Date Then wks.PrintOut Next wks End Sub -- HTH... Jim Thomlinson "saltnsnails" wrote: I have a workbook that contains about 60 timesheets on individual worksheets. Not all of the worksheets have data filled in if a particular individial does not work on that day. I print timesheets at the end of each day. What I would like to do is run a macro that would print only the worksheets if the date cell has the current date in it. The date cell is B1. I hope this makes sense. -- -CRM |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Printing select pages | New Users to Excel | |||
| Select sheets from an array for printing | Excel Discussion (Misc queries) | |||
| select sheets for printing | Excel Discussion (Misc queries) | |||
| Can I select a worksheet based upon a cell criteria?(for printing) | Excel Worksheet Functions | |||
Linear Mode
