If Then advice for value to be entered in textbox

[ipbr21054]

Hi,

I have a userform where there are many Textboxes etc.

I currently have this in use & works fine.

        Private Sub OptionButton14_Click()
            If OptionButton14.Value = True Then
            TextBox4.Value = 15976627
            End If
        End Sub

I wish to change the way it now works in that it will only enter the TextBox4 value IF TextBox1 has the name KELVIN GOH present
The name KELVIN GOH will always have a 3 or 4 number after it but need to just look at the name.

Example on how it should work.

If TextBox1 value = KELVIN GOH ??? & OptionButton14.Value = True Then
TextBox4.Value = 15976627

If TextBox1 value is another name then disregard the rest

 

[BenGee]

Is this what you're after?

        Private Sub OptionButton14_Click()
            If TextBox1.Value Like "Kelvin GoH*" And OptionButton14.Value = True Then
               TextBox4.Value = 15976627
            End If
        End Sub

 

[ipbr21054]

Hi,
Thanks for that but the number wasnt entered,see screenshot

 

[Fluff]

Try

        Private Sub OptionButton14_Click()
            If TextBox1.Value Like "KELVIN GOH*" And OptionButton14.Value Then
               TextBox4.Value = 15976627
            End If
        End Sub

 

[ipbr21054]

Same result

 

[Fluff]

Make sure there are no spaces infront of the name in textbox1

 

[ipbr21054]

I did check that but its fine.

Does it make a difference if optionButton is in a frame ?

 

[ipbr21054]

I did a test with 2 optionbuttons & it works so the TextBox is the issue maybe ?

        Private Sub OptionButton14_Click()
            If OptionButton14.Value = True And OptionButton1.Value = True Then
            TextBox4.Value = 15976627
            End If
        End Sub

 

[dmt32]

untested but see if this does what you want

Private Sub OptionButton14_Click()
       If UCase(Me.TextBox14.Value) Like "KELVIN GOH*" Then Me.TextBox4.Value = 15976627
End Sub

Dave

 

[ipbr21054]

Many thanks for the help all sorted