Excel Substituir textos em colunas VBA

[DECOVIOTI]

Ola td bem?

Tenho uma parte do meu código vba que gostaria de substituísse por exemplo: M por Male, F por Female e Null por Not Declared

 

    'Replace the text - Column AE
        
    Columns("AE").Replace What:="M", Replacement:="Male"
    Columns("AE").Replace What:="F", Replacement:="Female"
    Columns("AE").Replace What:="NULL", Replacement:="Not Declared"

 

O código esta se perdendo e não esta substuindo adequadamente. Depois da execução, o resultado e Female, Maleale e Not Declared 

[Edson Luiz Branco]

Bem vindo, @DECOVIOTI

 

Tem que dizer pro VBA pra substituir só palavras inteiras, usando junto o argumento LookAt:=xlWhole:

 Columns("AE").Replace What:="M", Replacement:="Male", LookAt:=xlWhole

etc.

[DECOVIOTI]

@Edson Luiz Branco..Muito Obrigado.. Funcionou

adicionado 37 minutos depois

Ola @Edson Luiz Branco

So uma ultima pergunta

Seria possível  criar uma macro para inserir bordas somente no intervalo de dados que foi importado pela macro?

[Edson Luiz Branco]

Dá pra fazer, com certeza. Anexe seu modelo, descaracterizando informações confidenciais se necessário e explique exatamente como é feita essa importação e em que intervalo(s).

[DECOVIOTI]

@Edson Luiz Branco infelizmente não posso fazer o upload do arquivo. 

Mas o que eu gostaria que após a importação dos dados, que fosse gerado bordas internas como no exemplo abaixo. E a quantidade de linhas muda a cada nova importacao

[Edson Luiz Branco]

Supondo que sua tabela comece em A1:

[A1].CurrentRegion.Borders.LineStyle = xlContinuous

 

[DECOVIOTI]

@Edson Luiz Branco Obrigado, funcionou