[vba]
Dim r As Range
Dim i As Long
Set r = ActiveCell.Offset(-1 + i, 0)
Do Until r.Value <= CValue Or IsEmpty(r)
i = i + 1
Set r = ActiveCell.Offset(-1 + i, 0)
Loop
ActiveCell.Offset(-2 + i, 0).Select
[/vba]
[vba]
Dim r As Range
Dim i As Long
Set r = ActiveCell.Offset(-1 + i, 0)
Do Until r.Value <= CValue Or IsEmpty(r)
i = i + 1
Set r = ActiveCell.Offset(-1 + i, 0)
Loop
ActiveCell.Offset(-2 + i, 0).Select
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote