VBA Excel - Macro - Pegar en celdas vacías

Estoy tratando de hacer un bucle o un código que me permita hacer lo siguiente:

Copiar la celda activa donde estoy parado, y pegar DESDE AHÍ PARA ARRIBA en todas las celdas VACÍAS.

Respuesta
1

[Hola 

Te paso la macro


Para finalizar hay 2 opciones Excelente o bueno saludos!

Sub copia()
'
'**Act.Adriel Ortiz
'
    texto = ActiveCell
    For i = ActiveCell.Row To 1 Step -1
        If Cells(i, ActiveCell.Column).Value = "" Then
            Cells(i, ActiveCell.Column).Value = texto
        End If
    Next
End Sub

Impecable. justo lo que necesitaba!

Muchas gracias!

Si es lo justo la valoración sería Excelente saludos!

1 respuesta más de otro experto

Respuesta
1

Seria de la siguiente manera

Sub copier_celda_hacia_arriba()
ActiveCell.Copy
Range(ActiveCell, ActiveCell.End(xlUp)).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas