Risultati da 1 a 4 di 4

Discussione: MACRO per copiare dati su un altro foglio



  1. #1
    L'avatar di mpaolett
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    roma
    Età
    32
    Messaggi
    23
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    7

    MACRO per copiare dati su un altro foglio

    Salve,
    avrei bisogno di una macro per copiare una serie di dati su un nuovo foglio, però mi servirebbero copiati con la trasposta, poi ordinati secondo più parametri (prima la lunghezza totale, poi per il solaio, etc)
    Vi allego il file e con riferimento a quello nel foglio "dati travi" ho inserito a mano tutti i dati che mi interessa copiare nel foglio adiacente. Ora la trasposta l'ho fatta a mano e l'ho ordinata anche manualmente prima secondo la colonna R (dal più grande al più piccolo), poi secondo la colonna S (se hanno o meno la "x"), poi secondo la colonna T (anche qui se hanno o meno la "x"), secondo la colonna U (anche qui se hanno o meno la "x").
    A questo punto accanto avrei anche bisogno di identificare tutti i dati "uguali" con un numero (da 1 a n) che anche qui ho fatto manualmente. Il foglio finale di riferimento è sempre PESO PORTATO TRAVI.


    Mi potete aiutare? grazie come sempre


    Marco
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: MACRO per copiare dati su un altro foglio

    Prova con questa macro:
    Codice: 
    Sub Macro1()
        
        Foglio1.Range("C2:AW9").Copy
        
        Foglio2.Activate
        Foglio2.Range("M7").PasteSpecial _
            Paste:=xlPasteFormulas, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=True
        Application.CutCopyMode = False
        
        With ActiveWorkbook.Worksheets("PESO PORTATO TRAVI").Sort
            .SortFields.Clear
            .SortFields.Add _
                Key:=Range("R7:R53"), _
                SortOn:=xlSortOnValues, _
                Order:=xlDescending, _
                DataOption:=xlSortNormal
        
            .SortFields.Add _
                Key:=Range("S7:S53"), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
        
            .SortFields.Add _
                Key:=Range("T7:T53"), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
        
            .SetRange Range("M7:U53")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        
        Range("V7") = "1"
        Range("V8:V53").FormulaR1C1 = "=IF(RC[-5]=R[-1]C[-5],R[-1]C,R[-1]C+1)"
    
    
    End Sub
    P.S. Se avviavi il registratore ed eseguivi i comandi, l'80% del lavoro era fatto

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di mpaolett
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    roma
    Età
    32
    Messaggi
    23
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    7

    Re: MACRO per copiare dati su un altro foglio

    ciao,
    si scusa, di macro purtroppo sono veramente ignorante e non sapevo di poterlo fare.
    Un unica cosa, i numeri da assegnare all'ultima colonna (1,2,3 etc) sono per tutti i dati uguali e con questo intendo innanzitutto devono avere il valore nella colonna R uguale (tu avevi scritto secondo la Q, ma è molto chiaro), però poi devono avere anche il numero delle "x" uguale.
    Per capirci ho modificato i numeri dell'ultima colonna per farti capire come vorrei che venissero.

    Grazie mille

    Marco
    File Allegati File Allegati

  5. #4
    L'avatar di mpaolett
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    roma
    Età
    32
    Messaggi
    23
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    7

    Re: MACRO per copiare dati su un altro foglio

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Prova con questa macro:
    Codice: 
    Sub Macro1()
        
        Foglio1.Range("C2:AW9").Copy
        
        Foglio2.Activate
        Foglio2.Range("M7").PasteSpecial _
            Paste:=xlPasteFormulas, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=True
        Application.CutCopyMode = False
        
        With ActiveWorkbook.Worksheets("PESO PORTATO TRAVI").Sort
            .SortFields.Clear
            .SortFields.Add _
                Key:=Range("R7:R53"), _
                SortOn:=xlSortOnValues, _
                Order:=xlDescending, _
                DataOption:=xlSortNormal
        
            .SortFields.Add _
                Key:=Range("S7:S53"), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
        
            .SortFields.Add _
                Key:=Range("T7:T53"), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
        
            .SetRange Range("M7:U53")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        
        Range("V7") = "1"
        Range("V8:V53").FormulaR1C1 = "=IF(RC[-5]=R[-1]C[-5],R[-1]C,R[-1]C+1)"
    
    
    End Sub
    P.S. Se avviavi il registratore ed eseguivi i comandi, l'80% del lavoro era fatto
    Ciao, ti è venuta in mente una qualche idea?

    AGGIORNAMENTO: ho trovato =SE(E(R8=R7;S7=S8;T7=T8;U7=U8);W7;W7+1)

    funziona, grazie

Discussioni Simili

  1. Macro Copiare dati da un foglio ad un altro alla prima cella utile (vuota)
    Di Spaginato nel forum Domande su Excel VBA e MACRO
    Risposte: 33
    Ultimo Messaggio: 27/02/17, 20:24
  2. Copiare dati da un foglio ad un altro
    Di sergiogranero nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 04/12/16, 10:35
  3. Risposte: 3
    Ultimo Messaggio: 14/11/16, 22:00
  4. Copiare celle in altro foglio con Macro o formula se esiste
    Di Kiter nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 11/10/16, 10:18
  5. Copiare immagine da un foglio all' altro con pulsante macro
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 24/09/16, 11:38

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •