I have created a pricing estimator in Excel. I want to be able to click on an ActiveX command button to generate a new Workbook and name it the client's name in Cell F3.
On the same worksheet as the ActiveX command button, I have an estimate.
Column A = Quantity
Column B = Item
Column C = Price
Column D = Item subtotal ( Column A x Column C)
Cell F3 has Client name
Cell F5 has Client address
Cell F7 has Client Telephone number
Cell F9 has today's date
Ideally, I would like to have the item subtotals be total once all the line items are copied to the new workbook.
In the upper left corner I would like to have the client name, address, and telephone number to be placed.
I would need the headers, "QTY", "Item", "Price", "Subtotal" and the data from the original price estimator sheet to be populated under those column headings.
Since the price estimator workbook is always being used and new values would always be created, I can't have the new workbook link to the price estimator. I just need the values to be copied to the new spreadsheet.
I was only able to create a new workbook and name it but I am lost from there on.
Can someone help me with this?
Private Sub Estimate_Click()
Dim Estimate As String
Estimate = ActiveWorkbook.Worksheets("Chosen Package Parts List").Range("F3").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Estimate & ".xls"
End Sub
On the same worksheet as the ActiveX command button, I have an estimate.
Column A = Quantity
Column B = Item
Column C = Price
Column D = Item subtotal ( Column A x Column C)
Cell F3 has Client name
Cell F5 has Client address
Cell F7 has Client Telephone number
Cell F9 has today's date
Ideally, I would like to have the item subtotals be total once all the line items are copied to the new workbook.
In the upper left corner I would like to have the client name, address, and telephone number to be placed.
I would need the headers, "QTY", "Item", "Price", "Subtotal" and the data from the original price estimator sheet to be populated under those column headings.
Since the price estimator workbook is always being used and new values would always be created, I can't have the new workbook link to the price estimator. I just need the values to be copied to the new spreadsheet.
I was only able to create a new workbook and name it but I am lost from there on.
Can someone help me with this?
Private Sub Estimate_Click()
Dim Estimate As String
Estimate = ActiveWorkbook.Worksheets("Chosen Package Parts List").Range("F3").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Estimate & ".xls"
End Sub
