Move to last row of a particular column.

[VijayNewtoExcel]

I want to go the cell of the last row of a particular column where the value has been entered. Can you please provide VBA Code/.

 

[dlwlrma]

Sub GoToLastCellInColumn()
Dim ws As Worksheet
Dim lastRow As Long
Dim targetColumn As String

' Set your worksheet and target column
Set ws = ThisWorkbook.Sheets("Sheet1") ' Change "Sheet1" to your sheet name
targetColumn = "A" ' Change "A" to your desired column

' Find the last row in the target column with data
With ws
lastRow = .Cells(.Rows.Count, targetColumn).End(xlUp).Row
' Select the last cell in the column
.Cells(lastRow, targetColumn).Select
End With
End Sub

 

[MARK858]

@dlwlrma you need a ws.Activate line in that code or it will error if you are on any other sheet than ThisWorkbook.Sheets("Sheet1").... although it won't matter to the OP as they are already on the sheet.

 

[mumps]

This macro applies to the active sheet.

Sub SelectLastRow()
    Dim lCol As Long
    lCol = ActiveCell.Column
    Cells(Rows.Count, lCol).End(xlUp).Select
End Sub

 

[MARK858]

@VijayNewtoExcel if you want the code to automatically run when you change the cell can you narrow the range down to exactly what the particular column is so it isn't running on every cell change? or if you are searching for a specific value then please state it

 

[VijayNewtoExcel]

This macro applies to the active sheet.

Sub SelectLastRow()
    Dim lCol As Long
    lCol = ActiveCell.Column
    Cells(Rows.Count, lCol).End(xlUp).Select
End Sub

Thanks a lot. It worked...

 

[VijayNewtoExcel]

Sub GoToLastCellInColumn()
Dim ws As Worksheet
Dim lastRow As Long
Dim targetColumn As String

' Set your worksheet and target column
Set ws = ThisWorkbook.Sheets("Sheet1") ' Change "Sheet1" to your sheet name
targetColumn = "A" ' Change "A" to your desired column

' Find the last row in the target column with data
With ws
lastRow = .Cells(.Rows.Count, targetColumn).End(xlUp).Row
' Select the last cell in the column
.Cells(lastRow, targetColumn).Select
End With
End Sub

Superb....It worked....Appreciate your quick response

 

[mumps]

You are very welcome.