Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Converter em número...
 
Notifications
Clear all

Converter em número...

 
2024 - VBA & Macros
Post Recente por xlarruda 7 anos atrás
5 Posts
2 Usuários
0 Reactions
898 Visualizações
RSS
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

Bom dia, tenho uma planilha que traz dados exportados do banco de dados da empresa.

Acontece que algumas colunas tem suas células marcadas com um ponto verdinho no canto da mesma. (parecido com a marcação de comentário, mas ao invés de vermelha é verde)

Quando seleciono, aparece ao lado da célula um botão com sinal de exclamação.

Se eu clicar no botão, aparece a opção converter em número e resolve o meu problema. Porém não quero ficar fazendo isso manualmente toda a vez que tiver que gerar essa planilha.

Existe alguma forma de fazer isso com VBA?

OBs. As células que aparecem esse ponto verde são só as que contém número.

Desde já, agradeço a contribuição.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 11/10/2017 10:28 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

xlarruda,

Boa tarde!

Como é feita a importação desses dados, do Banco de Dados para a planilha? É través de VBA? Se for, é necessário converter para número, no código VBA, os dados que trazem números, antes de levar os mesmos para as células do Excel. Para isso, basta usar a função CDbl para números com decimais ou CInt para números inteiros.

Se a importação se dá de forma automática pela própria interface do Excel, você deve fazer um código que pegue toda a coluna e transforme para número. Vamos supor que você tem na coluna C, números com casas decimais que começam na linha 2 e terminam na linha 30. Você usaria o seguinte código para converter toda a coluna:

Sub ConverterNúmeros()
    Dim i as Long
    For i = 2 to 30
         Range("C" & i).Value = CDbl(Range("C" & i).Value)
    Next
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 11/10/2017 10:53 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

O arquivo xls é exportado do software de gerenciamento de dados da empresa.
Estou enviando apenas um exemplo do mesmo jeito que ele vem quando é exportado, pra ficar mais claro.
Novamente agradeço a ajuda!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 11/10/2017 12:09 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

OK.

Números convertidos conforme havia lhe explicado na mensagem anterior.

Exemplo001.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 11/10/2017 12:56 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
Topic starter
 

Caro wagner,

É exatamente isso! :D

Muito Obrigado pela Ajuda mano! vlw!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 11/10/2017 2:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico