Greeting to all
I hav a "Macro Print Button" which can Print all Pages top to Down
Except "Saturday & Sundays" pages
but
when ever i run the Macro Code it give Run-time error'13':
Type mismatch
and when i click on "Debug button" it highlight the following code " If Weekday(Cells(rw + 1, 10), vbMonday) < 6 Then"
plz find the attachment
Daily Attendance Staff.xlsm
Your kind help will be highly appreciated
High Regards
I run the code and I did not get any error.
if you change the month from the top row "Drop down Menu" and the run the cod it will give errorOriginally Posted by AB33
regards
if you change the month from the top row "Drop down Menu" and the run the cod it will give error
regards
I have changed E4 to September and run the code. No error!
Your code fails when the month selected is December. The Rw variable is 904. For other months, the Rw variable can have other values and, in some cases, more than one fail.
The reason is that the formula in column J can return a blank: J905:Formula:
Please Login or Register to view this content.
The formula "=DAY(J$875+1)" = 23
The code below has been modified to give Debug output rather than try to print the data. If you comment out the Debug output and un-comment the Printout line, it should work and ignore the failures. I'm not going to do that because it creates too many pages of output (although I am printing to a PDF Printer).
Regards, TMS
Please Login or Register to view this content.
Please Login or Register to view this content.
Trevor Shuttleworth - Retired Excel/VBA Consultant
I dream of a better world where chickens can cross the road without having their motives questioned
'Being unapologetic means never having to say you're sorry' John Cooper Clarke
Thnks "TMS"
at-last some one has figure out the error in the code
can you plz upload the excel file with your Code bcz it not working when i past the code in my excel sheet
Best Regards
Please see the attached updated workbook. I have slightly modified the code to display "(blank)" if the cell is blank.
I have copied the output from the Immediate Window to Sheet2 (just for the months with one or more errors.
Regards, TMS
thnks for the file
but when i click on the Macro print button in sheet 1 it do not send prints
best Regards
It is not set up to print. It is producing diagnostic output. You need to remove the comment from the PrintOut statement. And you can comment out the diagnostics.
Please Login or Register to view this content.
working great
Thanks so much for taking the time out to help me out from this problem..
You're welcome. Thanks for the rep.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks