Copiare un Tot. numero di righe per volta ed incollarle in un altro foglio per poi esportarli in formato PDF.

Question

Buongiorno a tutti.

Ho un foglio di Excel (come da immagine sottoriportata) che ha migliaia di righe e che possono variare di volta in volta ( cioè possono andare da 100 fino a 10000).

Desidero creare un ciclo che mi copi un numero specifico di righe ( magari tramite input box oppure tramite un dato da inserire in una cella, per esempio decidere se copiare 60, 90, 150 righe per volta) e da queste righe mi crei un File Pdf da salvare in una cartella specifica.

Il ciclo dovrebbe scorrere in progressione tutte le righe del Foglio di Excel e in base al numero di righe selezionate (per esempio se decido di selezionare e copiare il contenute di  90 righe per volta) dovrebbe creare tanti files quanti sono i dati che verrebbero esportati con quel tipo di impostazione.

Per esempio supponiamo di avere un foglio con 5400 righe di dati, se decido di selezionare e copiare i dati di 90 righe per volta dovrebbero essere creati 60 file PDF ( perché 5400/90=60).

Sono riuscito da solo a creare la routine che allego ma non riesco ad inserirla in un ciclo che faccia tutto da solo, secondo quanto ho già specificato.

Sub Copia90Righe()

    Dim sh1 As Worksheet, sh2 As Worksheet

    Dim i As Long, j As Long

    Set sh1 = Sheets("Foglio2")

    Set sh2 = Sheets("Foglio3")

    i = 1

    For j = 1 To Rows.count ' 1 prende anche l'intestazione di colonna ecco perchè ho messo 92 per avere 90 domande esatte

        If sh1.Cells(j, 1).EntireRow.Hidden = False Then

            sh1.Cells(j, 1).EntireRow.Copy sh2.Cells(i, 1)

            i = i + 1

            If i = 92 Then Exit Sub

        End If

    Next j

MsgBox " Ho Finito"

End Sub

Spero di essere stato chiaro e comprensibile.

Ciao Nicola.

Answer 1

Ciao Claudio, grazie per il tuo cortese riscontro.

Ho pensato di postare un' altra domanda su questo forum, a breve, dove integrerò l'oggetto di questa discussione con altre richieste e sono sicurissimo di ricevere l'aiuto opportuno che fino ad oggi gli esperti mi hanno sempre dato.

Comunque il forum da te segnalato l'ho inserito nei miei preferiti e all'occorrenza avrò modo di seguirlo e frequentarlo.

Ciao Nicola.