Saltar al contenido

codigo de agrupacion y eliminacion de datos


jhon fredy

Recommended Posts

hola expertos me pueden por favor colaborar con los siguientes dos codigos
tengo un rango de datos numericos que van desde "a1:sx42" pero hay varias celdas vacias y necesito agrupar todos esos datos en una columna en mi caso "ut"
y el segundo codigo seria que elimine las celdas vacias de la columna ut
le agradezco que los codigos sean lo mas rapido posible al ejecutarse

Enlace a comentario
Compartir con otras webs

Prueba con esto:

Sub TransponerA1SX42()
Application.ScreenUpdating = False
y = Columns("UT").Column
For columna = 1 To Columns("SX").Column
 x = (columna - 1) * 42 + 1
 Range(Cells(x, y), Cells(x + 41, y)).Value = _
         Range(Cells(1, columna), Cells(42, columna)).Value
Next
Columns(y).Sort Key1:=Columns(y)
End Sub

 

Enlace a comentario
Compartir con otras webs

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.