Risultati da 1 a 6 di 6

Discussione: Copiare valori orizzontali in veticale



  1. #1
    L'avatar di LEOX
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    BARLETTA
    Messaggi
    8
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Copiare valori orizzontali in veticale

    Salve a tutti,

    ho un problema, nelle celle g2:m2 ho dei valori, poi ho 6 righe vuote e nell'intervallo g9:m9 ho nuovamente dei valori e cosi' via
    dopo sei righe vuote ho sempre dei valori, ora vorrei far in modo possibilmente con una formula di trasporre i valori orizzontali in verticale,
    ovviamente potrei usare ad ogni intervallo copia e trasponi ma sarebbe troppo lunga come cosa.
    Mi potete aiutare a trovare un sistema automatico?

    Spero di essere stato chiaro :252: cmq ho allegato un file e dovrei ottenere in e2 11; e3 38... ecc e in e9 6; e10 14 ... ecc ecc

    Grazie mille

  2. #2
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    821
    Versione Office
    2016 64bit
    Likes ricevuti
    148
    Likes dati
    55
    Vedi se una macro così ti può essere utile:
    Codice: 
    Option Explicit
    
    Sub Trasponi_Ogni_X()
        
        Dim x As Long
        Dim y As Long
        
        y = Cells(Rows.Count, 1).End(xlUp).Row      'calcola l'ultima riga di colonna A
        
        For x = 2 To y Step 7                       'procedi a passi di 7
            Range("G" & x & ":M" & x).Copy
            Range("E" & x).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Next x
        
    End Sub

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Ciao,
    usa la funzione MATR.TRASPOSTA

    =MATR.TRASPOSTA($G$2:$M$2)
    =MATR.TRASPOSTA($G$9:$M$9)

    Formule matriciali multicelle che si attivano con CTRL+SHIFT+INVIO)
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4
    L'avatar di LEOX
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    BARLETTA
    Messaggi
    8
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0
    Grazie mille, funziona alla grande :264:

    Codice:
    Option Explicit

    Sub Trasponi_Ogni_X()

    Dim x As Long
    Dim y As Long

    y = Cells(Rows.Count, 1).End(xlUp).Row 'calcola l'ultima riga di colonna A

    For x = 2 To y Step 7 'procedi a passi di 7
    Range("G" & x & ":M" & x).Copy
    Range("E" & x).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Next x

    End Sub

  5. #5
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    821
    Versione Office
    2016 64bit
    Likes ricevuti
    148
    Likes dati
    55
    Grazie del feedback :300:

  6. #6
    L'avatar di ninai
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Barcellona P.G.
    Età
    55
    Messaggi
    1687
    Versione Office
    2010 PC
    Likes ricevuti
    899
    Likes dati
    185
    ciao
    per avere un'altra alternativa.
    se si comincia dalla riga 2 ed i gruppi sono sempre di 7 record, in E2:

    =SCARTO($G$2;INT((RIF.RIGA()-2)/7)*7;RESTO((RIF.RIGA()+5);7);)
    e trascini giù
    "So che spiegare il proprio problema, in modo comprensibile, richiede un certo impegno ed è un lavoro "palloso", ma qualcuno lo deve pur fare ....., indovina chi?" (Cit. "Scossa")

Discussioni Simili

  1. [Risolto] Macro per copiare valori di una tabella dopo selezione menu a tendina
    Di Amedeo nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 07/03/17, 16:33
  2. copiare solo valori di celle con valore
    Di Likeone nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 01/03/17, 13:59
  3. [Risolto] Copiare dei valori in una cartella e incollarla in'uanltra
    Di Carloc nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 01/03/17, 13:17
  4. [Risolto] Copiare in automatico i valori relativi a piu' fogli in un unico foglio
    Di sitolofi nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 19/12/16, 09:11
  5. Risposte: 13
    Ultimo Messaggio: 04/05/16, 18:11

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
  •