Este fórum está sendo desativado

[Henriquefdef]

Olá

Tenho uma planilha com mais de 100 abas , uma para cada vendedor da empresa e preciso mandar para cada um somente o que for inerente as suas vendas.
Então gostaria de uma macro que pegasse um código da célula E4 na aba que estou, procurasse na aba Base de Dados e apagasse todas as linhas que não contem o código na coluna M .
Alguém pode ajudar ?

[babdallas]

Anexa um exemplo menor, por favor.

[Henriquefdef]

Boa tarde!

Precisava de uma macro para excluir todas as linhas de uma planilha que não tivesse o texto " João M Souza" na coluna "N".

[babdallas]

Veja se ajuda.

Código: Selecionar todos

Option Explicit
Option Private Module

Public Sub DeletarLinhas()
    Dim lngUltLin           As Long            'Última linha preenchida da coluna N
    Dim lngContLin          As Long             'Contador da linha da coluna N
    
    With wshDelLin
        lngUltLin = .Cells(.Rows.Count, 14).End(xlUp).Row       'Encontra a última linha preenchida na coluna N
        
        'Percorre o intervalo da coluna N da última linha até a primeira linha
        For lngContLin = lngUltLin To 2 Step -1
            'Verifica se não tem o texto João M Souza na célula. Caso afirmativo, exclui a linha
            If VBA.InStr(1, .Cells(lngContLin, 14).Value2, "João M Souza") = 0 Then .Rows(lngContLin).Delete
        Next lngContLin
    End With
End Sub