Activar celda y pegar
Publicado por PatrickR (66 intervenciones) el 04/11/2021 16:18:56
Buenas tardes,
estoy intentando ir a la última fila disponible y pegar el contenido copiado en otra hora mediante CTRL+C
El código para ir a la última fila lo tengo:
El caso es que luego le añado el código del pegado pero me devuelve error:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=FalseActiveCell.Paste
No consigo hacer que vaya a la última fila sin datos y pegue el contenido.
Gracias de antemano por su ayuda.
estoy intentando ir a la última fila disponible y pegar el contenido copiado en otra hora mediante CTRL+C
El código para ir a la última fila lo tengo:
1
2
3
4
5
6
Sub iraultimafila()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub
El caso es que luego le añado el código del pegado pero me devuelve error:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=FalseActiveCell.Paste
No consigo hacer que vaya a la última fila sin datos y pegue el contenido.
Gracias de antemano por su ayuda.
Valora esta pregunta
0