Validation of input from user in a macro

[Mark_richardson28]

As part of my spreadsheet i need the macro to calculate whether the sum of 6 text boxes = 1. If not i need it to alert the user to check their input. I have tried

If Me.txttas + Me.txtooh.Value + Me.txtengaged.Value + Me.txtother.Value + Me.txtrecycled.Value + Me.txtclosed.Value <> Me.txtprompts.Value Then
Call BadInput("nocompute"): Exit Sub
End If

But it doesn't seem to like what i have.

Any suggestions?

Many thanks

 

[sykes]

Disregard the last - I tripped over you there.
So it would appear that your procedure was being exitted before it ever got to the lines in question!

ref the last question, I'm sure you can do this easily, just can't remember how. I seem to remember it's just setting one of the properties of the textbox.
Having a look now.......

 

[sykes]

Tripping over each other there.
So it's flagging up either way - back to my previous then, the figures can't be what you think. Try the msgbox idea or locals window from my previous and see.
One other thought, you're using Me.... a lot, is the procedure in the right place for this... i.e. are you sure you don't need to make the whole reference to get the numbers you want?

 

[sykes]

........on the other question, use the userform activate event to select all of the text in the first textbox you want highlighted:

Private Sub UserForm_Activate()
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Value)
End Sub

............. and the enter event for any others on the same userform in case users tab through them:

Private Sub TextBox2_Enter()
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Value)
End Sub