Este fórum está sendo desativado

[Pegorini]

Apliquei uma macro para converter o texto importado em números, contudo ao rodar a macro esta conversão não está sendo feita.

Alguém consegue me orientar onde estou errando?

Código: Selecionar todos

Sub Formatar_valores()
    
    
  'Formata contas e valores
  
    
Application.ScreenUpdating = False 'Desabilita a atualização de tela

Dim i As Long

Dim UltimaLinha As Long

i = 2

UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
If UltimaLinha < 2 Then UltimaLinha = 2
                  
    For i = 2 To UltimaLinha
              
     On Error Resume Next
     
         'Inserir aqui a instrução:
         
ThisWorkbook.Worksheets("Plan1").Range("D" & i).NumberFormat = "0.00" 'formatar valores = "$#,##0.00_);[Red]($#,##0.00)"
ThisWorkbook.Worksheets("Plan1").Range("B" & i).NumberFormat = "General"
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat = "dd/mm/yyyy"
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat = "text"
        
ThisWorkbook.Worksheets("Plan1").Range("D" & i).Value = CVar(ThisWorkbook.Worksheets("Plan1").Range("D" & i).Value)
ThisWorkbook.Worksheets("Plan1").Range("B" & i).Value = CDbl(ThisWorkbook.Worksheets("Plan1").Range("B" & i).Value)
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat =
'ThisWorkbook.Worksheets("Plan1").Range("C" & i).NumberFormat =
        
     On Error GoTo 0
        
        
        
    Next

'Habilita a atualização de tela

Application.ScreenUpdating = True


End Sub

[eduardogrigull]

Qual coluna voce quer formatar, e como quer formatar?

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub TextoParaNúmero()
 Columns(2).TextToColumns
 Columns(4).TextToColumns
End Sub

[Pegorini]

Preciso que na coluna "D" converta o texto em números e na "B" para formatação geral. Na minha macro a coluna "B" é transformada para geral , mas a "D" não transforma em números.

[Pegorini]

Oi Osvaldo não deu certo ou não entendo sua macro.

Preciso que na coluna "D" converta o texto em números e na "B" para formatação geral. Na minha macro a coluna "B" é transformada para geral , mas a "D" não transforma em números.

[Jimmy]

Pegorini,

A resposta do Oswaldo funciona pra mim.
Talvez falte apenas complementar com a formatação:

Código: Selecionar todos

Sub TextoParaNúmero()
    Columns(2).NumberFormat = "General"
    Columns(2).TextToColumns
    Columns(4).NumberFormat = "0.00"
    Columns(4).TextToColumns
End Sub

Tente dessa forma.

Jimmy San Juan

[osvaldomp]

Veja uma cópia anexada do seu arquivo com a macro que eu sugeri.

[Pegorini]

Olá Osvaldo e Jimmy.

Muito obrigado pelo suporte.

Apreendi mais essa com vocês.