Notifications
Clear all

Macro formatar em numero sem aumentar as linhas da tabela

3 Posts
2 Usuários
0 Reactions
1,131 Visualizações
(@tutoelizeu)
Posts: 0
New 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)
Posts: 0
New 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!

 
Postado : 22/03/2018 10:16 am
(@tutoelizeu)
Posts: 0
New Member
Topic starter
 

Muito bom xlarruda!

Deus abençõe!

Obrigado.

 
Postado : 22/03/2018 12:51 pm