find last empty cell and highlight yellow

**James__S** · 02-06-2014, 02:29 PM

I am using this code which finds the next empty cell after data.What do i need to change in the code so the cell also fills in with color Yellow?

Thank you

James

Private Sub CommandButton1_Click()
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Interior.Color = 65535
End Sub

**JOHN H. DAVIS** · 02-06-2014, 02:33 PM

Maybe:

Sub James_S()
ActiveSheet.Range("A" & Rows.count).End(xlUp).Offset(1, 0).Interior.ColorIndex = 6
End Sub

**Olly** · 02-06-2014, 02:34 PM

You're very nearly there!

Private Sub CommandButton1_Click()
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Interior.Color = 65535
End Sub

No need to select it first

**James__S** · 02-06-2014, 03:46 PM

Thank you it works

find last empty cell and highlight yellow

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

find last empty cell and highlight yellow

Re: find last empty cell and highlight yellow

Re: find last empty cell and highlight yellow

Re: find last empty cell and highlight yellow

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Find number and highlight in yellow

[SOLVED] Highlight Yellow Active Row, PROBLEM: row selected before closing stays yellow

[SOLVED] How to find first and last non empty cell in row and highlight between?

Macro To find match Value from other clomn and highlight in yellow

How to make the empty cell become yellow? (SOLVED)

Bookmarks

Bookmarks

Posting Permissions