User Form

[How_Do_I]

Hi all,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I want to modify a user form that I’m using to enter half time and full time football scores.
<o> </o>
I enter my scores by using Spin Button… so for example if the half time score was 3-2 I’d enter that using Spin Button 1 and 2 seeing my 3 and 2 in Text Boxes 1 and 2… however, if there were no second half goals I then have to enter 3 and 2 using Spin Buttons 3 and 4 to see 3 and 2 in Text Boxes 3 and 4…
<o> </o>
What I want to know is, can my second half text boxes (3 and 4) = my first half text boxes (1 and 2) and then be amended by the Spin Buttons (3 and 4) IF there are second half goals please?

 

[EXCEL-lence]

Try this one

http://www.excel-lence.info/ffe2003.xls

Make sure you have macros enabled

Leeds united - the cheek!

 

[How_Do_I]

Right, that looks brilliant thanks... It's just a question of, if with my limited VBA skills I can add it to what I already have.

I will have a go though... later today as I suppose I'd better watch F1 and your lot V that North London lot later today.

Thanks for your time with that.

 

[EXCEL-lence]

How did you get on mate?

8-2 :D

 

[How_Do_I]

I didn't! I can't get what I need to do right in my head.

Attached is what I already have... Text Box1 and Spin Button1 work together etc... So I add 2 extra Text Boxes (13 & 14) but my head is spinning trying to take your VBA and match it to what I already have...

Yes two good results for the Manchester Teams...

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K	L	M
3
4			Current						New
5
6			HT						HT
7
8		SB 1	Text Box 1		Text Box 2	SB 2		SB 1	Text Box 1		Text Box 2	SB 2
9
10
11			FT						FT
12
13		SB 3	Text Box 3		Text Box 4	SB 4		SB 3	Text Box 13		Text Box 14	SB 4
14
15
16									Text Box 3		Text Box 4
17
18
19
20
Sheet1

 

[How_Do_I]

I think I have it... Does this look right to you please?

Private Sub TextBox1_Change()
If TextBox3.Value = "" Then
TextBox13.Value = TextBox1.Value
Else
TextBox13.Value = Application.WorksheetFunction.Sum(TextBox1.Value, TextBox3.Value)
End If
End Sub

Private Sub TextBox3_Change()
If TextBox3.Value = "" Then
TextBox13.Value = TextBox1.Value
Else
TextBox13.Value = Application.WorksheetFunction.Sum(TextBox1.Value, TextBox3.Value)
End If
End Sub
Private Sub TextBox2_Change()
If TextBox4.Value = "" Then

TextBox14.Value = TextBox2.Value
Else
TextBox14.Value = Application.WorksheetFunction.Sum(TextBox2.Value, TextBox4.Value)
End If
End Sub

Private Sub TextBox4_Change()
If TextBox14.Value = "" Then
TextBox14.Value = TextBox2.Value
Else
TextBox14.Value = Application.WorksheetFunction.Sum(TextBox2.Value, TextBox4.Value)
End If
End Sub

 

[EXCEL-lence]

Yeah, attach your s/sheet if you want me to take a look in more detail

 

[How_Do_I]

Hi mate...

I have it all running now, I've done a trial of entering scores BUT, I'm not sure about it...

The problem is finger trouble... On my old system if the HT was 2-0 and the FT 3-0... I'd click one Spin Button twice to enter the 2-0 and the second button three times to get 3-0...

I've noticed with this new system I'm in the habit of doing the above so I now get 2-0 and 5-0 as the second button is already on 2 and I'm the habit of clicking 3 times to enter 3-0.

So I'll need to have a re-think... Thanks for your help, your piece works brilliantly, as I've said finger trouble is now the "problem".

 

[EXCEL-lence]

Better the devil you know I suppose