Hi there,
I have a timesheet spreadsheet i have designed, for each employee they
have a workbook. in a directory and subdirectories by there pay
location.
I would like to create a macro in a new workbook. Which asks the path
the workbooks are in then prints the worksheets if data exists in a
range on that workbook. I am not super experienced with vba however
i've found the two following snippets of code which as i see need to
be joined up.
Ideally i'd like to drill into subdirectories but that is not urgent.
This code prints sheets 2 & 3 of each workbook, however i want it to
only print the sheets if a value exists in a range. I've pasted a code
below which does something similar.
Public Sub PrintWorkbooks()
Dim sCurFile As String
Dim sPath As String
'Get the path
sPath = InputBox("Starting path?", "PrintWorkbooks")
If sPath <> "" Then
On Error Resume Next
Application.ScreenUpdating = False
If Right(sPath, 1) <> "\" Then
sPath = sPath & "\"
End If
sCurFile = Dir(sPath & "*.xls", vbNormal)
Do While Len(sCurFile) <> 0
Workbooks.Open sPath & sCurFile, , True
With Workbooks(sCurFile)
.Worksheets(2).PrintOut
.Worksheets(3).PrintOut
.Close SaveChanges:=False
End With
sCurFile = Dir
DoEvents
Loop
Application.ScreenUpdating = True
On Error GoTo 0
End If
End Sub
This code prints sheets if a value exists on each sheet.
Sub PrintMost()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If Not IsEmpty(wks.Range("G41")) Then
wks.PrintOut
End If
Next
Set wks = Nothing
End Sub
Can anyone help me combine these two functions.
Any help is much appreciatted
Kind regards,
Ben Howard
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
