Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Macro help needed
Thanks in advance to any one that can help. Karen
I have a macro in a spreadsheet that works fine (copy below). I need a similar Macro in the same workbook to SAVE_CONFIRMATION and SET_CONFIRMATION. I have two new sheets in the workbook Confirmation (which is the same as the invoice) and COWorksheet (which is the same idea as INWorksheet). My Invoice sheet has a button at the bottom to Save Invoice, I want to make a similar button on the bottom of my Confrimation sheet to Save Confirmation but I can't seem to access the button that copied over to change the wording etc. I have no problem changing the information that is being saved by the Macro, but I am not able to get the new macro set up to start, I had help with the initial setup of the first and the creation of the Button to save it. Public Sub SAVE_INVOICE() 'write invoice details to worksheet.. With ThisWorkbook.Worksheets("INWorksheet") .Range("A" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("I1").Val ue .Range("B" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("H13").Va lue 'Invoice Date .Range("C" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("B11").Va lue 'Client Name .Range("D" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("I44").Va lue 'Total .Range("E" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("I41").Va lue 'SubTotal .Range("F" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("I42").Va lue 'GST .Range("G" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("I43").Va lue 'PST .Range("H" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("A20").Va lue 'Shipping Date .Range("I" & iROW).Value = ThisWorkbook.Worksheets("Invoice").Range("G20").Va lue 'FOB Terms End With End Sub Public Sub SET_INVOICE() Dim iFlag As Integer 'counter Dim iINVOICE_NO As Integer 'this code will auto - generate the next Invoice No. and put the detail into 'INWORKSHEET' 'turn off screen updating so theres no flickering... Application.ScreenUpdating = False 'first empty row = iROW iROW = Application.CountA(ThisWorkbook.Worksheets("INWork sheet").Range("A1:A60000"), 0) 'need to keep iROW, so assign value to iFlag iFlag = iROW - 1 'now see if the entry in the last cell in Col A is numeric....loop until you find a number... Do Until IsNumeric(ThisWorkbook.Worksheets("INWorksheet").R ange("A" & iFlag).Value) iFlag = iFlag - 1 Loop iINVOICE_NO = ThisWorkbook.Worksheets("INWorksheet").Range("A" & iFlag).Value 'put the NEW invoice number into the Invoice ThisWorkbook.Worksheets("Invoice").Range("I1").Val ue = iINVOICE_NO + 1 'default todays date on the invoice ThisWorkbook.Worksheets("Invoice").Range("H13").Va lue = Date 'now turn screen updating back on to see results Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying Macro Needed | New Users to Excel | |||
Help Needed With Copying Formulas | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) |