0

He creado la siguiente macro:

Sub Extraer1()
'Definir origen y destino que utilizaremos
Dim OrigenHoja As Excel.Worksheet, _
    DestinoHoja As Excel.Worksheet, _
    OrigenCelda As Excel.Range, _
    DestinoCelda As Excel.Range

'Definir las hojas origen y destino
   Set OrigenHoja = Worksheets("Origen")
   Set DestinoHoja = Worksheets("Destino")

'Definir las celdas origen y destino
Const celdaOrg = "A1"
Const celdaDst = "A1"

'Indicar los rangos origen y destino
Set OrigenCelda = OrigenHoja.Range(celdaOrg)
Set DestinoCelda = DestinoHoja.Range(celdaDst)

'Seleccionar los rangos
ActiveSheet.Unprotect
OrigenCelda.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

'Pegar en destino
DestinoCelda.PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub

Cuando ejecuto me muestra el error '1004' en tiempo de ejecución. Error en el método Select de la clase Range.

Alquien me puede decir donde se encuentra el error.

Gracias.

1
  • Muchas Gracias!!
    – Calej
    el 9 may. 2018 a las 8:46

1 respuesta 1

0

Debes activar antes la hoja en la que está el Rango OrigenCelda.

Justo antes de ActiveSheet.Unprotect escribe OrigenHoja.Activate

2
  • Muchas Gracias. Problema resuelto!!!
    – Calej
    el 9 may. 2018 a las 8:45
  • Genial. Si te ha servido la respuesta, por favor, márcala como correcta, y así se queda cerrada la pregunta.
    – Esei
    el 10 may. 2018 a las 8:37

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.