TextToColumns

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,500 Visualizações

RSS

hramos

(@hramos)

Posts: 2

New Member

Topic starter

Boa tarde, a todos.

Estou tentando realizar um código abaixo, para formatar de texto para coluna.

Aplico a função na aba A, para separar o valor da célula: "882,35 Ver detalhes - Linha 1" (informação da célula)
"Informação extraída de um site"

Selection.TextToColumns Destination:=Range("D2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True

Selection.NumberFormat = "0.00"

Porem assim que eu executo o código com exito, vou para a aba 2 onde irei colar um TXT, porem ele cola completamente separado por espaço (como que se o vba anterior tivesse ficado salvo por toda a planilha).

Se alguém souber como me ajudar, me chama que passo a planilha por e-mail ela e super leve só tem dois códigos nela ([email protected]).

Obrigado.

Postado : 13/10/2016 1:50 pm

hramos

(@hramos)

Posts: 2

New Member

Topic starter

Bom tarde, Prezados.

Encontrei uma solução, copiar o mesmo código (exemplo abaixo), com as definições desativadas.

Código primário.
Selection.TextToColumns Destination:=Range("D2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True

--------------------------------------------------------------
Codigo Secundario, correção do codigo anterior.
Range("E2").Select
Selection.TextToColumns Destination:=Range("E2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=False

Postado : 13/10/2016 2:58 pm