Aiuto per Macro
Hai un problema con Excel? 
Aiuto per Macro
di Palpaba (utente non iscritto) data: 20/04/2015 11:37:47
Buongiorno a tutti,mi servirebbe aiuto per una Macro che sto facendo. Un comando che faccia in modo tale che ogni volta che eseguo la Macro metta il risultato in una determinata casella. E' un pò complicato da spiegare, in poche parole:
-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ì
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
di lepat (utente non iscritto) data: 20/04/2015 11:57:17
allega un file di esempio con i dati ed il risultato desiderato
di Palpaba (utente non iscritto) data: 20/04/2015 12:34:32
Fatto, i dati vengono copiati in cella H104 ho bisogno che vengano trasposti formattati in B7, quelli dopo in B8 e così via
Vuoi Approfondire?