Hi All

I wonder if you have ever solved a Racing Pigeon problem??

I have the following routine that helps work out averages for Racing Pigeons
it converts the Flying time in seconds & multiplys by 60 it also converts
the miles and yards flown and multiplys by 3600 it then divides the
distance/time as below and gives a velocity in yards per minute.

'Averages

Private Sub Add14_Click()

Tb59.Value = Tb25.Value
Tb60.Value = Tb17.Value
Tb61.Value = Tb18.Value
Tb62.Value = Tb14.Value
Tb63.Value = Tb15.Value
Tb64.Value = Tb16.Value

Tb66.Value = Val(Tb60.Value * 1760) + Val(Tb61.Value)
Tb67.Value = Val(Tb66.Value * 3600)
Tb68.Value = Val(Tb62.Value * 60) + Val(Tb63.Value)
Tb69.Value = Val(Tb68.Value * 60) + Val(Tb64.Value)
Tb70.Value = Val(Tb69.Value * 60)
Tb65.Value = Val(Tb67.Value) / Val(Tb70.Value)

If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
ActiveSheet.Range("B53") = UserForm1.Tb67.Value
ActiveSheet.Range("C53") = UserForm1.Tb70.Value
ActiveSheet.Range("D53") = UserForm1.Tb65.Value

End If


End Sub

What I need to happen as the racing season continues -- I need to add to the
value in the cells on the sheet the new values that are shown in the
respective Text Boxes. Hope I've made myself clear - and you can help a
struggling Racing Pigeon Club Secretary.

--
Many thanks

hazel

I think this might be what you mean

With Activesheet
iLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
.Cells(iLastRow + 1, "B") = UserForm1.Tb67.Value
.Cells(iLastRow + 1, "C") = UserForm1.Tb70.Value
.Cells(iLastRow + 1, "D") = UserForm1.Tb65.Value
End If
End With

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Hazel" wrote in message
...
Hi All

I wonder if you have ever solved a Racing Pigeon problem??

I have the following routine that helps work out averages for Racing
Pigeons
it converts the Flying time in seconds & multiplys by 60 it also converts
the miles and yards flown and multiplys by 3600 it then divides the
distance/time as below and gives a velocity in yards per minute.

'Averages

Private Sub Add14_Click()

Tb59.Value = Tb25.Value
Tb60.Value = Tb17.Value
Tb61.Value = Tb18.Value
Tb62.Value = Tb14.Value
Tb63.Value = Tb15.Value
Tb64.Value = Tb16.Value

Tb66.Value = Val(Tb60.Value * 1760) + Val(Tb61.Value)
Tb67.Value = Val(Tb66.Value * 3600)
Tb68.Value = Val(Tb62.Value * 60) + Val(Tb63.Value)
Tb69.Value = Val(Tb68.Value * 60) + Val(Tb64.Value)
Tb70.Value = Val(Tb69.Value * 60)
Tb65.Value = Val(Tb67.Value) / Val(Tb70.Value)

If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
ActiveSheet.Range("B53") = UserForm1.Tb67.Value
ActiveSheet.Range("C53") = UserForm1.Tb70.Value
ActiveSheet.Range("D53") = UserForm1.Tb65.Value

End If


End Sub

What I need to happen as the racing season continues -- I need to add to
the
value in the cells on the sheet the new values that are shown in the
respective Text Boxes. Hope I've made myself clear - and you can help a
struggling Racing Pigeon Club Secretary.

--
Many thanks

hazel

Hi Bob

Thanks for the quick reply - however I think I explained it wrongly -- your
code works great and puts the textbox data in the cells correctly what i
really need to happen because this is peculiar to pigeon racing the averages
are based over a series of races so all the distances are added together as
well as the recorded flying time - so my entry in the textboxes goes to the
cells correctly -- the next race I again get data in to the text boxes and I
want to add that to the data already in the cells - does this explain it
better???
--
Many thanks

hazel


"Bob Phillips" wrote:

I think this might be what you mean

