Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro copiar y pegar rango en siguiente fila si esta esta Vacia.

  • Autor del tema Autor del tema Marjol
  • Fecha de inicio Fecha de inicio

Marjol

Member
Registrado
5 May 2021
Mensajes
31
Hola y gracias por leerme:
Quiero en verdad mover parte de las celdas de la fila 12 a la fila 13 pero solo
si esta esta vacia. sino que me de un mensaje box que no se puede.

Código:
' cortar...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
A mi me funciona con:

Código:
Sub a_a()
    Dim Celda As Range
    For Each Celda In Range("B13:K13")
        If Celda = "" Then
            Celda = Celda.Offset(-1, 0)
            Celda.Offset(-1, 0) = ""
        End If
    Next Celda
End Sub


Saludos.
Volver
Arriba