spextacular
New Member
- Joined
- Mar 19, 2009
- Messages
- 3
Hi there,
I am trying to find the minimum (fastest lap) from a range of laps but my macro keeps returning zero? My range is selecting blank cells but if I adjust my range to miss these out it still returns zero.
Sub Fastest_Lap()
r = 3
c = 161
Do Until Cells(r, c) = ""
Set rng = Range(Cells(r, c + 1), Cells(r, c + 45))
p = WorksheetFunction.CountA(rng)
Cells(r, c - 137).Value = p
r = r + 1
Loop
End Sub
Thanks in advance for any help.
I am trying to find the minimum (fastest lap) from a range of laps but my macro keeps returning zero? My range is selecting blank cells but if I adjust my range to miss these out it still returns zero.
Sub Fastest_Lap()
r = 3
c = 161
Do Until Cells(r, c) = ""
Set rng = Range(Cells(r, c + 1), Cells(r, c + 45))
p = WorksheetFunction.CountA(rng)
Cells(r, c - 137).Value = p
r = r + 1
Loop
End Sub
Thanks in advance for any help.