OOOp's typo error info ends Row 25 not 30 in previous post
--
Many Thanks

Sue


"Sue" wrote:

Hi Experts

Small problem for you for me its difficult -- the command button - code below
Private Sub Add1_Click()
Tb99.Value = ActiveSheet.Range("B26")
Tb100.Value = ActiveSheet.Range("C26")
Tb101.Value = ActiveSheet.Range("D26")
Tb102.Value = Format(ActiveSheet.Range("E26"), "0.000")
Tb103.Value = ActiveSheet.Range("B27")
Tb104.Value = ActiveSheet.Range("C27")
Tb105.Value = ActiveSheet.Range("D27")
Tb106.Value = Format(ActiveSheet.Range("E27"), "0.000")
End Sub

the Activesheet info starts at row5 - ends at row 30 -- columns B thru E
what would I need to add to above code where in col E I need to find the
highest number and the insert the whole row B thru E into Row 26 then find
the second highest number and insert that row into B27 -- the final criteria
being that before the highest and second highest number are chosen they must
have the number 14 in row F - therefore if the highest number had 13 or less
in col F it would be ignored the same applying to the second highest number.






--
Many Thanks

Sue