tengo una macro con la cual limpio los espacios innecesarios en celdas, y en la misma otra que luego de borrar espacios coloca las columnas almacenadas en formato texto con formato numérico especificado, es para ver si ahi forma de agilizar y evitar bugs al momento de correrla.
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.Calculation = xlCalculationAutomatic
End With
End With
End Sub[/CODE]
la macro primero limpia los espacios innecesarios de la data con:
buenos días amigos
tengo una macro con la cual limpio los espacios innecesarios en celdas, y en la misma otra que luego de borrar espacios coloca las columnas almacenadas en formato texto con formato numérico especificado, es para ver si ahi forma de agilizar y evitar bugs al momento de correrla.
la macro primero limpia los espacios innecesarios de la data con:
.Value = Evaluate("if(row(" & .Address & "),clean(trim(" & .Address & ")))")[/CODE]
y luego aplica formato numérico a ciertas columnas:
Selection.NumberFormat = "#,##0"
Columns("J:J").Select
Selection.NumberFormat = "#,##0.00"
Columns("A:A").Select
Selection.NumberFormat = "###0"[/CODE]
gracias por su ayuda.