-copio i dati che mi servono
-li copio in una determinata cella in Excel
-faccio partire la Macro
-la Macro fa quel che deve fare ( trasporre, modifica dati, formattazione caratteri ecc....)
-ora ho bisogno che mi incolli in B6
La volta successiva che eseguo il tutto con nuovi dati ho bisogno che li metta in B7, altri B8, successivi B9 e così via.....sono tanti
Spero di essere riuscito a spiegarmi e che mi possiate aiutare grazie.
Ora è così
- Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
'
Range("H104:H112").Select
Selection.Copy
Range("I104").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Selection.Cut Destination:=Range("B96:J96")
Range("J96").Select
ActiveWindow.SmallScroll Down:=-9
Selection.Cut Destination:=Range("Q96")
Range("I96").Select
Selection.Cut Destination:=Range("O96")
Range("H96").Select
Selection.Cut Destination:=Range("M96")
Range("G96").Select
Selection.Cut Destination:=Range("K96")
Range("F96").Select
Selection.Cut Destination:=Range("I96")
Range("E96").Select
Selection.Cut Destination:=Range("G96")
Range("D96").Select
Selection.Cut Destination:=Range("E96")
Range("B96:R96").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-96
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Range("N2").Select
End Sub
EDIT Flash: modificato titolo ("Aiuto per macro" non significava nulla)
N.B i codici macro e formule vanno iscritte nel tag Code (invece che grassetto)