Select no-empty data from a column - VBA.

[Franxja]

Hi everyone, I have a question with VBA, if anyone could help me, I would be very grateful. I think it's a pretty noobie question


I need, from a selected column, to select those items that contain data. I hope it will be better understood with the following image:

https://ibb.co/kd1cEJ

Using the macro recorder, I got the following code, which for some reason does not work.


Sub example()

Range(Selection, Selection.End(xlUp)).Select

End Sub

Thanks.

 

[Franxja]

I forgot to say that will never be null cells between the first and the last cell with data in the column.

 

[Michael M]

Try this

Sub example()
Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row).Select
End Sub

 

[Franxja]

Try this

Sub example()
Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row).Select
End Sub

It worked perfect, thanks you very much!
I have a last question, how to make it work whatever column is selected?
****** id="cke_pastebin" style="position: absolute; top: 0px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">it worked perfect, thank you very much</body>

 

[Michael M]

Maybe this...but the code must be pasted in the worksheet module !!

Private Sub worksheet_selectionchange(ByVal target As Range)
Application.EnableEvents = False
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Application.EnableEvents = True
End Sub