Open specific form when ComboBox & Textbox values are checked first

[ipbr21054]

Please can you advise the following edit i need to make.
Currently my code in use opens a form where it looks at ComboBox2 value & if the value is ORIGINAL 2B it opens the form RangerPcb

This is where i need that to be changed.
I would like it to also look at another value & then open the correct form.

It should work like this but obviously written correctly.

If ComboBox2.Value = "ORIGINAL 2B" & TextBox3.Value = "41835" Then
RangerPcb41835.Show
Else
If ComboBox2.Value = "ORIGINAL 2B" & TextBox3.Value = "41601" Then
RangerPcb41601.Show

Thanks

        If ComboBox2.Value = "ORIGINAL 2B" Then
            Unload RangerFormRemote
            RangerPcbNumber.Show
        Else
      
        With .Range("I5")
            .Value = "N/A"
            .Font.Size = 14
            .Font.NAME = "Calibri"
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlVAlignCenter
            Unload RangerFormRemote
        End With

        If .AutoFilterMode Then .AutoFilterMode = False
            x = .Cells(.Rows.count, 5).End(xlUp).Row
            .Range("A4:I" & x).Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess
            MsgBox "DATABASE UPDATED SUCCESSFULLY", vbInformation, "SUCCESSFUL MESSAGE"
            .Range("B5").Select
        End If

    End With
    
End Sub

 

[saboh12617]

Hello,
Your code will work, you just need to replace & by And

And operator

Office VBA reference topic

learn.microsoft.com

 

[ipbr21054]

Please show me for reference in the future

 

[saboh12617]

Like so

If ComboBox2.Value = "ORIGINAL 2B" And TextBox3.Value = "41835" Then
    RangerPcb41835.Show
ElseIf ComboBox2.Value = "ORIGINAL 2B" And TextBox3.Value = "41601" Then
    RangerPcb41601.Show
Else
    ' do nothing ?
End If

 

[ipbr21054]

That didnt open the form in question at all.
Full code shown.

Private Sub TransferButton_Click()
    Dim i As Long, x As Long

    With Sheets("RANGER")

        If TextBox1.Value = "" Then
            MsgBox "NO CUSTOMER'S NAME WAS ENTERED", vbCritical, "RANGER FIELD EMPTY MESSAGE"
            TextBox1.SetFocus
            Exit Sub
        ElseIf TextBox2.Value = "" Then
            MsgBox "YOU DIDNT ENTER THE VIN", vbCritical, "RANGER FIELD EMPTY MESSAGE"
            TextBox2.SetFocus
            Exit Sub
        ElseIf ComboBox1.Value = "" Then
            MsgBox "NO YEAR WAS SELECTED", vbCritical, "RANGER FIELD EMPTY MESSAGE"
            ComboBox1.SetFocus
            Exit Sub
        ElseIf ComboBox2.Value = "" Then
            MsgBox "REMOTE TYPE WAS NOT SELECTED", vbCritical, "RANGER FIELD EMPTY MESSAGE"
            ComboBox2.SetFocus
            Exit Sub
        ElseIf OptionButton5.Value = False And OptionButton6.Value = False And OptionButton5.Visible = True And OptionButton6.Visible = True Then
            MsgBox "NO FINIS NUMBER WAS SELECTED", vbCritical, "RANGER FIELD EMPTY MESSAGE"
            Exit Sub
        ElseIf OptionButton2.Value = False And OptionButton4.Value = False And OptionButton2.Visible = True And OptionButton4.Visible = True Then
            MsgBox "NO UPRATED OPTION WAS SELECTED", vbCritical, "RANGER FIELD EMPTY MESSAGE"
            Exit Sub
        End If
       
        x = 0
        For i = 1 To 4
            If Me.Controls("OptionButton" & i) = True Then
                x = x + 1
                Opt = i
            End If
        Next
        If x = 0 Then
            MsgBox "YOU DIDNT SELECT AN OPTION BUTTON", vbCritical, "RANGER OPTION BUTTON EMPTY MESSAGE"
            Exit Sub
        End If

        .Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        .Range("B5:I5").Borders.LineStyle = xlContinuous
        .Range("B5:I5").Borders.Weight = xlThin
        .Range("B5:I5").Interior.ColorIndex = 6
        .Range("C5:I5").HorizontalAlignment = xlCenter

        .Range("B5").Value = TextBox1.Text
        .Range("D5").Value = TextBox2.Text
        .Range("F5").Value = TextBox3.Text
        .Range("G5").Value = TextBox4.Text
        .Range("C5").Value = ComboBox1.Text
        .Range("H5").Value = ComboBox2.Text
        .Range("E5").Value = Me.Controls("OptionButton" & Opt).Caption
       
        If ComboBox2.Value = "ORIGINAL 2B" Then
            Unload RangerFormRemote
        If ComboBox2.Value = "ORIGINAL 2B" And TextBox3.Value = "41835" Then
            RangerPcb41835.Show
        ElseIf ComboBox2.Value = "ORIGINAL 2B" And TextBox3.Value = "41601" Then
            RangerPcb41601.Show
        Else

        End If
        Else
       
        With .Range("I5")
            .Value = "N/A"
            .Font.Size = 14
            .Font.NAME = "Calibri"
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlVAlignCenter
            Unload RangerFormRemote
        End With

        If .AutoFilterMode Then .AutoFilterMode = False
            x = .Cells(.Rows.count, 5).End(xlUp).Row
            .Range("A4:I" & x).Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess
            MsgBox "DATABASE UPDATED SUCCESSFULLY", vbInformation, "SUCCESSFUL MESSAGE"
            .Range("B5").Select
        End If

    End With
    
End Sub

 

[saboh12617]

Remark: Unless you modify the ComboBox2.Value during the RangerFormRemote Unload, there is no point in checking the value again, you did it 1 row before.

However, it should not pose a problem. My assumption is that TextBox3.Value is different from the ones specified in your code. Did you take the time to run the code Row by Row with F8 and/or to put a breakpoint on row

.Range("E5").Value = Me.Controls("OptionButton" & Opt).Caption

You'd see the problem immediately. What i can see however is very limited.