Desplazar celdas vacías hacia arriba

Tengo un libro con un cuadro de control el cual copio y pego automaticmente con una macro. Aquii una captura

Pero aveces me agregan filas y el sector a copiar me queda un renglón vacío y lo copiado es falso

Como en el siguiente ejemplo

El rango que se copia en la macro es I1:N8 pero al agregar una fila quedan exento datos. Cabe destacar que aveces agregan más de una fila. La pregunta es. ¿Hay posibilidad que automáticamente se eliminin esas celdas que quedaron vacías en el cuadro y se coloque todo en su lugar?

1 Respuesta

Respuesta
2

Ejecuta la siguiente macro

Sub Macro1()
  Dim i As Long
  For i = 8 To 1 Step -1
    If Range("I" & i).Value = "" Then
      Range("I" & i & ":N" & i).Delete Shift:=xlUp
    End If
  Next
End Sub

¡Gracias! Que haría si no existieras Dante, esxelente como siempre

. Encantado de ayudarte, gra cias por comentar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas