none
Criar macro para excluir linhas que tem informação zerada RRS feed

  • Pergunta

  • Boa tarde pessoal,

    Preciso de ajuda para criar uma macro que exclua toda a linha, quando a informação da coluna "G" for 0

    Alguém pode me ajudar!

    domingo, 10 de fevereiro de 2019 19:44

Todas as Respostas

  • Bom dia.

    Como você não informou seu modelo de dados, fiz uma genérica que parte do principio de que para toda linha de dado, haverá na coluna A um valor.

    Sub Excluir()
    'Declara uma varável para navegar pelas linhas
    Dim linha As Integer
    'Atribui o valor 1 a varialvel linha
    linha = 1
    
    'Partindo do principio que para cada linha de dados, a coluna A contará algum tipo de dado, o Do until vai verificar todas as linhas até que encontre a primeira linha da coluna A vazia.
        Do Until Planilha1.Cells(linha, 1) = ""
            'Verifica se o valor contido na coluna G =0
            'Se for verdadeiro, exclui a linha e volta uma linha para trás
            If Planilha1.Cells(linha, 7) = 0 Then
                Planilha1.Cells(linha, 1).EntireRow.Delete
                linha = linha - 1
            End If
        linha = linha + 1
        Loop
    End Sub
    

    Veja se atende!

    Att.

    segunda-feira, 11 de fevereiro de 2019 12:00