macro copy paste

Hello max_max,

Try it as follow:

Sub copia_articolo ()

  Application.CutCopyMode = False

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

     Selection.Copy
    
     Sheets ( "Sheet1"). Activate 

   UltimaRiga = Range ( "A" & Rows.Count) .End (xlUp) .row
Cells (UltimaRiga + 1, 1) .Select

Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _
: = False, Transpose: = False
'------------------------------------------------- -----------------------

  Application.CutCopyMode = False 
 
end Sub

Regards.

Hello winon.
It works the first time
the second gives error.
max

Hi max_max



Your Code is firing the Workbook_Sheet SelectionChange Event Code which is emptying the Clipboard.

Try this...

Sub copia_articolo()   'per copiare articolo in MATERIALI


   '### You don't need this line of Code
   Application.CutCopyMode = True   '<<< abilta copia/incolla
   '### You don't need this line of Code
   
   Application.EnableEvents = False  '<----Add this line of Code

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

   Selection.Copy

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

   UltimaRiga = Range("A" & Rows.Count).End(xlUp).Row
   Cells(UltimaRiga + 1, 1).Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                 :=False, Transpose:=False
   '------------------------------------------------------------------------

   Application.CutCopyMode = False   '<<< disabilta copia/incolla
   Application.EnableEvents = True   '<----Add this line of Code

End Sub

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

Hello max_max,

Please add the Code below to ThisWorkbook Module:

Private Sub Workbook_Open()

Foglio1.Application.CellDragAndDrop = False
Foglio2.Application.CellDragAndDrop = False

End Sub

Regards.

Hi max_max,

Please see attached sample Workbook. Does it work for you?

Foglio2 is Password protected, without us knowing what the Password is.

Ciao

Try the revised attachment now, please.

Please test the attached revised sample Workbook, max_max,

It should do what you want.

Regards.

@Winon

It's yours...no sense we both bang our head against the wall.