Macro para copiar formato

hola, Francisco !

Con respecto al tema iniciado por Oscar (de Sevilla) como seria una macro para copiar el formato desde cualquier celda a cualquier celda.
Que al iniciar preguntara de que celda o rango de celdas se requiere copiar el formato y a que celda o rango de celdas se pegaria este.
Este remplazaria el uso de la brochita que es muy engorrosa...

prueba con algo +/- como el ejemplo al final del presente :))
solo toma muy en cuenta [posibles¡ 'inconvenientes' si las selecciones son diferentes entre 'origen' y 'destino' [p.e.]
celdas combinadas, rangos discontinuos, matrices diferentes entre origen y destino, etc. etc. etc. -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo estandar ==Sub Copiar_formatos()
Dim Origen As Range, Destino As Range
On Error Resume Next ' por si las dudas '
Application.ScreenUpdating = True ' el 'refresco' de la pantalla debe estar 'activo' '
Set Origen = Application.InputBox( _
Prompt:="Selecciona la/s celda/s de origen...", _
Title:="En espera de la seleccion...", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado ->por el usuario<- '
If Origen Is Nothing Then GoTo Salida ' u otras instrucciones '
Set Destino = Application.InputBox( _
Prompt:="Selecciona la/s celda/s de destino...", _
Title:="En espera de la seleccion...", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado ->por el usuario<- '
On Error GoTo 0 ' liberamos la omision de errores '
If Destino Is Nothing Then GoTo Salida ' u otras instrucciones '
Origen.Copy
Destino.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Salida:
Set Origen = Nothing
Set Destino = Nothing
End Sub

Hola Miguel, gracias por tu respuesta
Funciono perfecto. Si escribo el rango me evito el andar moviendome de
un lado a otro de la hoja. Gran ahorro de tiempo! Gracias

Que el próximo año sea lleno de prosperidad y la gracia del Señor
Jesucristo te llene.

Saludos
Francisco


Héctor Miguel ha escrito:

hola, Francisco !

> Con respecto al tema iniciado por Oscar (de Sevilla) como seria una macro para copiar el formato desde cualquier celda a cualquier celda.
> Que al iniciar preguntara de que celda o rango de celdas se requiere copiar el formato y a que celda o rango de celdas se pegaria este.
> Este remplazaria el uso de la brochita que es muy engorrosa...

prueba con algo +/- como el ejemplo al final del presente :))
solo toma muy en cuenta [posibles¡ 'inconvenientes' si las selecciones son diferentes entre 'origen' y 'destino' [p.e.]
celdas combinadas, rangos discontinuos, matrices diferentes entre origen y destino, etc. etc. etc. -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo estandar ==> Sub Copiar_formatos()
Dim Origen As Range, Destino As Range
On Error Resume Next ' por si las dudas '
Application.ScreenUpdating = True ' el 'refresco' de la pantalla debe estar 'activo' '
Set Origen = Application.InputBox( _
Prompt:="Selecciona la/s celda/s de origen...", _
Title:="En espera de la seleccion...", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado ->por el usuario<- '
If Origen Is Nothing Then GoTo Salida ' u otras instrucciones '
Set Destino = Application.InputBox( _
Prompt:="Selecciona la/s celda/s de destino...", _
Title:="En espera de la seleccion...", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado ->por el usuario<- '
On Error GoTo 0 ' liberamos la omision de errores '
If Destino Is Nothing Then GoTo Salida ' u otras instrucciones '
Origen.Copy
Destino.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Salida:
Set Origen = Nothing
Set Destino = Nothing
End Sub