codice:
Sub Incolla()
On Error GoTo GestioneErrori
Worksheets("Ultima Rosa").Range("A52").PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
Worksheets("Ultima Rosa").Range("Y52:Y100").Cells.Value = ""
Worksheets("Rosa Attuale").Range("A2:X50").Cells.Copy
Worksheets("Ultima Rosa").Range("A2").Paste
Worksheets("Ultima Rosa").Range("A52:X100").Cells.Copy
Worksheets("Rosa Attuale").Range("A2").Paste
Exit Sub
GestioneErrori:
MsgBox Err.Description
End Sub
Mi da errore su tutti i paste e pastespecial. Non capisco il perchè!!!