Best System Error Solution: delete selected cells that dont match color of referred cells Tech Support

Monday 26 September 2016

delete selected cells that dont match color of referred cells Tech Support

delete selected cells that dont match color of referred cells

Cell A1and A2 will have a specific background color.

Rows L,M,N will contain data (list of alphanumeric data) in which some cells will be colored and some will not be.
Part 1
I need to delete all cells that have a value but does not have a background color matching A1 and A2.

Part 2
I need consolidate the remaining data to one list in column L.

Solutions to the Problem delete selected cells that dont match color of referred cells

Download SmartPCFixer for Free Now

Hi,

Try this.
Note the last 3 lines are commented out.
They will clear the colour and values from columns M & N if that's what you want to do

Sub delete_Colored_Cells()
Dim a as Long, b as long
Dim Lastrow As Long, MyRange As Range
Dim C As Range, LastRowL As Long
Dim LastRowM As Long, LastRowN As Long
Lastrow = Columns("L:N").Cells.Find(What:="*", After:=[L1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
a = Range("A1").Interior.ColorIndex
b = Range("B1").Interior.ColorIndex
Set MyRange = Range("L1:N" & Lastrow)
For Each C In MyRange
    If C.Interior.ColorIndex <> a And C.Interior.ColorIndex <> b Then
        C.ClearContents
    End If
Next
LastRowL = Cells(Cells.Rows.Count, "L").End(xlUp).Row + 1
LastRowM = Cells(Cells.Rows.Count, "M").End(xlUp).Row
LastRowN = Cells(Cells.Rows.Count, "N").End(xlUp).Row
'Copy M to L
Range("M1:M" & LastRowM).Copy Range("L" & LastRowL)
LastRowL = Cells(Cells.Rows.Count, "L").End(xlUp).Row + 1
'Copy N to L
Range("N1:N" & LastRowN).Copy Range("L" & LastRowL)
LastRowL = Cells(Cells.Rows.Count, "L").End(xlUp).Row
Range("L1:L" & LastRowL).SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
'Clear columns M & N
Lastrow = Columns("L:N").Cells.Find(What:="*", After:=[L1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'With Range("M1:N" & Lastrow)
'    .ClearContents
'    .Interior.ColorIndex = xlNone
'End With
End Sub

Because of this delete selected cells that dont match color of referred cells error, Windows can fail in starting some processes and the system's performance can significantly slow down. In some cases, Windows has problems starting up and the system can freeze.

Lastly, this error delete selected cells that dont match color of referred cells can even result in the Blue screen of death error message, just like other critical Windows errors. If any of the above problems and symptoms occur in your PC, then you should immediately seek to resolve this problem.

In order to resolve delete selected cells that dont match color of referred cells error or repair the corrupted and damaged Windows files, you will need a delete selected cells that dont match color of referred cells error repair tool. There is more than one method of treating this kind of error code, and here is how you can manually do it:

Start the computer and log in as administrator
Go to the start button and select All Programs. Go to Accessories, System Tools, and then System Restore
Click on System Restore and in a new window, select the 'Restore my computer to an earlier time's option and click Next
On the new confirmation window that appears, click Next
Restart your computer after the restoration has been completed

Another Safe way to Fix the Problem: delete selected cells that dont match color of referred cells:

How to Fix delete selected cells that dont match color of referred cells with SmartPCFixer?

1. Download Error Fixer. Install it on your computer.

2. After the scan is finished, you can see the errors and problems which need to be repaired.

3. The Fixing part is done, the speed of your computer will be much higher than before and the errors have been removed.

Best System Error Solution