xldown in a non-contiguous column

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a non-contiguous column that I need to read. xldown will only take me
to the first blan row. Is there an alternative to xldown to get to the real
bottom of the column?
 
You bet. xlUp... try this...

dim rng as range
set rng = Sheets("Sheet1").Cells(rows.count, "A").end(xlUp)
msgbox rng.address
 
whoops, I worded that wrong. I want to get to the end of the data. Not the
end of h of the column!
 
Why not try it.

--
regards,
Tom Ogilvy



David Gerstman said:
whoops, I worded that wrong. I want to get to the end of the data. Not the
end of h of the column!
Click to expand...
 
Ok... I'm lost. The code posted by Tom and I looks up from the bottom of the
sheet and finds the first non-blank cell in a column. I would have assumed
that would be the end of the data... What exactly are you looking for???
 
This is what I did:

Sub check_names()

Dim ws_name As String

ws_name = "ACTIVE"

Worksheets(ws_name).Activate

Set poc_range = ActiveSheet.Cells(Rows.Count, 2).End(xlUp)

ind = 1

For Each poc In poc_range

ind = ind + 1

Next poc

MsgBox "There were " & ind & " entries."

End Sub

After it ran, ind equalled 2 and not 52. What did I do wrong?
 
OK,
I see what I did wrong. I wanted a range that started at the top and went to
the last row of data. I should have specified that.

I fixed my code to:

Set poc_range = ActiveSheet.Range("b3", Cells(Rows.Count, 2).End(xlUp))

That did the trick.
 
Back
Top