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