¿Copiar y pegar el enlace en VBA?
Estoy obteniendo un error en tiempo de ejecución ‘438’ en la línea de pegado. ¿Ayuda?
Esta función llama a la de abajo.
Sub xyz()
Para r = 6 a 84 paso 39
Para c = 3 a 36 paso 3
reportcopy Hojas(“Sheet1”).Cells(r, c).Resize(31, 3)
Siguiente c
Siguiente r
Fin Sub
Sub privada reportcopy (InRange como rango)
InRange.Copy
Hojas(“Report”).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Seleccionar
ActiveCell.Pegar Vínculo:=Verdadero
Application.CutCopyMode = Falso
Fin Sub
davy.ai
El error de tiempo de ejecución ‘438’ generalmente indica que una propiedad o método no está disponible para el objeto especificado. En este caso, podría significar que el objeto ActiveCell no tiene un método de Pegar.
Para resolver este error, intente modificar la función de copiar informes reemplazando la línea:
ActiveCell.Pegar Enlace:=Verdadero
con
Sheets ("Report"). Pegar Destino: = Sheets ("Report"). Cells (Filas.Count, 2). End (xlUp) .Offset (1, 0), Enlace: = Verdadero
Esto pegará directamente el rango copiado en la ubicación especificada en la hoja “Report”.