With Activesheet
iLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
.Cells(iLastRow + 1, "B") = UserForm1.Tb67.Value
.Cells(iLastRow + 1, "C") = UserForm1.Tb70.Value
.Cells(iLastRow + 1, "D") = UserForm1.Tb65.Value
End If
End With

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Hazel" wrote in message
...
Hi All

I wonder if you have ever solved a Racing Pigeon problem??

I have the following routine that helps work out averages for Racing
Pigeons
it converts the Flying time in seconds & multiplys by 60 it also converts
the miles and yards flown and multiplys by 3600 it then divides the
distance/time as below and gives a velocity in yards per minute.

'Averages

Private Sub Add14_Click()

Tb59.Value = Tb25.Value
Tb60.Value = Tb17.Value
Tb61.Value = Tb18.Value
Tb62.Value = Tb14.Value
Tb63.Value = Tb15.Value
Tb64.Value = Tb16.Value

Tb66.Value = Val(Tb60.Value * 1760) + Val(Tb61.Value)
Tb67.Value = Val(Tb66.Value * 3600)
Tb68.Value = Val(Tb62.Value * 60) + Val(Tb63.Value)
Tb69.Value = Val(Tb68.Value * 60) + Val(Tb64.Value)
Tb70.Value = Val(Tb69.Value * 60)
Tb65.Value = Val(Tb67.Value) / Val(Tb70.Value)

If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
ActiveSheet.Range("B53") = UserForm1.Tb67.Value
ActiveSheet.Range("C53") = UserForm1.Tb70.Value
ActiveSheet.Range("D53") = UserForm1.Tb65.Value

End If


End Sub

What I need to happen as the racing season continues -- I need to add to
the
value in the cells on the sheet the new values that are shown in the
respective Text Boxes. Hope I've made myself clear - and you can help a
struggling Racing Pigeon Club Secretary.

--
Many thanks

hazel

You probably explained it correctly, but I'm a southerner, I don't
understand pigeon racing <G.

Is th what you need

With Activesheet If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
.Range("B53").Value = .Range("B53").Value +
UserForm1.Tb67.Value
.Range("C53").Value = .Range("C53").Value +
UserForm1.Tb70.Value
.Range("D53").Value = .Range("D53").Value +
UserForm1.Tb65.Value
End If
End With


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Hazel" wrote in message
...
Hi Bob

Thanks for the quick reply - however I think I explained it wrongly --
your
code works great and puts the textbox data in the cells correctly what i
really need to happen because this is peculiar to pigeon racing the
averages
are based over a series of races so all the distances are added together
as
well as the recorded flying time - so my entry in the textboxes goes to
the
cells correctly -- the next race I again get data in to the text boxes and
I
want to add that to the data already in the cells - does this explain it
better???
--
Many thanks

hazel


"Bob Phillips" wrote:

I think this might be what you mean

With Activesheet
iLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
.Cells(iLastRow + 1, "B") = UserForm1.Tb67.Value
.Cells(iLastRow + 1, "C") = UserForm1.Tb70.Value
.Cells(iLastRow + 1, "D") = UserForm1.Tb65.Value
End If
End With

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Hazel" wrote in message
...
Hi All

I wonder if you have ever solved a Racing Pigeon problem??

I have the following routine that helps work out averages for Racing
Pigeons
it converts the Flying time in seconds & multiplys by 60 it also
converts
the miles and yards flown and multiplys by 3600 it then divides the
distance/time as below and gives a velocity in yards per minute.

'Averages

Private Sub Add14_Click()

Tb59.Value = Tb25.Value
Tb60.Value = Tb17.Value
Tb61.Value = Tb18.Value
Tb62.Value = Tb14.Value
Tb63.Value = Tb15.Value
Tb64.Value = Tb16.Value

Tb66.Value = Val(Tb60.Value * 1760) + Val(Tb61.Value)
Tb67.Value = Val(Tb66.Value * 3600)
Tb68.Value = Val(Tb62.Value * 60) + Val(Tb63.Value)
Tb69.Value = Val(Tb68.Value * 60) + Val(Tb64.Value)
Tb70.Value = Val(Tb69.Value * 60)
Tb65.Value = Val(Tb67.Value) / Val(Tb70.Value)

If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
ActiveSheet.Range("B53") = UserForm1.Tb67.Value
ActiveSheet.Range("C53") = UserForm1.Tb70.Value
ActiveSheet.Range("D53") = UserForm1.Tb65.Value

End If


End Sub

What I need to happen as the racing season continues -- I need to add
to
the
value in the cells on the sheet the new values that are shown in the
respective Text Boxes. Hope I've made myself clear - and you can help a
struggling Racing Pigeon Club Secretary.

--
Many thanks

hazel

Hi Bob

Many thanks -- pigeon racing just moved a step closer to the 21st Century

As an aside if its of interest a racing pigeon was sold at auction for over
£100,000.00
--
Many thanks

hazel


"Bob Phillips" wrote:

You probably explained it correctly, but I'm a southerner, I don't
understand pigeon racing <G.

Is th what you need

With Activesheet If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
.Range("B53").Value = .Range("B53").Value +
UserForm1.Tb67.Value
.Range("C53").Value = .Range("C53").Value +
UserForm1.Tb70.Value
.Range("D53").Value = .Range("D53").Value +
UserForm1.Tb65.Value
End If
End With


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Hazel" wrote in message
...
Hi Bob

Thanks for the quick reply - however I think I explained it wrongly --
your
code works great and puts the textbox data in the cells correctly what i
really need to happen because this is peculiar to pigeon racing the
averages
are based over a series of races so all the distances are added together
as
well as the recorded flying time - so my entry in the textboxes goes to
the
cells correctly -- the next race I again get data in to the text boxes and
I
want to add that to the data already in the cells - does this explain it
better???
--
Many thanks

hazel


"Bob Phillips" wrote:

I think this might be what you mean

With Activesheet
iLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
.Cells(iLastRow + 1, "B") = UserForm1.Tb67.Value
.Cells(iLastRow + 1, "C") = UserForm1.Tb70.Value
.Cells(iLastRow + 1, "D") = UserForm1.Tb65.Value
End If
End With

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Hazel" wrote in message
...
Hi All

I wonder if you have ever solved a Racing Pigeon problem??

I have the following routine that helps work out averages for Racing
Pigeons
it converts the Flying time in seconds & multiplys by 60 it also
converts
the miles and yards flown and multiplys by 3600 it then divides the
distance/time as below and gives a velocity in yards per minute.

'Averages

Private Sub Add14_Click()

Tb59.Value = Tb25.Value
Tb60.Value = Tb17.Value
Tb61.Value = Tb18.Value
Tb62.Value = Tb14.Value
Tb63.Value = Tb15.Value
Tb64.Value = Tb16.Value

Tb66.Value = Val(Tb60.Value * 1760) + Val(Tb61.Value)
Tb67.Value = Val(Tb66.Value * 3600)
Tb68.Value = Val(Tb62.Value * 60) + Val(Tb63.Value)
Tb69.Value = Val(Tb68.Value * 60) + Val(Tb64.Value)
Tb70.Value = Val(Tb69.Value * 60)
Tb65.Value = Val(Tb67.Value) / Val(Tb70.Value)

If Tb65 < 0 Then
Tb65 = Round(((Tb67) / (Tb70)), 3)
ActiveSheet.Range("B53") = UserForm1.Tb67.Value
ActiveSheet.Range("C53") = UserForm1.Tb70.Value
ActiveSheet.Range("D53") = UserForm1.Tb65.Value

End If


End Sub

What I need to happen as the racing season continues -- I need to add
to
the
value in the cells on the sheet the new values that are shown in the
respective Text Boxes. Hope I've made myself clear - and you can help a
struggling Racing Pigeon Club Secretary.

--
Many thanks

hazel

"Hazel" wrote in message
...
Hi Bob

Many thanks -- pigeon racing just moved a step closer to the 21st Century

As an aside if its of interest a racing pigeon was sold at auction for
over
£100,000.00

Jeez! I have a million pigeons in the garden, could one fake it?