Ok, soo... i am having trouble passing the values from combobox and textbox from userform1 to userform3
i have made Cust, PrtNmb and WrkNmb private objects
Sub CommandButton1_Click()
Range("a1").Select
With ActiveSheet
.Range("A1").End(xlDown).Activate 'moves to end of data
activecell.Offset(1, 0).Select 'selects the first non filled cell
End With
activecell.Value = Format(Now(), "mm-dd.yy") 'Fills date
activecell.Offset(0, 1).Select
activecell.Value = Cust 'fills cell with Customer Code
activecell.Offset(0, 1).Select
activecell.Value = PrtNmb 'fills cell with Part Number
activecell.Offset(0, 1).Select
activecell.Value = WrkNmb 'fills cell with Work Order Numnber
activecell.Offset(0, 1).Select
activecell.Value = OpEr 'fills cell with Operation
activecell.Offset(0, 1).Select
activecell.Value = DateTime.Time() 'fills cell with start time
activecell.Offset(0, 2).Select
activecell.Value = Qty
activecell.Offset(0, -7).Select 'returns to first cell
If CheckBox1 = True Then
Hide
UserForm2.Show
End If
Hide
UserForm3.Show
End Sub
i have made Cust, PrtNmb and WrkNmb private objects
Sub CommandButton1_Click()
Range("a1").Select
With ActiveSheet
.Range("A1").End(xlDown).Activate 'moves to end of data
activecell.Offset(1, 0).Select 'selects the first non filled cell
End With
activecell.Value = Format(Now(), "mm-dd.yy") 'Fills date
activecell.Offset(0, 1).Select
activecell.Value = Cust 'fills cell with Customer Code
activecell.Offset(0, 1).Select
activecell.Value = PrtNmb 'fills cell with Part Number
activecell.Offset(0, 1).Select
activecell.Value = WrkNmb 'fills cell with Work Order Numnber
activecell.Offset(0, 1).Select
activecell.Value = OpEr 'fills cell with Operation
activecell.Offset(0, 1).Select
activecell.Value = DateTime.Time() 'fills cell with start time
activecell.Offset(0, 2).Select
activecell.Value = Qty
activecell.Offset(0, -7).Select 'returns to first cell
If CheckBox1 = True Then
Hide
UserForm2.Show
End If
Hide
UserForm3.Show
End Sub