Macro formatar em numero sem aumentar as linhas da tabela

2024 - VBA & Macros

Post Recente por TutoElizeu 7 anos atrás

3 Posts

2 Usuários

0 Reactions

1,137 Visualizações

RSS

TutoElizeu

(@tutoelizeu)

Posts: 160

Estimable Member

Topic starter

Bom dia Mestres!

Mais uma vez estou quebrando a cabeça!

Fiz uma macro para formatar texto em número, ela dá certo, mas gera um grande problema,
Eu exporto um relatorio do SAP e neste os numeros vem como texto, então eu preciso converte-los em numero.

A coluna "A" e coluna "E", esse relatório é variável, pode vir 2 linhas (Como no exemplo), ou pode vir muito mais, por isso eu converti em tabela (Para depois fazer uma Dinâmica)

O problema é: Quando eu rodo a Macro para converter estas colunas em número, a Macro acaba transformando toda a aba em tabela e aí eu fico com mais de 1 mihão de linhas,
Preciso que a Macro formate apenas o range da tabela e não transforme a aba toda em tabela.

Pode me ajudar?

Segue Macro que estou utlizando:

Public Sub FormatarNumeroMB52()

Dim rngCelula As Range


Sheets("MB52").Select
Set rngCelula = Range("A:A")
With rngCelula
.NumberFormat = "General"
.FormulaLocal = rngCelula.Value
End With

Sheets("MB52").Select
Set rngCelula = Range("E:E")
With rngCelula
.NumberFormat = "General"
.FormulaLocal = rngCelula.Value
End With
  

End Sub

Postado : 22/03/2018 8:22 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Colega TutoElizeu Boa Tarde.

Segue conforme pedido.

Public Sub FormatarNumeroMB52()

Dim rngCelula As Range, ul As Long

ul = Planilha11.Range("A" & Rows.Count).End(xlUp).Row

Sheets("MB52").Select
Set rngCelula = Range("A1:A" & ul)
With rngCelula
.NumberFormat = "General"
.FormulaLocal = rngCelula.Value
End With

Sheets("MB52").Select
Set rngCelula = Range("E1:E" & ul)
With rngCelula
.NumberFormat = "General"
.FormulaLocal = rngCelula.Value
End With
  

End Sub

Abçr!

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

Att.

André Arruda

Postado : 22/03/2018 10:16 am