vba problems

[jose001]

Morning everyone,

Can anyone see anything glaringly wrong with the code below, I cannot get it to work it gives me the answer but doesn't 'cap' the result?

Private Sub CommandButton5_Click()

If ComboBox3.Value = "0-1" Then
x = TextBox7.Value * 0.01
ElseIf x > 25000 Then
x = 25000
End If

If ComboBox3.Value = "1-5" Then
x = TextBox7.Value * 0.005
ElseIf x > 62500 Then
x = 62500
End If

If ComboBox3.Value = "5+" Then
x = TextBox7.Value * 0.005
ElseIf x > 75000 Then
x = 75000
End If

MsgBox "£" & x & " would you like to recalculate?", vbOKOnly


End Sub

 

[VoG]

Try like this

If ComboBox3.Value = "0-1" Then
x = WorksheetFunction.Min(25000, Val(TextBox7.Value) * 0.01)
End If

 

[GTO]

...oopsie, slow fingers and a better answer from Peter

 

[jose001]

Oh that's genius, thanks both much appreciated!