modificar esta macro

22/02/2007 - 17:42 por daniel | Informe spam
hola a todos muchas gracias por buestras ayudas

tengo la siguiente macro:
la cual me copia la columna e de de forma especial
lo q ocurre es que si la columna tiene los numeros asi 12,25 me los cambia a
12.25 me pone un punto en vez de la coma
como se podria hacer para que en vez de punto ponga coma.
Sub copiarfilatotal()

Sheets("HISTORIAL GENERAL").Select

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
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select

Sheets("HISTORIAL GENERAL").Select

End Sub


un saludo y muchas gracias a todos
 

Leer las respuestas

#1 Héctor Miguel
25/02/2007 - 02:28 | Informe spam
hola, daniel !

en excel-xp/2002 en adelante puedes [ademas] indicar los caracteres que quieres sean interpretados como separadores
[coma/punto para separar miles/decimales] y no tienen porque coincidir con tu configuracion regional 'nativa' :))

sera cuestion de que 'juegues' con el 'set' que mas te convenga [p.e.]

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), _
DecimalSeparator:=",", ThousandsSeparator:=".", TrailingMinusNumbers:=True

saludos,
hector.

__ la consulta original __
tengo la siguiente macro: la cual me copia la columna e de de forma especial
lo q ocurre es que si la columna tiene los numeros asi 12,25 me los cambia a 12.25 me pone un punto en vez de la coma
como se podria hacer para que en vez de punto ponga coma.
Sub copiarfilatotal()
Sheets("HISTORIAL GENERAL").Select
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
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Sheets("HISTORIAL GENERAL").Select
End Sub

Preguntas similares