H
Hebs
I am having troubles with this code please help.
its giving me the duplicate declaration in scope error.
Sub EnterSave(PanSize, PanName, CartNum, Dwidth, ProdName)
Dim Jobnum As Long
Dim DoorNum As Long
Dim PanName As Long
Jobnum = CartForm.JobTxt.Value
NumDoor = CartForm.NumDoorTxt.Value
DoorNum = CartForm.DoorTxt.Value
Sheets("Carts").Visible = True
Sheets("Carts").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Jobnum
ActiveCell.Offset(0, 1).Value = NumDoor
ActiveCell.Offset(0, 2).Value = DoorNum
ActiveCell.Offset(0, 3).Value = PanName
ActiveCell.Offset(0, 4).Value = CartNum
ActiveCell.Offset(0, 5).Value = Dwidth
ActiveCell.Offset(0, 6).Value = PanSize
ActiveCell.Offset(0, 7).Value = ProdName
End Sub
Thanks in advanc
its giving me the duplicate declaration in scope error.
Sub EnterSave(PanSize, PanName, CartNum, Dwidth, ProdName)
Dim Jobnum As Long
Dim DoorNum As Long
Dim PanName As Long
Jobnum = CartForm.JobTxt.Value
NumDoor = CartForm.NumDoorTxt.Value
DoorNum = CartForm.DoorTxt.Value
Sheets("Carts").Visible = True
Sheets("Carts").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Jobnum
ActiveCell.Offset(0, 1).Value = NumDoor
ActiveCell.Offset(0, 2).Value = DoorNum
ActiveCell.Offset(0, 3).Value = PanName
ActiveCell.Offset(0, 4).Value = CartNum
ActiveCell.Offset(0, 5).Value = Dwidth
ActiveCell.Offset(0, 6).Value = PanSize
ActiveCell.Offset(0, 7).Value = ProdName
End Sub
Thanks in advanc