Select yellow

[sna]

Hi there!
I would need your help regarding code to select only rows have yellow color.
I try to code but not working


Also attached template

Best wishes

[puriwutpokin]

Try it

Code: Select all

Sub DeleteYello()
Dim rg As Range, i As Long
Set rg = Range(Range("a2"), Range("A" & Rows.Count).End(xlUp))
For i = rg.Rows.Count To 1 Step -1
If rg(i).Interior.ColorIndex = 6 Then
rg(i).EntireRow.Delete Shift:=xlUp
End If
Next i
End Sub

[sna]

Thanks .I need select only yellow rows no delete

[snasui]

The example code as below:

Code: Select all

'Other code
Dim strRg As String
Set rg = Range(Range("a2"), Range("A" & Rows.Count).End(xlUp))
For i = 2 To rg.Rows.Count
    If rg(i).Interior.ColorIndex = 6 Then
        strRg = strRg & "," & rg(i).Address(0, 0)
    End If
Next
Range(Mid(strRg, 2)).EntireRow.Select
'Other code

[sna]

Thank you will update soon

[sna]

It occurs run-time-error '1004'
It highlight this part
Range(Mid(strRg, 2)).EntireRow.Select

[sna]

Here's an update

[snasui]

The error occurred because not met condition. Adjust your code with below:

Code: Select all

'Other code
Dim strRg As String
Set rg = Sheets("Bakong").Range(Range("a2"), Range("a" & Rows.Count).End(xlUp))
For i = rg.Rows.Count To 1 Step -1
    If rg(i).Interior.ColorIndex = 6 Then
        strRg = strRg & "," & rg(i).Address(0, 0)
    End If
Next i
If strRg <> "" Then
    Range(Mid(strRg, 2)).EntireRow.Select
End If
'Other code

[sna]

Hi I test it but it still work nothing

[snasui]

Please read my post #8 with carefully.

[sna]

I add this line if strRg <> "" Then
To check strRg value like in post #8 but still no luck

[snasui]

The error occurred because not met condition.

The above is important information

[sna]

Hi what is the condition behind?
I just need code to select row with yellow color
from column A to I only.

[snasui]

Please check this statement. rg(i).Interior.ColorIndex = 6

[sna]

I check the code work but yellow here comes from conditional formatting.this file came from my friend so the code won't trigger.how can we handle this?I just realized this because he doesn't say color it is from conditional formatting

[snasui]

Adjust with the code below:

Code: Select all

'Other code
For i = rg.Rows.Count To 1 Step -1
    If rg(i).DisplayFormat.Interior.ColorIndex = 6 Then
        strRg = strRg & "," & rg(i).Address(0, 0)
    End If
Next i
'Other code

[sna]

Thanks

[sna]

It is error this line
run time error '438'
if rg(i).DisplayFormat.Interior.ColorIndex = 6

[snasui]

It not show this problem in my machine.