Macro para tirar erro de "Número armazenado como texto" e convertê-lo

Question

Bom dia, comunidade!

Por favor, preciso de uma ajuda. Fiz uma macro que abre um relatório em XLS, faz formatações, cálculos necessários, etc., porém os valores da base ficam dessa forma:

"Número armazenado como texto"

E para eu converter em contábil, preciso entrar na célula uma por uma e apertar Enter... mas isso fica inviável.

Preciso que fiquem dessa forma, padrão:

Na macro ele automaticamente coloca essas colunas no valor contábil, porém ainda assim ele fica dessa forma "Número armazenado como texto".

Por favor, existe alguma resolução para este problema, pelo VBA?

Answer 1

Olá

Bem vindo à Comunidade Microsoft 365.

Tudo bem, Davi? Você pode usar a função de conversão de texto para número na planilha do Excel para corrigir esse erro. A seguinte macro pode ser usada para converter automaticamente todos os valores na planilha que estão armazenados como texto:

Sub ConvertTextToNumber() Dim c As Range For Each c In ActiveSheet.UsedRange If IsNumeric(c) And c.Text <> c.Value Then c.Value = c.Text Next cEnd Sub

Para usar a macro, pressione ALT + F11 para abrir o Visual Basic Editor, insira o código na janela, salve e feche o editor. Depois, você pode executar a macro clicando no botão "Executar macro" na guia "Ferramentas".