Notifications
Clear all

Converter texto(erro) em número

5 Posts
3 Usuários
0 Reactions
577 Visualizações
(@leandroxtr)
Posts: 0
New Member
Topic starter
 

Boa tarde!

Uso planilhas exportadas do ERP da empresa como parâmetro em meus trabalhos diários. O problema é que essas planilhas vêem com os números convertidos em textos. Como a planilha é grande e tem mais de 200 abas, não da para ficar "Convertendo em número" manualmente.

Existe algum procedimento que corrija/converta em número todos esses erros de todas planilhas automaticamente?

Obrigado!

 
Postado : 10/01/2017 1:49 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Olá leandroxtr,

Eu criaria uma Macro que faça as conversões automaticamente.

Grave uma Macro, execute /faça o que você precisa e pare a Macro e veja o que o Excel fez, depois, vá ajustando a Macro via VBA para o que você precisa.

At;
Danilo.

 
Postado : 10/01/2017 2:22 pm
(@leandroxtr)
Posts: 0
New Member
Topic starter
 

Sim.. Acho que dá para fazer nesse raciocínio, mas como faria para que essa macro fosse aplicada em todas as 200 planilhas?

 
Postado : 10/01/2017 2:47 pm
(@brunoxro)
Posts: 0
New Member
 

Boa tarde leandroxtr,

Uma forma de você realizar um ação em todas as abas(planilhas) de seu arquivo é com o uso do For Each:

Sub RepetirAcaoEmTodasAsAbas()
        
    Dim Ws  As Worksheet
    
    For Each Ws In Worksheets
    
        '--Seu Código aqui
    
    Next Ws
    
End Sub

Para facilitar a ajuda, disponibilize um arquivo de exemplo (umas 3 abas é mais do que suficiente para teste).

Obs: Não precisa ser com os valores originais.

att,

 
Postado : 10/01/2017 3:51 pm
(@leandroxtr)
Posts: 0
New Member
Topic starter
 

Já consegui resolver, obrigado!

OBS: Esse Loop que você informou aí, não está dando para alterar dados em todas as planilhas, mas apenas em uma(a primeira).

Obrigado!

 
Postado : 11/01/2017 7:46 am