Up Dating Cells From Userform
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
|