Il mio problema è il seguente: ho registrato una macro che mi copia alcuni dati dal foglio attivo in un foglio riepilogo
Quando do l'invio comincia a passare da un foglio all'altro a copiare questi dati uno alla volta (preferirei copiasse quaesti dati senza formattazione direttamente). Inoltre per copiarli sempre su una riga nuova ho utilizzato questo stratagemma: inserisco alcune righe vuote dove la mia macro va ad inserire questi dati e poi li metto in ordine cronologico (anche questo mi sembra macchinoso
...)Vi allego il codice e ringrazio da subito chi vorrà darmi una mano.
Sub Riepilogo()
Dim s As String
s = ActiveSheet.Name
Sheets("Riepilogo").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Sheets(s).Select
Range("D17:K17").Select
Selection.Copy
Sheets("Riepilogo").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(s).Select
Range("L5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Riepilogo").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(s).Select
Range("L7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Riepilogo").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(s).Select
ActiveWindow.SmallScroll Down:=33
Range("L54").Select
Application.CutCopyMode = False
Selection.Copy
Range("L5").Select
Sheets("Riepilogo").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Range("A3:G300").Sort Key1:=Range("c3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
