Clear all cell colors within a range starting at cell A8 and change row of active cell to yellow

FUGMAN · #1 02-04-2017, 06:32 PM

I am looking for an Excel Macro that will do the following two tasks.

1. Clear all row colors within a range starting at cell A8 and ending at the last record in column A. The row of the last record in column A can be any row above row 8.

2. Then make the row of the active cell to be colored yellow.

Thanking you in advance for any help regarding this issue.

jeffreybrown · #2 02-04-2017, 07:26 PM

Not entirely clear...

Quote:

starting at cell A8 and ending at the last record in column A

I would think ending means, start at A8 and the last row could be A255!

Quote:

the last record in column A can be any row above row 8

Above row 8, then wouldn't this just be row 1 thru row 8?

Quote:

Then make the row of the active cell to be colored yellow

What establishes the active row?

Can you give a little more description please or even a sample workbook with before and after?

FUGMAN · #3 02-04-2017, 09:22 PM

Thank you for your reply to my thread. Sorry for the confusion. Hopefully this additional input from me will make things more clear.

First step is to clear all colors from rows within a range starting at cell A8 and ending at the last row which contains data in column A

To address your questions...
The last row could be A9 or A255, A355 or beyond...depending on how many total rows with data are in column A of the spreadsheet.

My statement "above row 8" is in reference to any row number above 8. My intention is to have the macro function for all rows except rows 1 through 7.

The row to be colored is to be determined by selecting a cell (Active Cell) in the row (any row except for rows 1 through 7) that I wish to be colored yellow.

FUGMAN · #4 02-04-2017, 11:11 PM

Additional attempt for clarification of what I am hoping to accomplish.
I want to be able to change the color of a row in my spreadsheet to yellow. I want to select that row by selecting a cell in the row that I want to be colored yellow. This is to include all rows that have contiguous data in column A, excluding rows at 1 through 7. (Starting with row at A8 plus all additional rows numbered higher than row A8 that contain data...till a blank is encountered in column A).
In addition to my original inquiry, I would also like to limit this activity to columns A thru BZ.
Before I have the color of the desired row changed to yellow, I want to have any colors removed from all rows , except for rows 1 through 7.

NoSparks · #5 02-04-2017, 11:58 PM

Perhaps this will work... adapted from http://www.mrexcel.com/forum/excel-q...cted-cell.html

Assumes your colors are not conditional formatting.

Paste into the sheet module.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim lr As Long
  Dim rng As Range
  
  lr = Range("A8").End(xlDown).Row
  Set rng = Range("A8:BZ" & lr)
  
  rng.Interior.ColorIndex = 0
  
  On Error Resume Next
  With Application
    .FindFormat.Clear
    .ReplaceFormat.Clear
    .FindFormat.Interior.ColorIndex = 27
    .ReplaceFormat.Interior.ColorIndex = xlNone
    ActiveSheet.UsedRange.Replace What:="", Replacement:="", SearchFormat:=True, ReplaceFormat:=True
    .FindFormat.Interior.ColorIndex = xlNone
    .ReplaceFormat.Interior.ColorIndex = 27
    Intersect(Target.EntireRow, rng).Replace What:="", Replacement:="", SearchFormat:=True, ReplaceFormat:=True
  End With
End Sub

FUGMAN · #6 02-05-2017, 12:17 AM

Thanks NoSparks.

Your proposed solution works as an event driven procedure, meeting the requirements as I specified.

What I failed to indicate, in my inquiries and attempt s for clarification, is that I want to assign a button (form control) to a macro so that the macro will run only if I click on the button. Is it possible to use the code you have presented in a way that it can be in form of a regular macro..... which is run ONLY because of clicking the button (which is to be shown on the spreadsheet)?

NoSparks · #7 02-05-2017, 08:03 AM

Sorry for the delay in getting back (went to bed for the night).

Credit for this solution goes to whoever won the "I was first" debate at the link I provided, not Me.
I thought this was quite nifty when I saw it so tucked it away for future reference.

Hopefully you've experimented with the macro and by now satisfied the additional requirements.
If not, change the name of the sub to something like Public Sub Highlight_Row()
and in the Intersect line change Target to ActiveCell

FUGMAN · #8 02-05-2017, 08:37 AM

NoSparks.....I failed to recognize the change "Target to ActiveCell requirement.
After incorporating your solution my goal has been accomplished. You may not want credit for the solution, but as far as I am concerned, YOU resolved my issue.

Thank you for taking the time to assist me.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
If value of cell A Matches a value in a Range of cells (column) then add value of cell A to cell C	rick10r	Excel	1	07-05-2016 12:07 PM
Dymanic Range Starting at a Cell Defined by a Count	jap7675	Excel Programming	7	12-02-2015 02:12 AM
If id cell range is empty then should not allow to fill any other cell	ubns	Excel Programming	2	04-12-2015 06:31 AM
Change formula cell range based on cell value	Scoth	Excel	4	10-25-2012 07:51 AM
How can I fill cell color starting from Cell D5 using Conditional formatting instead	Learner7	Excel	0	07-08-2010 05:50 AM