Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
texto para numero
 
Notifications
Clear all

texto para numero

 
2024 - VBA & Macros
2 Posts
1 Usuários
0 Reactions
499 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal estou com um problema para trasnformar texto para numeros, quando executo a macro abaixo:

Worksheets("CálculoPorMáquina").Range("a3:i150000").ClearContents
Worksheets("CálculoPorMáquina").Select
    Range("A2").Select
    ActiveSheet.Paste

As informações são coladas como texto inclusive os numeros, detalhe se faço um copiar e colar elas ficam corretos o problema esta na hora de excutar a macro, estes dados estou copiando de list de outro programa e colando no excel.
Mais um problema estes dados não consigo colar especial..... o excel não esta permetindo esta opção....:(
Estou usando a macro abaixo para converter cada celula em numero mas também não consegui....

On Error GoTo Erro

For Each celula In Range("E2:G5000")
If IsNumeric(Range(celula.Address)) And Application.WorksheetFunction.IsText(Range(celula.Address)) Then
celula.Value = celula.Value
End If
Next celula
MsgBox "Processo terminado"


Exit Sub
Erro:
MsgBox "Erro no processo"

Alguem conhece uma maneira de fazer a converção ou forçar a macro aceitar os dados....

 
Postado : 05/04/2013 7:10 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Achei a solução segue abaixo:

Worksheets("CálculoPorMáquina").Range("a3:i150000").ClearContents
Worksheets("CálculoPorMáquina").Select
    Range("A2").Select
    ActiveSheet.Paste


Columns("E:E").Select
    Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True



    Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
        
        
    Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
 
Postado : 05/04/2013 7:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico