2

Estoy tratando de copear datos (en si formatos de un rango) de un libro a otro, pero en el último paso me sale error de Rango, a pesar de habler declarado anteriormente, alguno me podría indicar en que parte estoy errando, ya llevo tiempo y no logro identificar el error, gracias.

introducir la descripción de la imagen aquí

Sub Formatos()

Dim wbFormatos As Workbook
Dim wbPLANTILLA_DE_CARTERA As Workbook

Dim wsRESUMEN_DIRECTOR As Range
Dim wsD_RESUMEN_DIRECTOR As Range

Dim rutaOrigen As String
Dim rutaDestino As String

rutaOrigen = "D:\Formatos.xlsm"
rutaDestino = "D:\PLANTILLA DE CARTERA.xlsm"

Set wbFormatos = Workbooks.Open(Filename:=rutaOrigen, UpdateLinks:=False, ReadOnly:=True)
Set wbPlantillaDeCartera = Workbooks.Open(Filename:=rutaDestino, UpdateLinks:=False, ReadOnly:=False)

'Hojas origen
Set wsRESUMEN_DIRECTOR = wbFormatos.Worksheets("RESUMEN DIRECTOR").Range("A1:AG60")

'Hojas destino
Set wsD_RESUMEN_DIRECTOR = wbPlantillaDeCartera.Worksheets("RESUMEN DIRECTOR").Range("A1:AG60")
wsRESUMEN_DIRECTOR.Copy: Range(wsD_RESUMEN_DIRECTOR).PasteSpecial xlPasteFormats

ThisWorkbook.Save
wbFormatos.Close

End Sub
2
  • "A1:AG60" este rango es correcto?
    – nicP.
    Commented el 27 dic. 2022 a las 2:35
  • Buenos días. Si así es , ambas hojas manejan el mismo tamaño de la celda A1 hasta la AG60 Commented el 27 dic. 2022 a las 11:20

1 respuesta 1

1

Tu línea

Range(wsD_RESUMEN_DIRECTOR).PasteSpecial xlPasteFormats está llamando a un rango cuyo nombre/dirección está en la variable wsD_RESUMEN_DIRECTOR que es de tipo rango y no de tipo string. Eso es lo que confunde a Excel.

Prueba así:

wsRESUMEN_DIRECTOR.Copy: wsD_RESUMEN_DIRECTOR.PasteSpecial xlPasteFormats
1
  • Muchas gracias por tu ayuda, tenías razón. Commented el 27 dic. 2022 a las 21:02

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.