Add Condition to User Form Code

[erock24]

I am using the following code on my text box in my user form.

Private Sub txtSYS_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ws As Worksheet
Set ws = Worksheets("Request Form")
With Me.txtSYS
Trim(cboCat.Value) = "2-Capital Replacement" And Trim(cboLoc.Value) <> "405 - HEADQUARTERS" And Trim(txtSYS.Value) = "00" Then

How can I edit the if statement to say if cbo.cat ="2-Capital....." and cboLoc. does not equal "405....." or "406..." or "409..." and txt.sys = "00" Then

Thank you.

 

[John_w]

Like this maybe.

Private Sub txtSYS_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim ws As Worksheet
Dim sCat As String, sLoc As String
Set ws = Worksheets("Sheet1")

sCat = Trim(cboCat.Value)
sLoc = Trim(cboLoc.Value)

If sCat = "2-Capital Replacement" And _
    sLoc <> "405 - HEADQUARTERS" And sLoc <> "406 - HEADQUARTERS" And sLoc <> "409 - HEADQUARTERS" And _
    Trim(txtSYS.Value) = "00" Then
    MsgBox "All conditions satisfied"
End If

End Sub

 

[erock24]

perfect. thank you