Macro columnas vacías...
Hola Expertos... He intentado hacer un macro pero... No me sale lo que quiero...
Estoy trabajando con una hoja de excel con bastantes datos todos ellos repartidos por toda la hoja... Lo que necesito es que las columnas que se vayan quedando vacías se vayan agrupando... Es decir que si voy dejando celdas vacías se vayan rellendando siempre en la misma fila...
por ejemplo voy limpiando celdas de la fila 23 pues que los datos de la celda J23 se vayan a la columna que antes este vacía pues C23 por ejemplo... No se si me entendéis...
me intentaron ayudar con esto:
?Sub ajustes()
For Each celda In Selection
ubica = celda.Address
contara = Application.WorksheetFunction.CountA(Range(ubica),Range(ubica).End(xlToRight))
If celda.Value = "" And contara > 0 Then
celda.Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlToRight)).Cut Destination:=Range(ubica)
Range(ubica).Select
End If
Next
End Sub
empieza funcionando, pero llega un momento que "peta" no responde...
me podéis ayudar???
1 respuesta
Está sería tu solución, si lo he entendido bien. Después de que hayas borrado las celdas que quieras, marca con el ratón todo el rango que quieras analizar y después ejecuta esta macro:
(Recuerda finalizar y puntuar mi labor)
Sub ajustar() columnas = Selection.Columns.Count filas = Selection.Rows.Count Do While ActiveCell.Row < filas + 1 Range(ActiveCell, ActiveCell.Offset(0, columnas - 1)).Select For p = 1 To columnas For Each celda In Selection If celda.Value = "" And celda.Offset(0, 1).Value <> "" Then celda.Value = celda.Offset(0, 1) celda.Offset(0, 1).Clear End If Next Next ActiveCell.Offset(1, 0).Select Loop End Sub
Lo siento no me funciona, me sale que se ha producido una error 1004 en tiempo de ejecución error definido por la aplicación o el objeto
La macro funciona perfectamente en mi equipo, si quieres mandame tu archivo con un ejemplo de la información para probarlo.
Ok! te he mandado un correo con un ejemplo pequeño.
Te lo he dicho por mail
En tu archivo, sombre con el ratón desde la celda A1 a la Q30 y después ejecuta la macro
