Copiar formato y pegarlo en una fila determinada

Tengo un formato en toda la fila 4 que quisiera se repita en otra fila si en la misma encuentra en la columna A la palabra "Fecha".

1

1 respuesta

Respuesta
3

Te anexo la macro

Sub Poner_Formato()
'
' Por Dante Amor
'
    Application.ScreenUpdating = False
    Set b = Columns("A").Find("Fecha", LookAt:=xlWhole)
    If Not b Is Nothing Then
        celda = b.Address
        Do
            Rows(4).Copy
            Range("A" & b.Row).PasteSpecial Paste:=xlPasteFormats
            Set b = Columns("A").FindNext(b)
        Loop While Not b Is Nothing And b.Address <> celda
    End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "Fin"
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas