find next NOT empty cell in column

  • Thread starter Thread starter Max Bialystock
  • Start date Start date
Max,

A lot depends on what you consider "Blank"

With the activecell in column A:

If Intersect(ActiveCell.Offset(1, 0), _
ActiveCell.EntireColumn.SpecialCells(xlCellTypeBlanks)) Is Nothing Then
ActiveCell.Offset(1, 0).Select
Else
If ActiveCell.End(xlDown).Row <> Rows.Count Then
ActiveCell.End(xlDown).Select
End If
End If

This can be re-written for use with a range object so that selecting a cell isn't needed...

HTH,
Bernie
MS Excel MVP
 
Bernie,

I just tested it and that's exactly what I needed.
I can't thank you enough for your help.

Max
 
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

VBA set thick borders around non empty cells in range 0
finding groups of empty cells in a column 4
find next blank column in set area 2
Search for empty cells and move cells next to 10
Count latest number of continous not-empty cells in a row. 11
Copying a formula to a range 2
Finding Next Empty Cell in a Range 20
Dynamic Offset from an Application.Goto cell = Date or Time 10

Back
Top