Pegar en la celda activa el contenido del portapapeles (la fila de otra hoja)
Publicado por Ramón (77 intervenciones) el 14/09/2022 01:11:02
Mediante el código que insertaré al final copio al portapapeles el contenido de determinada fila de la hoja 7 del libro activo. Después abro un nuevo libro con una única hoja, y pretendo, SIN ÉXITO, pegar el contenido que tengo en el portapapeles en una nueva línea del libro abierto.
Este es el código que utilizo y que funciona correctamente:
'Me voy a una nueva línea de la única hoja del nuevo libro...
... hasta llegar a la línea con la que pretendo pegar en la celda activa, como he dicho al principio, el contenido del portapapeles -una fila-... lo he intentado, como también he dicho, SIN ÉXITO ALGUNO, con las siguientes líneas de código:
¿¿¿¿¿¿¿¿¿??????????????
Este es el código que utilizo y que funciona correctamente:
1
2
3
4
5
6
Worksheets(7).Select 'Selecciono la hoja con índice 7 del libro activo
Range("A1000000").End(xlUp).Offset(0, 0).EntireRow.Copy 'Copio su última fila
Application.CutCopyMode = False 'Deselecciono el rango copiado
Workbooks.Open Filename:="C:\EXPEDIENTES_EXCEL_SERVIDOR\EXPEDIENTES_COMUNES.xlsx" 'Abro el libro destino
Range("A1000000").End(xlUp).Offset(1, 0).Select
... hasta llegar a la línea con la que pretendo pegar en la celda activa, como he dicho al principio, el contenido del portapapeles -una fila-... lo he intentado, como también he dicho, SIN ÉXITO ALGUNO, con las siguientes líneas de código:
1
2
3
4
5
'ActiveCell.Paste'ActiveCell.PasteSpecial xlPasteValues'Range("A1000000").End(xlUp).Offset(0, 0).EntireRow.PasteSpecial xlPasteValues'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _' :=False, Transpose:=False¿¿¿¿¿¿¿¿¿??????????????
Valora esta pregunta
0
