Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete values colored cells
Hi,
I am trying to make a macro that when I run it, it Deletes the values of the cells that are yellow in interior color, I appreciate for any help! Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete values colored cells
Hi Mark
Assuming your data is in Column A and starts in Row 2, this should sort you out. Change column to suit if this is not the case. Take care Marcus Sub DeleteYellow() Dim Lw As Long Application.ScreenUpdating = False Lw = Range("A" & Rows.Count).End(xlUp).Row 'Change 2 to appropriate number For i = Lw To 2 Step -1 If Range("A" & i).Interior.ColorIndex = 6 Then Range("A" & i).EntireRow.Delete End If Next i End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete values colored cells
Have a go with this (note it also clears the yellow in cells)
Sub DelYellows() Dim lClr As Long Dim rng As Range, c As Range If TypeName(Selection) < "Range" Then MsgBox "Select cells" Exit Sub End If Set rng = Intersect(ActiveSheet.UsedRange, Selection) If rng Is Nothing Then ' selection outside the usedrange Exit Sub End If If rng.Count 100000 Then If MsgBox(rng.Count & " cells to process, might take a while", _ vbOKCancel) < vbOK Then Exit Sub End If End If For Each c In rng If c.Interior.Color = vbYellow Then c.Interior.ColorIndex = xlNone c.ClearContents End If Next End Sub Regards, Peter T wrote in message ... Hi, I am trying to make a macro that when I run it, it Deletes the values of the cells that are yellow in interior color, I appreciate for any help! Thanks! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete values colored cells
Hi Mark
I read your post incorrectly. This removes the values of those cells which are yellow in Column A. Change the column to suit. Marcus Sub DeleteYellow() Dim Lw As Long Application.ScreenUpdating = False Lw = Range("A" & Rows.Count).End(xlUp).Row For i = Lw To 2 Step -1 If Range("A" & i).Interior.ColorIndex = 6 Then Range("A" & i).Value = "" End If Next i End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I need to delete the values in some cells, | Excel Worksheet Functions | |||
Delete only specific fill colored rows? | Excel Worksheet Functions | |||
Macro do delete values in cells | Excel Discussion (Misc queries) | |||
delete values in cells | Excel Programming | |||
Cell right next to colored cells is automatically colored on entering a value | Excel Programming |