Excel Função Selection.Replace - VBA - Excel

jun1orp1m3n7a · 22 de julho de 2021

Boa Tarde.

Uso a função abaixo no Excel em VBA faz mais de um ano.

Até agora estava tudo certo...

    Sheets("PLATAFORMA").Select
    
      Columns("E:E").Select
    
    ' Substituir Vendedor 1
    Selection.Replace What:="Vendedor 1", Replacement:="'00007", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 2
    Selection.Replace What:="Vendedor 2", Replacement:="'00010", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 3
    Selection.Replace What:="Vendedor 3", Replacement:="'00009", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Franqueado 1
    Selection.Replace What:="Franqueado 1", Replacement:="'00002", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Gerente 1
    Selection.Replace What:="Gerente 1", Replacement:="'00002", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 4
    Selection.Replace What:="Vendedor 4", Replacement:="'00011", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 5
    Selection.Replace What:="Vendedor 5", Replacement:="'00012", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 6
    Selection.Replace What:="Vendedor 6", Replacement:="'00013", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    
    ' Substituir Vendedor 7
    Selection.Replace What:="Vendedor 7", Replacement:="'00021", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
        
            ' Substituir Vendedor 8
    Selection.Replace What:="Vendedor 8", Replacement:="'00022", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

    ' Substituir Vendedor 9
    Selection.Replace What:="Vendedor 9", Replacement:="'00023", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

     ' Substituir Vendedor 10
    Selection.Replace What:="Vendedor 10", Replacement:="'00025", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

O problema surgiu agora que chegamos ao "VENDEDOR 10".

Ao executar a macro, a busca para no "Vendedor 1" e faz substituição de acordo com o mesmo, não chegando ao 10...

Já sei que terei o mesmo problema para futuros vendedores 11, 12, etc...

Preciso de algum tipo de argumento para substituir apenas quando encontrar ocorrência exata do termo buscado..

Ou qualquer outra forma que atenda.

Alguém saberia me ajudar??