Saltar al contenido

Macro de espacios y formato de fecha


yordin

Recommended Posts

publicado

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.

Sub ESPACIOS()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False

With ActiveSheet.[A3:U7500]
.Value = Evaluate("if(row(" & .Address & "),clean(trim(" & .Address & ")))")

Range("D:D,E:E,G:G").Select
Selection.NumberFormat = "#,##0"
Columns("J:J").Select
Selection.NumberFormat = "#,##0.00"
Columns("A:A").Select
Selection.NumberFormat = "###0"


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:

[CODE]With ActiveSheet.[A3:U7500]
.Value = Evaluate("if(row(" & .Address & "),clean(trim(" & .Address & ")))")[/CODE]

y luego aplica formato numérico a ciertas columnas:

[CODE] Range("D:D,E:E,G:G").Select
Selection.NumberFormat = "#,##0"
Columns("J:J").Select
Selection.NumberFormat = "#,##0.00"
Columns("A:A").Select
Selection.NumberFormat = "###0"[/CODE]

gracias por su ayuda.

publicado

adjunto el libro en el cual estoy trabajando, el tiene en la celda "a1" de color morado es para colocar un dato numerico o texto el cual con el boton filtrar hace un filtro de las columnas "E,G,K" dependiendo del criterio, el boton llamado borrar filtro hace lo que su nombre borrar el filtro, pero en el tercer boton llamado "Borrar Espacios" esta configurado a la macro "MACRO_TOTAL" que hace un llamado a las macros trabajadas aqui en dias anteriores, y a la macro en la cual estoy pidiendo la colsulta en el post #1

prueba maestro1.rar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.