macro per accodare i dati

Question

salve,

ho trasformato un pdf in una cartella di excel attraverso un servizio online.

La conversione è avvenuta quasi correttamente in quanto il documento originale è stato trasformato/suddiviso in una cartella con tanti fogli.

Avete a portata di clik una macro che accoda il contenuto dei vari fogli di una cartella sul primo foglio in modo da unificare il tutto?

saluti

MF

Answer 1

salve,

ho trasformato un pdf in una cartella di excel attraverso un servizio online.

La conversione è avvenuta quasi correttamente in quanto il documento originale è stato trasformato/suddiviso in una cartella con tanti fogli.

Avete a portata di clik una macro che accoda il contenuto dei vari fogli di una cartella sul primo foglio in modo da unificare il tutto?

saluti

MF

Ammesso che le tabelle che vuoi unificare siano identiche in ogni foglio come campi(colonne)

Public Sub m()

    Dim sh As Worksheet

    Dim lng As Long

    Dim lRiga As Long

    Set sh = ThisWorkbook.Worksheets(1)

    Application.ScreenUpdating = False

    With sh

        For lng = 2 To ThisWorkbook.Worksheets.Count

            lRiga = .Range("A" & .Rows.Count).End(xlUp).Row + 1

            ThisWorkbook.Worksheets(lng).Range("A1").CurrentRegion.Copy

            .Range("A" & lRiga).PasteSpecial

            .Rows(lRiga).EntireRow.Delete

        Next

        .Range("A1").Select

    End With

    Application.CutCopyMode = False

    Application.ScreenUpdating = True

    Set sh = Nothing

End Sub

La macro va copia/incollata in un modulo standard. Se non hai mai utilizzato le macro, vedi qui: http://www.maurogsc.eu/excel/xlsdoveinserirecodice.aspx:

Answer 2

Grazie

la macro funziona perfettamente.

saluti

MF

Grazie a te per il cortese riscontro e buon lavoro.

Answer 3

Grazie

la macro funziona perfettamente.

saluti

MF