+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 8 su 8

Discussione: Copia e trasposizione righe di dati

  1. #1
    Fastebiz non è in linea Novello
    Post
    4

    Exclamation Copia e trasposizione righe di dati

    Buon pomeriggio a tutti i membri del forum.
    Vado subito al punto perché sono incartato per bene!

    Ho un file con due fogli Excel (per Mac) aperti.

    Nel Foglio1, nella seconda colonna (B) ho una serie di dati riguardanti delle aziende.
    Ogni azienda ha 29 righe di dati, poi ci sono due righe vuote e poi cominciano altre 29 righe di dati, cos' avanti per 9.564 righe.

    Devo fare in modo di meccanizzare il procedimento che sto facendo, ovvero quello di copiare queste 29 righe per volta e copiarle trasposte (da verticale ad orizzontale) nel Foglio2.

    Ora, manualmente non c'è problema, il fatto è che se continuo così rischio che mia moglie chiede il divorzio!

    Ho visto che esistono le Macro (cosa di cui non conosco neanche la basi)...

    Secondo voi è possibile crearne una che faccia questo lavoro senza che ci perda il sonno???

    Le 29 righe che copio ogni volta hanno anche delle celle vuote ma è importante che rimangano anche quelle per com'è predisposto il foglio2.

    Vi prego... siete la mia ultima chance!

    Grazie mille a chiunque voglia darmi una mano!

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,476
    Blogs
    5
    Cominciamo male ... sin dal titolo (deve avere un senso "tecnico" ...) ... questa volta correggo io.

    Ho visto che esistono le Macro (cosa di cui non conosco neanche la basi)...
    Questo è un problema. Da ciò si nota che non hai letto il regolamento.
    In questo forum è vietata la cosiddetta "pappa pronta" e la conoscenza minima degli strumenti è necessaria.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  3. #3
    Fastebiz non è in linea Novello
    Post
    4
    Stavo leggendo... ho provato a fare la cosa più semplice, ovvero registrarne una manualmente ed ho visto che funziona. il problema e come farglielo ripetere per tutte le altre righe.... ci sto studiando!

  4. #4
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,476
    Blogs
    5
    Ecco ... parti da quella e postala qui ... magari indica cosa fa e cosa dovrebbe fare e se ne parla...
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  5. #5
    Fastebiz non è in linea Novello
    Post
    4
    Allora, ecco il codice della macro:

    codice:
    Sub Macro11()
    '
    ' Macro11 Macro
    '
    
    '
        Sheets("Foglio1").Select
        Range("B2:B30").Select
        Selection.Copy
        Sheets("Foglio3").Select
        Range("A144").Select
        Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
        Sheets("Foglio1").Select
        Range("B33:B61").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Foglio3").Select
        Range("A145").Select
        Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
    End Sub
    Dando il comando "Esegui" funziona benissimo, ora vorrei applicarla anche a tutto il resto della colonna con gli stessi parametri, ovvero copiare 29 righe per volta dal foglio1 e incollarle nel foglio2 trasposte, solo che non conosco il comando... Ho provato con "For I=64 to 92" per fare una prova ed in fondo alla macro "next I" ma non succede nulla

    Grazie per il supporto...!
    Ultima modifica di AntonioG; 20-10-2017 17:12  Motivo: Tag CODE per il codice ... Regolamento ...

  6. #6
    L'avatar di Zer0Kelvin
    Zer0Kelvin non è in linea Scolaretto
    Luogo
    Teramo - provincia
    Post
    297
    Ciao.
    Il ciclo For....Next è la soluzione nel tuo caso, ma devi modificare i range all'interno del ciclo.
    I range possono essere indicati anche così:
    codice:
    Range("A" & numero)
    dove numero può essere una variabile, una somma ecc.
    esempio
    codice:
    X = 5
    Range("A" & X & ":B" & X * 2 + 3)
    è equivalente a
    codice:
    Range("A5:B13")
    Il ciclo For pùo essere scritto così
    codice:
    For Variabile1 = primariga To ultimariga Step saltorighe
    '...
    Next variabile1
    ti servirà, inoltre, una seconda variabile per definire il range di destinazione, che andrà incrementata di 1 ad ogni ciclo.
    Fai quakche prova e vedremo poi di aggiustare il tiro.
    Ultima modifica di Zer0Kelvin; 21-10-2017 06:22 
    __________________________
    [Excel 2010]
    -Condividere la conoscenza aumenta la ricchezza di tutti. (Z0°K)
    -Dai ad un uomo un e pesce lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
    -Il sonno della ragione genera mostri. (Francisco Goya)
    -Il sapere non si propaga spontaneamente, l'ignoranza lo fa. (Z0°K)

  7. #7
    Fastebiz non è in linea Novello
    Post
    4
    Grazie mille per il tuo intervento!
    A dire la verità non ci ho capito granché.... comunque faccio qualche ricerca su quello che mi hai dei e ci provo...!

  8. #8
    L'avatar di gibra
    gibra non è in linea Amanuense
    Luogo
    Breganze (VI)
    Post
    6,127
    Quote Originariamente inviato da Fastebiz Visualizza il messaggio
    A dire la verità non ci ho capito granché....
    può accadere, per chi sta imparando

    Quote Originariamente inviato da Fastebiz Visualizza il messaggio
    comunque faccio qualche ricerca su quello che mi hai dei e ci provo...!
    Bravo.
    Questo è proprio lo spirito di un Forum.
    - si ricevono suggerimenti
    - poi ci si va a documentare

    Tra l'altro questi sono proprio l'ABC della programmazione in cui cicli e strutture decisionale sono all'ordine del giorno.

+ Rispondi al Thread

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi