Boa tarde
Sou novo na lida com VB, preciso de optimizar um processo de formatação no excel com o Text to column, selecionar a coluna e esta passar a formato de text, esta funcão so permite fazer uma columa de cada vez, por isso gravei uma Macro executando a que preciso, posteriormente estive a criar um ciclo so que esta faz sempre a rotina na mesma posição.
O meu problema é como fazer avançar a macro para as seguintes colunas
Ex: A para B,C........ até o ponto indicado, Isto é posivel, já agora se alguem me poder dar uma ajuda no codigo em baixo agradecia!!!!!.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 08-05-2009 by
'
'
Dim Contador As Integer
Contador = 0
For i = 1 To 4
ActiveSheet.Columns("H:H").Select
Contador = Contador + 1
Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Next
End Sub
Muito Obrigado pela possivel ajuda.
Sou novo na lida com VB, preciso de optimizar um processo de formatação no excel com o Text to column, selecionar a coluna e esta passar a formato de text, esta funcão so permite fazer uma columa de cada vez, por isso gravei uma Macro executando a que preciso, posteriormente estive a criar um ciclo so que esta faz sempre a rotina na mesma posição.
O meu problema é como fazer avançar a macro para as seguintes colunas
Ex: A para B,C........ até o ponto indicado, Isto é posivel, já agora se alguem me poder dar uma ajuda no codigo em baixo agradecia!!!!!.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 08-05-2009 by
'
'
Dim Contador As Integer
Contador = 0
For i = 1 To 4
ActiveSheet.Columns("H:H").Select
Contador = Contador + 1
Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Next
End Sub
Muito Obrigado pela possivel ajuda.