
Sub Aggiorna()
Sheets("Foglio1").Range("A6:C6").Copy
Sheets("Foglio1").Range("X5:X7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
Sheets("Foglio1").Range("X5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
Sub Aggiorna()
Sheets("Foglio1").Range("A6:C6").Copy
Sheets("Foglio1").Range("X5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
Sub Aggiorna()
Sheets("Foglio1").Range("A6:C6").Copy
Sheets("Foglio1").Range("X5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub |
