macro copy paste

Hi max_max,

Another alternative would be:

Sub copia_articolo() 'per copiare articolo in MATERIALI


 Application.CutCopyMode = False '<<< abilta copia/incolla

'------------------------------------------------------------------------
    ActiveCell.Select

    Selection.Copy
    
    Sheets("Foglio1").Activate '<<< passa al foglio

  UltimaRiga = Range("A" & Rows.Count).End(xlUp).Row
Cells(UltimaRiga + 1, 1).Select
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'------------------------------------------------------------------------

 Application.CutCopyMode = False '<<< disabilta copia/incolla
 
 
End Sub

Hi max

I'll not say "Never" but it's my experience you'll not need this line in your Code...

Application.CutCopyMode = True   '<<< abilta copia/incolla

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

You're welcome...glad I could help.

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.

Hi Max

See if this works for you...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

   If Not ActiveSheet.Name = "Foglio1" Then
      Application.CutCopyMode = False   '<<< disabilta copia/incolla

      Application.CellDragAndDrop = False   '<<< disabilita quadratino di trascinimento
   End If
End Sub

Hi Max

I don't understand what you're trying to accomplish.