Sub RUN_FORM()
ordernum = ActiveCell.Offset(0, -30).Value
orderline = ActiveCell.Offset(0, -29).Value
sku = ActiveCell.Offset(0, -23).Value
endmarket = ActiveCell.Offset(0, -33).Value
plant = ActiveCell.Offset(0, -27).Value
leadtime = ActiveCell.Offset(0, -24).Value
planprodwk = ActiveCell.Offset(0, -16).Value
planloaddt = ActiveCell.Offset(0, -13).Value
planotifdt = ActiveCell.Offset(0, -20).Value
actprodwk = ActiveCell.Offset(0, -14).Value
actloaddt = ActiveCell.Offset(0, -11).Value
eta = ActiveCell.Offset(0, -7).Value
actarrdt = ActiveCell.Offset(0, -5).Value
qreq = ActiveCell.Offset(0, -21).Value
qload = ActiveCell.Offset(0, -9).Value
qrec = ActiveCell.Offset(0, -4).Value
otif = ActiveCell.Value
rcause = ActiveCell.Offset(0, 3).Value
rcauseinfo = ActiveCell.Offset(0, 4).Value
servcom = ActiveCell.Offset(0, 5).Value
plancom = ActiveCell.Offset(0, 6).Value
movecom = ActiveCell.Offset(0, 7).Value
SKUDESC = ActiveCell.Offset(0, -22).Value
servRC = ActiveCell.Offset(0, 8).Value
planRC = ActiveCell.Offset(0, 9).Value
moveRC = ActiveCell.Offset(0, 10).Value
dlLOAD = ActiveCell.Offset(0, 15).Value
dlARR = ActiveCell.Offset(0, 16).Value
If ActiveCell.Offset(0, 11).Value = "x" Then
chk_CLOSED.Value = True
Else
chk_CLOSED.Value = False
End If
If ActiveCell.Offset(0, 12).Value = "x" Then
chk_CANCELLED.Value = True
Else
chk_CANCELLED.Value = False
End If
qeta = qload - qreq
qact = qrec - qreq
acv = ActiveCell.Address(False, False)
lbl_ac_ORDERNUM = ordernum
lbl_ac_ORDERLINE = orderline
lbl_ac_SKU = sku
lbl_ac_SKUDESC = SKUDESC
lbl_ac_EM = endmarket
lbl_ac_PLANT = plant
lbl_ac_LEADTIME = leadtime
lbl_ac_PPW = planprodwk
lbl_ac_PLD = planloaddt
lbl_ac_PORD = planotifdt
lbl_ac_APW = actprodwk
lbl_ac_ALD = actloaddt
lbl_ac_ETA = eta
lbl_ac_AAD = actarrdt
lbl_ac_DL_LOAD = dlLOAD
lbl_ac_DL_ARR = dlARR
lbl_ac_QREQ = qreq
lbl_ac_QLOAD = qload
lbl_ac_QREC = qrec
lbl_ac_OTIF = otif
cbo_RC = rcause
txt_RCI = rcauseinfo
txt_SERCOM = servcom
txt_PLANCOM = plancom
txt_MOVECOM = movecom
lbl_ac_LINE = "Cell address: " & acv
cbo_SER_RC = servRC
cbo_PLAN_RC = planRC
cbo_MOVE_RC = moveRC
cbo_RC.RowSource = "RootCause"
With cbo_SER_RC
.AddItem "Customer"
.AddItem "Materials"
.AddItem "Move"
.AddItem "Plan"
.AddItem "Other"
End With
With cbo_PLAN_RC
.AddItem "Customer"
.AddItem "Materials"
.AddItem "Move"
.AddItem "Plan"
.AddItem "Other"
End With
With cbo_MOVE_RC
.AddItem "Customer"
.AddItem "Materials"
.AddItem "Move"
.AddItem "Plan"
.AddItem "Other"
End With
UserNameWindows
If noUser = True Then
cmb_SUBMIT.Enabled = False
End If
End Sub