Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Selection.Copy
Switch = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Switch = True Then
Target.PasteSpecial
Application.CutCopyMode = xlCut
Switch = False
End If
End Sub
[/CODE]
____________________________________________________________
Hola a todos:
Producto del aburrimiento me ha salido esto.
Para aquellos que teneis que hacer mucho copy/paste os dejo estas cuatro líneas de código.
Colocarlas en la hoja deseada y:
Seleccionar un rango + click derecho en la selección + clic en la celda de destino.
________________________________________________________
Paz, amor y algo de pasta, que tampoco viene mal.
[b]________________________________________________________[/b]
[/color][/b]