Sub de exclusão de células

Question

Olá pessoal,

Possuo uma planilha onde pinto algumas linhas da tabela somente quando já não preciso mais daquela informação, porém preciso mante-la na planilha até o último dia do mês sempre,

Encontrei a função que gostaria de executar, porém não sei como adicionar o critério desejado a ela.

- O critério é: Apagar todas as células que estejam pintadas de verde.

Segue Sub que executa exatamente o que eu quero, porém com o critério Células Vazias:

Sub ExcluiPintadas()

'Alterar critério
'

Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
With Range("A2:L" & LR)
    .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End With
End Sub

Answer 1

https://www.excel-pratique.com/en/vba/colors.php

Nesse site você pode descobrir qual é o código da sua cor.

---

Anderson Diniz

Answer 2

Option Explicit

Sub ExcluiPintadas()

'Alterar critério
'

Dim LR, i As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row


For i = 2 To LR

If Cells(i, 1).Interior.ColorIndex = 10 Then

Cells(i, 1).EntireRow.Delete

End If

Next i

End Sub

---

Anderson Diniz

Answer 3

Option Explicit

Sub ExcluiPintadas()

'Alterar critério
'

Dim LR, i As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row


For i = 2 To LR

If Cells(i, 1).Interior.Color = RGB(0, 255, 0) Then

Cells(i, 1).EntireRow.Delete

End If

Next i

End Sub

---

Anderson Diniz