** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Copiado de datos de dos fuentes. Error 424.
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCopiado de datos de dos fuentes. Error 424.

 Responder Responder
Autor
Mensaje
katsumoto Ver desplegable
Habitual
Habitual


Unido: 24/Julio/2011
Localización: Ciudad Real
Estado: Sin conexión
Puntos: 171
Enlace directo a este mensaje Tema: Copiado de datos de dos fuentes. Error 424.
    Enviado: 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

Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5972
Enlace directo a este mensaje Enviado: 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.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5972
Enlace directo a este mensaje Enviado: 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.
Arriba
katsumoto Ver desplegable
Habitual
Habitual


Unido: 24/Julio/2011
Localización: Ciudad Real
Estado: Sin conexión
Puntos: 171
Enlace directo a este mensaje Enviado: 08/Agosto/2022 a las 12:31
Visto AnSanVal  Pulgares hacia arriba
Muchas gracias.
Tema resuelto!!!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable