J
Jess
I want to create a macro so that when i select a button ti comes up asking me
to enter the information shownn in the macro and then puts it into choosen
cells?? Does anyone no how to edit this macro so that it actaully works? For
my AS level CW??? Any help woudl be good thnx. The beggining line is
highlited yellow??
Sub InsertNewProduct()
' add a new product
'
'
Application.Run "BikeProject.xls!InsertNewLine"
ActiveCell = Application.InputBox("Enter the new stock reference", "Stock
Reference", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter the new product type", "Product
Type", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter the new product manufacturer:",
"Product Manufacturer", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter new product colour", "Product
Colour", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter the new product cost", "Product
cost", , , , , 2)
ActiveCell.Offset(1, -4).Range("A1").Select
End Sub
to enter the information shownn in the macro and then puts it into choosen
cells?? Does anyone no how to edit this macro so that it actaully works? For
my AS level CW??? Any help woudl be good thnx. The beggining line is
highlited yellow??
Sub InsertNewProduct()
' add a new product
'
'
Application.Run "BikeProject.xls!InsertNewLine"
ActiveCell = Application.InputBox("Enter the new stock reference", "Stock
Reference", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter the new product type", "Product
Type", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter the new product manufacturer:",
"Product Manufacturer", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter new product colour", "Product
Colour", , , , , 2)
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell = Application.InputBox("Enter the new product cost", "Product
cost", , , , , 2)
ActiveCell.Offset(1, -4).Range("A1").Select
End Sub