Estoy recibiendo el siguiente mensaje de error:
Se ha producido el error '1004' en tiempo de ejecución: Error en el método PasteSpecial de la clase Range
Tengo una hoja excel en la cuál he sobrescrito el funcionamiento de la combinación CTRL+V.
En la hoja ThisWorkBook tengo:
Option Explicit
Private Sub Workbook_Activate()
Application.OnKey "^{v}", "FormatoCeldas"
End Sub
Private Sub Workbook_Desactivate()
Application.OnKey "^{v}", ""
End Sub
El procedimiento FormatoCeldas hace lo siguiente:
Public Sub FormatoCeldas()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Cuando copio el valor de una celda y lo pego en otra, funciona todo bien.
Pero cuando copio valores de cualquier sitio que no sea Excel, por ejemplo Bloc de Notas, y lo intento pegar en una celda Excel con Ctrl + V, me da el error arriba mencionado.