Sub Salva()
'
' Salva Macro
' Macro registrata il 16/12/2010 da Francesco Noceti
'
' copia riga 1
Sheets("Tabella").Select
Rows("1:1").Select
Selection.Copy
' incolla-valori su riga 11
Rows("11:11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("A12").Select
' seleziono l'area fino all'ultima riga
Selection.End(xlDown).Select
ultima = ActiveCell.Row
Range("a12:m" & ultima).Select
' ordina selezione per colonna A
Selection.Sort Key1:=Range("A11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Inserimento").Select
MsgBox "Dato salvato"
End Sub |