Marcelo Almeida Cruz

Olá @Edson Luiz Branco

Muito Obrigado! Acabei de testar e deu certo.

Estou com um código que funciona perfeitamente, porém quando o método .find encontra mais de um erro, ele trava. Tentei diversas dicas porém não consegui retirar esse erro do meu código. A linha com erro deixei destacada com ***

Sub filtro()
'

'
Application.ScreenUpdating = False

    On Error GoTo revisar

'retirar plantas vazias
    Range("A2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$U$4500").AutoFilter Field:=18, Criteria1:="="
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.ShowAllData
'retirar LH
    ActiveSheet.Range("$A$1:$U$4500").AutoFilter Field:=1, Criteria1:="=lr*", _
        Operator:=xlAnd
    Selection.Delete Shift:=xlUp
    ActiveSheet.ShowAllData
'retirar B3 e B5
    ActiveSheet.Range("$A$2:$U$4500").AutoFilter Field:=18, Criteria1:=Array( _
        "B3", "B3, B5", "B5"), Operator:=xlFilterValues
    Selection.Delete Shift:=xlUp
    ActiveSheet.ShowAllData
'filtrar rotas a confirmar
    ActiveSheet.Range("$A$2:$U$4500").AutoFilter Field:=2, Criteria1:= _
        "A CONFIRMAR"
    
'copiar nomenclaturas para a coluna W
    Range("A2").Select
        Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.End(xlUp).Select
    Range("W2").Select
    ActiveSheet.Paste

'remover duplicadas de nomenclatura
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$W$2:$W$300").RemoveDuplicates Columns:=1, Header:=xlYes


'retirar dados desnecessários do EDI
    Sheets("EDI").Select
    Range("B:B,E:E,H:H,J:J,L:L,K:K,M:Z,AB:AB,AE:AE,AG:AG,AI:AI,AL:BU").Select
    Selection.Delete Shift:=xlToLeft
    Sheets("EDI").Range("A1").Select
    
    Sheets("Book").Select
    
'variáveis
    linha_fim = Sheets("Book").Range("W2").End(xlDown).Row
    linha = 3
    
    
'criação de abas para cada nomenclatura a confirmar
While linha <= linha_fim

    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("Book").Cells(linha, 23)
    
    Sheets("EDI").Range("A1:M1").Copy
    ActiveSheet.Range("A1").PasteSpecial
    nomenclatura = Sheets("Book").Cells(linha, 23).Value



   *** busca = Sheets("EDI").Cells.Find(nomenclatura, , , xlWhole).Row***


    nom_edi = Sheets("EDI").Cells(busca, 2).Value
    aba_linha = 2
    
    While nom_edi = nomenclatura
        Sheets("EDI").Range("A" & busca & ":M" & busca).Copy
        
        ActiveSheet.Cells(aba_linha, 1).PasteSpecial
        
        busca = busca + 1
        aba_linha = aba_linha + 1
        nom_edi = Sheets("EDI").Cells(busca, 2).Value
    Wend

linha = linha + 1

Wend

Sheets("Book").Select

Range(Cells(2, 23), Cells(linha_fim, 23)).Clear
Range("A2").Select

ThisWorkbook.Save

MsgBox "As Rotas a Confirmar Foram Separadas Por Abas Com Sucesso!", vbInformation
Application.ScreenUpdating = True
End Sub

Bom dia pessoal.

Estou montando um sistema de cadastro de fornecedores, e preciso comparar uma célula com uma coluna. Exemplo:

Na plan 1, eu tenho o banco de dados com nome, celular, telefone fixo, e-mail, e falar com.
Na plan 2, quero buscar todos esses dados, somente inserindo o nome do fornecedor.

Vi uma video-aula que ensinava este processo por um código numérico, mas não é este o meu objetivo, já que eu tenho mais de 500 fornecedores, e precisaria decorar o código de cada um deles.

Abaixo, estão as imagens da minha planilha (os dados foram alterados por questão de segurança).