Aiuto per Macro



  • 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