Count from/until blank not working

[tourless]

Hi Folks.

Starting in cell I3 I'm simply trying to count the cells with values until I reach the first blank cell. But for some reason it returns the count from I1 to the first blank cell. I have no idea why...

nDays = Range("I3").End(xlDown).Row

 

[Mario_R]

Hi.
What you're showing doesn't do anything "even close" to what you're looking for.
Try with:

nDays = Range("I3", [i3].End(xlDown)).Count

 

[Fluff]

How about

nDays = Range("I3").End(xlDown).Row-2

 

[tourless]

nDays = Range("I3", [i3].End(xlDown)).Count

That's the ticket right there, thank you.

 

[tourless]

How about

nDays = Range("I3").End(xlDown).Row-2

It's funny, that's what I came up with but I wanted it to be cleaner and didn't see any reason why my other code didn't work properly. Now I know

 

[Fluff]

Glad we could help & thanks for the feedback.

Personally I think that is a "cleaner" way of doing it than creating a range & then counting the number of cells.
However both will fail if I4 is blank

 

[tourless]

both will fail if I4 is blank

How do I account for that? That scenario will occur.

 

[Fluff]

How about

If Range("I4") = "" Then
   nDays = 1
Else
   nDays = Range("I3").End(xlDown).Row - 2
End If

 

[tourless]

How about

If Range("I4") = "" Then
   nDays = 1
Else
   nDays = Range("I3").End(xlDown).Row - 2
End If

Ya know. I was moving along so nicely in my coding today then I had to take a vendor on a tour of our facility for about 40 minutes and my brain was mush after that.
This is perfect, thank you for doing my thinking for me this afternoon, lol!

 

[Fluff]

You're welcome & thanks for the feedback.