VBA to Find and locate last row updated in Excel

[Vignesh Veerasamy]

Dear Gurus,

Greetings.

Please share me the VBA to Find and locate last row updated in Excel.
I wish to highlight with "blue" colour the last row in Excel.

Thanks in advance.

Vignesh Veerasamy.

 

[Hui]

Change the Column Label in the lr = line to suit what column will definately have data in the last ro

Sub Color_Last_Row()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
With Rows(lr).Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535    'Yellow
End With

End Sub

If you don't know which Column will have data in the last row use:

Sub Color_Last_Row()
Dim lr As Long
lr = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
With Rows(lr).Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535    'Yellow
End With

End Sub

 

[Vignesh Veerasamy]

Change the Column Label in the lr = line to suit what column will definately have data in the last ro

Sub Color_Last_Row()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
With Rows(lr).Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535    'Yellow
End With

End Sub

If you don't know which Column will have data in the last row use:

Sub Color_Last_Row()
Dim lr As Long
lr = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
With Rows(lr).Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535    'Yellow
End With

End Sub

Dear Hui

Thanks for your swift response.
Macro is working with yellow highlight but excel is not showing me the exact row in which the data is available need to scroll down to the data,can I have such that macro takes to particular last row in last line.

Vignesh Veerasamy.

 

[Hui]

Add a line at the end
Rows(lr).select

 

[Vignesh Veerasamy]

F

Add a line at the end
Rows(lr).select

Hi

Getting a pop up message Object doesnt support this property or method.Below is the code I use in Excel.

Sub Color_Last_Row()
Dim lr As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
With Rows(lr).Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 65535    'Yellow
  .Rows(lr).Select
End With

End Sub

Vignesh Veerasamy.

 

[Vignesh Veerasamy]

F


Hi

Getting a pop up message Object doesnt support this property or method.Below is the code I use in Excel.

Sub Color_Last_Row()
Dim lr As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
With Rows(lr).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535 'Yellow
.Rows(lr).Select
End With

End Sub

Vignesh Veerasamy.

Hi

Also colour required is other than Yellow.

Vignesh Veerasamy

 

[Vignesh Veerasamy]

Hi Hui,

Got it right.Only help is how can i make for other colours?

Vignesh Veerasamy