What might be wrong with the following code?

Sub Macro7()
Sheets(1).Columns("A:A").Select
Range("A1").Activate
Range(Selection, Selection.End(xlUp)).Select
End Sub

The code remains to be with complete column A:A selected instead of
selecting only the filled up cells.

All your help shall be appreciated.

--
Best Regards,

Faraz

Hi again...

Sub Macro7()
Sheets(1).Select
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

What might be wrong with the following code?

Sub Macro7()
Sheets(1).Columns("A:A").Select
Range("A1").Activate
Range(Selection, Selection.End(xlUp)).Select
End Sub

The code remains to be with complete column A:A selected instead of
selecting only the filled up cells.

All your help shall be appreciated.

--
Best Regards,

Faraz

If I'm understanding this correctly, you want to select the cells from
startinf from A1 that have data? If so, try this:

Sub Macro8()

With Sheets("Sheet1")
.Range(.Range("A1"), .Range("A1").End(xlDown)).Select
End With

End Sub

I think part of the issue is that you need to use a fully qualified
reference for the range. Hopefully this works or at least helps.

Wow!
Jacob! U R simply the best. By the way what was the reason of failure of the
former code which I had extracted via a recorded macro?
--
Best Regards,

Faraz


"Jacob Skaria" wrote:

Hi again...

Sub Macro7()
Sheets(1).Select
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

What might be wrong with the following code?

Sub Macro7()
Sheets(1).Columns("A:A").Select
Range("A1").Activate
Range(Selection, Selection.End(xlUp)).Select
End Sub

The code remains to be with complete column A:A selected instead of
selecting only the filled up cells.

All your help shall be appreciated.

--
Best Regards,

Faraz

Faraz

Thanks for your comments.. The below code extends the selection upwards .
Since you have already selected the entire column it does not make any
difference..To understand this better; try the below test

1
2
3
4

With the above data in cells A5:A9 . (All other cells are blank in column
A). Select cell A9 and run the below code...

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

Then select A15 and run the code again and see the difference...


If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

Wow!
Jacob! U R simply the best. By the way what was the reason of failure of the
former code which I had extracted via a recorded macro?
--
Best Regards,

Faraz


"Jacob Skaria" wrote:

Hi again...

Sub Macro7()
Sheets(1).Select
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

What might be wrong with the following code?

Sub Macro7()
Sheets(1).Columns("A:A").Select
Range("A1").Activate
Range(Selection, Selection.End(xlUp)).Select
End Sub

The code remains to be with complete column A:A selected instead of
selecting only the filled up cells.

All your help shall be appreciated.

--
Best Regards,

Faraz