Macro para copiar formato

23/12/2006 - 00:30 por macabeo | Informe spam
Hola a todos:
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. Aprecio su
sapiencia y auxilio de antemano:

Saludos desde el golfo de Mexico

Francisco

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/12/2006 - 23:51 | Informe spam
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
Respuesta Responder a este mensaje
#2 macabeo
27/12/2006 - 15:48 | Informe spam
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida