Imprimir página | Cerrar ventana

Copiado de datos de dos fuentes. Error 424.

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86439
Fecha de impresión: 26/Marzo/2026 a las 21:00


Tema: Copiado de datos de dos fuentes. Error 424.
Publicado por: katsumoto
Asunto: Copiado de datos de dos fuentes. Error 424.
Fecha de publicación: 08/Agosto/2022 a las 10:57

Tras hacer activa la primera de las celdas libre de datos de la columna A de una hoja de cálculo que he llamado ‘MIS_REGISTROS’ empiezo a copiar datos procedentes de dos fuentes, un UserForM y otra hoja de cálculo del mismo libro que la hoja origen que he ‘MIS_CALCULOS’.

Respecto a los datos que pretendía se copiasen procedentes del UserForm, no hay problema, pero cuando pretendo se copien lo de 'MIS_CALCULOS' Excel se queja diciéndome que ‘se ha producido el error 424, se requiere un objeto’, y tras dar a Depurar el Editor me muestra sombreada la línea que produce el error y que no es otra que la primera de las líneas que 

Sheets("MIS_REGISTROS").Select
Range("A1000000").End(xlUp).Offset(1, 0).Select
'ActiveCell.PasteSpecial xlPasteValues
                   ‘ COPIO LOS DATOS DEL USERFORM:
ActiveCell.Offset(0, 0) = Me.COD_REG

ActiveCell.Offset(0, 1) = Me.USUARIO

ActiveCell.Offset(0, 2) = Me.FECHA_REG

                              ' AHORA COPIO LOS DATOS DE LA HOJA DE CÁLCULO 'MIS_CALCULOS'’:
ActiveCell.Offset(0,3) = Sheets("MIS_CALCULOS").Range("P14").Value.Copy

ActiveCell.Offset(0,4) = Sheets("MIS_CALCULOS").Range("P15").Value.Copy

...///...

Alguien me echa una mano, por favor?   Sonreír




Respuestas:
Publicado por: AnSanVal
Fecha de publicación: 08/Agosto/2022 a las 12:02

Te sobra «Copy»


' AHORA COPIO LOS DATOS DE LA HOJA DE CÁLCULO 'MIS_CALCULOS'

ActiveCell.Offset(0, 3) = Sheets("MIS_CALCULOS").Range("P14").Value

ActiveCell.Offset(0, 4) = Sheets("MIS_CALCULOS").Range("P15").Value




-------------
Saludos desde Tenerife.


Publicado por: AnSanVal
Fecha de publicación: 08/Agosto/2022 a las 12:10

Si lo quieres con Copy, por ejemplo para capturar formato:


' AHORA COPIO LOS DATOS DE LA HOJA DE CÁLCULO 'MIS_CALCULOS'’:

Sheets("MIS_CALCULOS").Range("P14").Copy ActiveCell.Offset(0, 3)

Sheets("MIS_CALCULOS").Range("P15").Copy ActiveCell.Offset(0, 4)





-------------
Saludos desde Tenerife.


Publicado por: katsumoto
Fecha de publicación: 08/Agosto/2022 a las 12:31
Visto AnSanVal  Pulgares hacia arriba
Muchas gracias.
Tema resuelto!!!



Imprimir página | Cerrar ventana