1

Galera bom dia, tenho a seguinte macro para executar um filtro dentro de uma coluna e me trazer um valor determinado. porem, dentro dessa mesma coluna ha outros valores, gostaria de excluir os valores que nao vou utilizar, como posso fazer? segue o cod.

Set ws3 = ActiveWorkbook.Worksheets("Planilha3")
With ws3
    'Limpa os Autofiltros da Planilha para evitar erros
    If .FilterMode Then
        .ShowAllData
    End If
    'Última Linhada colunaE
    UltimaLinhaE = .Cells(.Rows.Count, "E").End(xlUp).Row
    'Autofiltro
    .Range("E1:E" & UltimaLinhaE).AutoFilter Field:=5, Criteria1:="Cell 01"
End With
1

1 Resposta 1

0

Código

Dim ws3 As Worksheet
Dim UltimaLinhaE As Long
Dim RangeVisivel As Range
Set ws3 = ActiveWorkbook.Worksheets("Planilha3")
With ws3
    'Limpa os Autofiltros da Planilha para evitar erros
    If .FilterMode Then
        .ShowAllData
    End If
    'Última Linhada colunaE
    UltimaLinhaE = .Cells(.Rows.Count, "E").End(xlUp).Row
    'Autofiltro
    .Range("E1:E" & UltimaLinhaE).AutoFilter Field:=1, Criteria1:="<>Cell 01"
    On Error Resume Next
    Set RangeVisivel = .Range(.Cells(1, "E"), .Cells(UltimaLinhaE, "E")).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not RangeVisivel Is Nothing Then
        RangeVisivel.EntireRow.Delete
    End If
End With

Explicação

Primeiro os valores diferentes do desejado são filtrados: .Range("E1:E" & UltimaLinhaE).AutoFilter Field:=1, Criteria1:="<>Cell 01"

Depois uma range é definida com os valores das células visíveis: Set RangeVisivel = .Range(.Cells(1, "E"), .Cells(UltimaLinhaE, "E")).SpecialCells(xlCellTypeVisible)

Se existir essa Range, a linha inteira é deletada: RangeVisivel.EntireRow.Delete

6
  • apresentou um erro "Erro em tempo de execução 1004 o Método Delete da classe range falhou" If Not RangeVisivel Is Nothing Then **RangeVisivel.EntireRow.Delete End If ** = onde esta o erro Commented 23/05/2018 às 15:09
  • Você possui células mescladas? Commented 23/05/2018 às 16:20
  • desculpa, possuo sim, mas elas sao essencias para a apresentacao da planilha.... ha outro modo de realizar este filtro? Commented 23/05/2018 às 16:38
  • Podeira me dar um exemplo? Commented 23/05/2018 às 17:44
  • tirei as mesclagens e o erro persiste Commented 23/05/2018 às 17:55

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .