Delete in yellow color row in all sheet through VBA

[sivaprakasam]

I have try to Delete in yellow color row in all sheet through VBA (Excel version 2013)

eg.

Sheet Name is . . . "A Team", "B Team" & only "C Team"

in all the sheet, we have highlight the yellow color, due to delete the row.

I want delete in all the sheet the yellow color row only, then automatically to be create the new sheet name is "Delete list" in same excel file

and then deleted yellow color row list wise with sheet name in "A column" come to "Delete list" sheet.

 

[vletm]

sivaprakasam
You write that
1st Your delete yellow rows
and
after that ... what would You do?
... if You has deleted those yellow rows.

 

[Marc L]

According to the attachment a starter demonstration to paste to the (Delete List) worksheet module :​

Sub Demo1()
    Dim R&, W%, L&
        Me.UsedRange.Offset(1).Clear
        Application.ScreenUpdating = False
        R = 2
    For W = 1 To Me.Index - 1
        With Worksheets(W).[A3].CurrentRegion
              .AutoFilter 1, vbYellow, xlFilterCellColor
               L = Application.Subtotal(103, .Columns(1)) - 1
            If L Then
                 Cells(R, 1).Resize(L).Value2 = .Parent.Name
                .Offset(1).Copy Cells(R, 2)
                .Offset(1).Rows.Delete xlShiftUp
                 R = R + L
            End If
              .AutoFilter
        End With
    Next
        If R > 2 Then Range("A2:A" & R - 1).Borders.Weight = xlThin
        Application.ScreenUpdating = True
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[sivaprakasam]

Hi, i try the above code, but i got the error.

 

[sivaprakasam]

sivaprakasam
You write that
1st Your delete yellow rows
and
after that ... what would You do?
... if You has deleted those yellow rows.

Then automatically to be create the new sheet & name is "Delete list" in same excel file

 

[vletm]

sivaprakasam
You didn't read nor answer to my question.

 

[sivaprakasam]

Hi,

I want delete in all the sheet the yellow color row only,

Hereafter automatically to be create "Delete Data" sheet name same excel file.

All yellow color data list to be come in "Delete Data" sheet.

Just done.

 

[vletm]

sivaprakasam
As You wrote ... press [ Do It ]-button
As it'll be possible.

 

[Marc L]

Hi, i try the above code, but i got the error.

Your bad as you did not follow the dark red direction so just well read again …​

​