VBA question

  • Thread starter Thread starter ub
  • Start date Start date
U

ub

Hi
I have a range defined as Range("C20, L2000"). I want to find the last
record in the range that has any value and then count the number of rows in
this range
Please advise
 
Sub countum()
Set r = Range("C20:L2000")
Set terminus = Nothing
For Each rr In r
If IsEmpty(rr) Then
Else
Set terminus = rr
End If
Next
MsgBox (terminus.Row - r.Row + 1)
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel VBA 1
Cell references in excel vba code 4
Excel VBA - counting cells by colors and names to it in two different rows. 0
Getting a message box program to run (Page 43 of 'BeginningProgramming with VBA' by Duane Birnham) 11
Sumif formula 4
VBA code to select rows 4
autofill variable lenght column w/ sequential numbers using VBA 2
writing a sort macro 2

Back
Top