# Finding minimun from lap times

#### spextacular

##### New Member
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.

### Excel Facts

Test for Multiple Conditions in IF?
Use AND(test, test, test, test) or OR(test, test, test, ...) as the logical_test argument of IF.
Welcome to the Board.

Why are you using CountA rather than Min?

Why not just use

=MIN(FE3:GC1000)

Oops yeah sorry pasted wrong bit in,

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.Min(rng)
Cells(r, c - 137).Value = p
r = r + 1
Loop
End Sub

Cheers

I found that my times were in text format so this is why it wouldn't work.

Replies
9
Views
354
Replies
4
Views
197
Replies
1
Views
88
Replies
1
Views
291
Replies
0
Views
155

1,196,229
Messages
6,014,122
Members
441,802
Latest member
rhinab

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

### Which adblocker are you using?

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back