Excel Converter texto em número por VBA em várias colunas

[Cfernandes]

Olá,

 

Olhei os fóruns e não achei nada que pudesse resolver meu problema, até tentar usar algumas opções e não tive sucesso.

 

Na planilha em anexo, preciso converter as colunas que apresentam os valores, porém alimento esses dados semanalmente, e sempre que colo as informações tenho que converter os números, gostaria de saber qual código posso usar para que essas colunas sejam convertidas de forma automática.

Exemplo.xls.xlsx

[Patropi]

Boa tarde @Camila Haubert

 

Copie e cole o código abaixo num módulo, clique em ALT A para voltar a planilha.

Public Sub TextoParaNumerico()

Dim LastRow
Dim rngCelula As Range

'Ajuste o nome de sua aba e a coluna onde estão os valores, o Numero 1 (Cells(Rows.Count, 1) se refere a coluna A
LastRow = Sheets("Exemplo").Cells(Rows.Count, 1).End(xlUp).Row

'Inicio  em A2
Set rngCelula = Range("A2" & ":" & "A" & LastRow)

  With rngCelula
    .NumberFormat = "General"
    .FormulaLocal = rngCelula.Value
  End With
  
End Sub

Para ativar --> clique em ALT F8 e mande executar.

 

Créditos do código para Mauro Coutinho.

 

Se foi útil, clique em Curtir.

 

Se a dúvida foi sanada, marque o tópico como Resolvido (Na minha assinatura tem um link para uma instrução).

 

[]s

[Cfernandes]

@Patropi deu certo, muito obrigada!

 

Funcionou bem certinho, e agradeço a explicação, foi valida para entender até outros códigos.