Suddividere dati di un foglio su altri fogli.

Salve, ho un foglio iscrizioni, le varie righe hanno nome, cognome ed altri dati, più una colonna con una sigla. Ho creato dei fogli che portano il nome delle sigle: è possibile compilare automaticamente tali fogli, cioè portare i dati delle righe con la stessa sigla nel foglio specifico? grazie.
 

Informazioni domanda


Ultimo aggiornamento febbraio 21, 2018 Visualizzazioni 251 Si applica a:
Risposta

Grazie per la risposta sollecita.

Uso la colonna A per la numerazione progressiva, B per cognome, C per nome, D, E, F e G per altri dati, colonna H per la sigla (es. U10F, U12F, U12M, ecc.), in tutto ho 8 "sigle". Non mi serve copiare i dati della colonna A e H.

Ho provato ad adattare il codice dall'esempio ma ho il problema che non so come proseguire...


Metti il codice qui sotto nel modulo di codice di ThisWorkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Dim shX As Worksheet
    Dim lng As Long
    Dim lRigaX As Long
    Dim lRiga As Long
    Dim lCont As Long

    Application.ScreenUpdating = False
    If Sh.Name <> "Foglio9" Then
        Set shX = Me.Worksheets("Foglio9")
        lRiga = Sh.Range("A" & Sh.Rows.Count).End(xlUp).Row
        Sh.Range("A2:F" & lRiga).Value = ""
        lCont = 2
        With shX
            lRigaX = .Range("H" & .Rows.Count).End(xlUp).Row
            For lng = 2 To lRigaX
                If .Range("H" & lng).Value = Sh.Name Then
                    .Range("B" & lng & ":G" & lng).Copy
                    Sh.Range("A" & lCont).PasteSpecial
                    lCont = lCont + 1
                End If
            Next
        End With
    End If

    Application.ScreenUpdating = True
    Application.CutCopyMode = False

    Set shX = Nothing

End Sub

Sostituisci nel codice Foglio9 con il nome del foglio dove hai tutti i dati.

NOTA.

Seleziona uno alla volta i fogli e così verranno importati i dati del foglio totale.

Se(se) non devi più aggiungere altri valori nel foglio dove hai tutti i dati, puoi eliminare il codice dal modulo di ThisWorkbook e il foglio con tutti i dati.

Altrimenti puoi aggiungere altri dati al foglio dove li hai tutti e ogni volta che selezioni un foglio, verranno riportati i dati relativi a quel foglio.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.