none
Sub de exclusão de células RRS feed

  • Pergunta

  • 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

    quarta-feira, 4 de outubro de 2017 14:09

Todas as Respostas

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

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


    Anderson Diniz

    quarta-feira, 4 de outubro de 2017 14:40
  • 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

    quarta-feira, 4 de outubro de 2017 14:47
  • 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

    quarta-feira, 4 de outubro de 2017 14:50