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".
Respuesta de Dante Amor
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
.
