Risultati da 1 a 5 di 5

Discussione: copiare celle con dati su altro foglio



  1. #1
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1

    copiare celle con dati su altro foglio

    Salve a tutti. Ho provato in ventimila modi, ma prob. sbaglio qualcosa
    Ho questo file allegato in cui troverete diversi fogli con dei nomi di persona.
    Quello che mi occorre è fare in modo che i dati dalla riga 23 vengano copiati nella pagina riepilogo cosi da poterla stampare.
    Purtroppo non posso impostare semplicemente una formula, poichè non posso sapere a priori quante righe verranno di volta in volta compilate.
    Inoltre vorrei che le righe compilate vengano evidenziate con un colore diverso in base al nome del foglio in origine ( alessandro (blu), chiara (rosso) giusy (verde) new ( giallo))
    E' possibile?
    grazie in anticipo al maghetto che mi aiuterà
    File Allegati File Allegati

  2. #2

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

    Re: copiare celle con dati su altro foglio

    Prova così:
    Codice: 
    Sub estrai()
    Dim iRow As Long, iCol As Long
    Dim sh As Worksheet
    Dim uRiga As Long
    Dim Dest As Worksheet
    Dim i As Long
    Dim Colore As String
    
    
    Set Dest = Sheets("Riepilogo")
    
    
    iRow = Sheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
    For Each sh In Worksheets
        Select Case sh.Name
            Case "Alessandro"
                Colore = vbBlue
            Case "Chiara D."
                Colore = vbRed
            Case "Giusy"
                Colore = vbGreen
            Case "new"
                Colore = vbYellow
            Case Else
                GoTo Successivo
        End Select
        uRiga = sh.Range("A" & Rows.Count).End(xlUp).Row
        For i = 23 To uRiga
            For iCol = 1 To 19
                Dest.Cells(iRow, iCol) = sh.Cells(i, iCol)
                Dest.Cells(iRow, iCol).Interior.Color = Colore
            Next
            iRow = iRow + 1
        Next
    Successivo:
    Next
    End Sub
    Ultima modifica fatta da:ges; 27/05/16 alle 23:54 Motivo: Corretto codice come indicato da Rubik

  3. #3

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

    Re: copiare celle con dati su altro foglio

    Correggere la riga di dichiarazione uRiga con "uRiga As Long"

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  4. #4
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1

    Re: copiare celle con dati su altro foglio

    Fantastico!!
    Ma non riesco a capire come devo correggere la dichiarazione "uRiga".
    A me sembra già funzionare così.

  5. #5

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

    Re: copiare celle con dati su altro foglio

    Nel post #2 c'è già la versione corretta (editata successivamente)

Discussioni Simili

  1. Risposte: 2
    Ultimo Messaggio: 28/02/17, 21:47
  2. Risposte: 14
    Ultimo Messaggio: 16/11/16, 20:36
  3. Risposte: 3
    Ultimo Messaggio: 14/11/16, 22:00
  4. Risposte: 10
    Ultimo Messaggio: 08/11/16, 15:13
  5. Copiare dati celle in colonne altro foglio
    Di Cavier80 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 22/05/16, 22:29

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
  •