Macro to select rows in column of activecell

[floridagunner]

Hello I need help with a macro to select all the rows in the column of the active cell.

The number of rows that are selected are based on the number of rows with data in column A.

However I'm getting an error when I use the code below:

Sub SelectColumn()

Dim CC As Long
myfield1 = ActiveCell.Column

CC = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(-1, 0).Row

Range(Column, Cells(lr, myfield1)).Select

End Sub

Can anyone help me in correcting this code ?

Thanks









End Sub

 

[NeonRedSharpie]

lr is null, and you can't have a null row.

[COLOR=#333333]Range(Column, Cells(lr, myfield1)).Select[/COLOR]

 

[floridagunner]

What does null mean ? How do I correct the code ?

 

[floridagunner]

Does anybody know how I can fix this code. I need to select all rows in the column of the activecell based on the number of populated rows in Column A

 

[NeonRedSharpie]

Does anybody know how I can fix this code. I need to select all rows in the column of the activecell based on the number of populated rows in Column A

Sub SelectColumn()
    Range(Cells(1, ActiveCell.Column), Cells(Range("A" & Rows.Count).End(xlUp).Row, ActiveCell.Column)).Select
End Sub

What I meant was, you were using "Column" and "LR" as undefined variables.

 

[floridagunner]

Sub SelectColumn()
    Range(Cells(1, ActiveCell.Column), Cells(Range("A" & Rows.Count).End(xlUp).Row, ActiveCell.Column)).Select
End Sub

What I meant was, you were using "Column" and "LR" as undefined variables.

Thanks for your help NeonRed, your code worked !

 

[farmerscott]

Floridagunner,

try-

Sub SelectColumn()
Dim lr As Long
Dim myfield1 As Long
myfield1 = ActiveCell.Column

Sheets("Sheet1").Activate
lr = Worksheets("sheet1").Cells(Rows.Count, myfield1).End(xlUp).Row
Range(Cells(1, myfield1), Cells(lr, myfield1)).Select
End Sub

RE: Null-Noenredsharpie was referring to the fact that 'lr' was not picking up the last row. You were using CC to get your last row further, it was hard coded to only work on Col A not the active column you are looking for.

Hope this helps,

FarmerScott