Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button to increase cell value and print document
This is probably very easy but i dont know to much about macros yet.
Example I have a invoice ref # 001 (existing document) I want to press a button labeled "print" (user action) The macro adds +1 to existing invoice ref# cell. Copy the value of cell "X" , "Y" and "Z" and invoice ref# cell to spread sheet #2 (creating a database) Prints active worksheet. Saves the document Now I have a new invoice ref #002 and the 3 cell values are stored together in the database on spread sheet #2. This way, next time i'm invoicing, my database gets updated and i'll have a refrence number to all my invoices for history puposes. Thanks. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button to increase cell value and print document
if you're in the us or uk, why don't you just download microsoft's free
accounting program? http://office.microsoft.com/en-us/ac...729681033.aspx direct download http://www.ideawins.com/downloads1.aspx -- Gary "Fludium" wrote in message ... This is probably very easy but i dont know to much about macros yet. Example I have a invoice ref # 001 (existing document) I want to press a button labeled "print" (user action) The macro adds +1 to existing invoice ref# cell. Copy the value of cell "X" , "Y" and "Z" and invoice ref# cell to spread sheet #2 (creating a database) Prints active worksheet. Saves the document Now I have a new invoice ref #002 and the 3 cell values are stored together in the database on spread sheet #2. This way, next time i'm invoicing, my database gets updated and i'll have a refrence number to all my invoices for history puposes. Thanks. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button to increase cell value and print document
I added a button from the Forms toolbar (not the control toolbox toolbar) to the
worksheet with the data. Then I assigned this macro to that button. Option Explicit Sub testme() Dim InvCell As Range Dim myAddr As Variant Dim DestCell As Range Dim iCtr As Long Dim aCtr As Long Set InvCell = ActiveSheet.Range("A1") myAddr = Array("a9", "b12", "c3") With Worksheets("Log") Set DestCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) End With If IsNumeric(InvCell.Value) = False Then MsgBox "Please fix: " & InvCell.Address(0, 0) Exit Sub End If With InvCell .Value = .Value + 1 End With With DestCell .NumberFormat = "mm/dd/yyyy hh:mm:ss" .Value = Now .Offset(0, 1).Value = Application.UserName .Offset(0, 2).Value = InvCell.Value iCtr = 0 For aCtr = LBound(myAddr) To UBound(myAddr) .Offset(0, iCtr + 3).Value = ActiveSheet.Range(myAddr(aCtr)).Value iCtr = iCtr + 1 Next aCtr End With ActiveWorkbook.Save ActiveSheet.PrintOut preview:=True 'save some paper while testing End Sub Fludium wrote: This is probably very easy but i dont know to much about macros yet. Example I have a invoice ref # 001 (existing document) I want to press a button labeled "print" (user action) The macro adds +1 to existing invoice ref# cell. Copy the value of cell "X" , "Y" and "Z" and invoice ref# cell to spread sheet #2 (creating a database) Prints active worksheet. Saves the document Now I have a new invoice ref #002 and the 3 cell values are stored together in the database on spread sheet #2. This way, next time i'm invoicing, my database gets updated and i'll have a refrence number to all my invoices for history puposes. Thanks. -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button to increase cell value and print document
After a little tinkering with it, i got it to work. Great stuff!
Thank you very much! "Dave Peterson" wrote: I added a button from the Forms toolbar (not the control toolbox toolbar) to the worksheet with the data. Then I assigned this macro to that button. Option Explicit Sub testme() Dim InvCell As Range Dim myAddr As Variant Dim DestCell As Range Dim iCtr As Long Dim aCtr As Long Set InvCell = ActiveSheet.Range("A1") myAddr = Array("a9", "b12", "c3") With Worksheets("Log") Set DestCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) End With If IsNumeric(InvCell.Value) = False Then MsgBox "Please fix: " & InvCell.Address(0, 0) Exit Sub End If With InvCell .Value = .Value + 1 End With With DestCell .NumberFormat = "mm/dd/yyyy hh:mm:ss" .Value = Now .Offset(0, 1).Value = Application.UserName .Offset(0, 2).Value = InvCell.Value iCtr = 0 For aCtr = LBound(myAddr) To UBound(myAddr) .Offset(0, iCtr + 3).Value = ActiveSheet.Range(myAddr(aCtr)).Value iCtr = iCtr + 1 Next aCtr End With ActiveWorkbook.Save ActiveSheet.PrintOut preview:=True 'save some paper while testing End Sub Fludium wrote: This is probably very easy but i dont know to much about macros yet. Example I have a invoice ref # 001 (existing document) I want to press a button labeled "print" (user action) The macro adds +1 to existing invoice ref# cell. Copy the value of cell "X" , "Y" and "Z" and invoice ref# cell to spread sheet #2 (creating a database) Prints active worksheet. Saves the document Now I have a new invoice ref #002 and the 3 cell values are stored together in the database on spread sheet #2. This way, next time i'm invoicing, my database gets updated and i'll have a refrence number to all my invoices for history puposes. Thanks. -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button to increase cell value and print document
Good idea, but a little to much for what i'm using it for...
Thanks anyway "Gary Keramidas" wrote: if you're in the us or uk, why don't you just download microsoft's free accounting program? http://office.microsoft.com/en-us/ac...729681033.aspx direct download http://www.ideawins.com/downloads1.aspx -- Gary "Fludium" wrote in message ... This is probably very easy but i dont know to much about macros yet. Example I have a invoice ref # 001 (existing document) I want to press a button labeled "print" (user action) The macro adds +1 to existing invoice ref# cell. Copy the value of cell "X" , "Y" and "Z" and invoice ref# cell to spread sheet #2 (creating a database) Prints active worksheet. Saves the document Now I have a new invoice ref #002 and the 3 cell values are stored together in the database on spread sheet #2. This way, next time i'm invoicing, my database gets updated and i'll have a refrence number to all my invoices for history puposes. Thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to Create Macro to Increase Cell Value to one and Print Worksheet | Excel Worksheet Functions | |||
In excel how do I increase a number in a cell by 1 after I print? | New Users to Excel | |||
excel how to put a print button in the document | Excel Worksheet Functions | |||
print out a document directly from a cell in the same raw | Excel Programming | |||
Macro to increase cell value by 1 each time button clicked | Excel Programming |