Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.newusers
|
|||
|
|||
![]()
I have a workbook with 5 pages ( I apologize if those are not the right
terms ) 1 for "Reference tables" 1 for "Invoice data Entry" 1 for "Job Pending & Completion List" 1 for "Print Invoice" 1 for "Summary Statistics" In the Print "Invoice page" it shows all the necessary information that I need for the invoice retrieved from the "Invoice Data Entry" page. What I would like to have is a button on my "Print Invoice" page that would print the invoice ( print to fax ) and at the same time enter the date under a column for "Date Sent" in the "Job Pending & Completion List" page. It appears what I have do do in my macro is to retrieve the Invoice number from the "Print Invoice" page and search for that number in the "Job Pending & Completion List" and then insert the proper date under the "Date Sent" column in the row for that invoice number. I have been entering this date manually; but all to often I forget and than I wind up resending the fax. Employer at other end has no sense of humor and gets very annoyed! Trying to eliminate that. |
#2
![]()
Posted to microsoft.public.excel.newusers
|
|||
|
|||
![]() Theslaz, join our forums where you can attach a workbook where we would be glad to resolve this issue for you. It would be difficult to solve here as you need to let us know the range the invoice number appears on, the range the date appears on, the range the completed date should go and if you want the job status to change after printing we also need to know the range that appears in not to mention the sheets for all the above. -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=34925 |
#3
![]()
Posted to microsoft.public.excel.newusers
|
|||
|
|||
![]() I am now a member. Let me know what you require from me and I will send it. Thanks in advance -- theslaz ------------------------------------------------------------------------ theslaz's Profile: http://www.thecodecage.com/forumz/member.php?userid=44 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=34925 |
#4
![]()
Posted to microsoft.public.excel.newusers
|
|||
|
|||
![]() Welcome to The Code CageOn your next post before submitting it scroll down a little further where you will see a Manage Attachment button click this and upload your workbook and we'll take it from there. -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=34925 |
#5
![]()
Posted to microsoft.public.excel.newusers
|
|||
|
|||
![]() Here is the file you requested. Need more info; just ask! +-------------------------------------------------------------------+ |Filename: Master Invoice 2008-09.xls | |Download: http://www.thecodecage.com/attachment.php?attachmentid=24| +-------------------------------------------------------------------+ -- theslaz ------------------------------------------------------------------------ theslaz's Profile: http://www.thecodecage.com/forumz/member.php?userid=44 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=34925 |
#6
![]()
Posted to microsoft.public.excel.newusers
|
|||
|
|||
![]() Add a command button to your worksheet and add this code, i'm not too sure on the fax as everyone's is different but the rest of the code will work fine! Code: -------------------- Dim fRange As String fRange = Sheets("Job Pending & Completion List").Cells.Find(What:=Sheets("Print Invoice").Range("I2").Value, _ After:=Sheets("Job Pending & Completion List").Range("A1"), LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Address With Sheets("Job Pending & Completion List") .Range(fRange).Offset(0, 7).Value = Date End With Application.ActivePrinter = "microsoft fax" ActiveSheet.PrintOut -------------------- -- Simon Lloyd Regards, Simon Lloyd 'The Code Cage' (http://www.thecodecage.com) ------------------------------------------------------------------------ Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=34925 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
need help to update macro to office 2007 macro enabled workbook | Excel Discussion (Misc queries) | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) |