Numerazione automatica

[..:: GiGhEn ::..]

Salve, avevo bisogno di stampare un modulo in più copie e di far in modo che in queste copie stampate mi uscisse un numero progressivo

[..:: GiGhEn ::..]

Il giorno venerdì 1 marzo 2019 20:58:46 UTC+1, ..:: GiGhEn ::.. ha scritto:
> Salve, avevo bisogno di stampare un modulo in più copie e di far in modo che in queste copie stampate mi uscisse un numero progressivo

Rettifico la richiesta, e cioè:
In un foglio ho creato un modulo di richiesta da compilare a mano e dare alla persona che compila la ricevuta per ritirare quello che richiede, il modulo è composto da due parti "madre e figlia" la "madre" rimane a me e la "figlia" viene data alla persona come ricevuta per il ritiro di quello che chiede.
Ora nelle due parti del modulo e cioè "madre e figlia"deve contenere una numerazione cronologica uguale tra "madre e figlia".
Quello che io avrei bisogno è quello di poter stampare, esempio 100 moduli da compilare a mano con il numero in progressivo stampato sopra.
Così quando viene compilato il modulo a mano la persona che fa la richiesta scritta torna con la figlia con il numero progressivo stampato sopra e comn quello si fa la ricerca dei documenti richiesti. Insomma tipo blocchetto di biglietti da cinema, stadio o quant'altro ci si vuole un riscontro del biglietto, solo che in questo caso si tratta di un fohglio A4.
Spero di essermi spiegato al meglio se ci sono dei chiarimenti in merito sono qui.

[buonoc...@gmail.com]

Assumendo che il numero progressivo sia sulla 'madre' in cella A1 e in 'figlia' A26 prova con questa macro da lanciare con il foglio da stampare attivo
Ciao
Elio

Sub Test()
Dim i As Long
For i = 1 To 100
Range("A1") = i '< da cambiare
Range("A26") = i ' < Da cambiare
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub

[valerio.s...@gmail.com]

Ciao, puoi fare come indicato
oppure creare il modulo in word e usare stampa unione inserendo i numeri da 1 a 100.
In questo modo in futuro cambiando i numeri da 101 a 200 otterrai i successivi 100 numeri.
Comunque anche il metodo precedente è perfetto.

Valerio

[..:: GiGhEn ::..]

Ok! Funziona alla perfezione, ma ci sono alcuni aggiusti da fare e cioè: Ho creato un pulsante ed ho inserito la tua macro su click e fa alla perfezione quello che dice il codice ma non è precisamente quello che volevo, io volevo che nelle celle del tuo esempio e cioè nella A1 ed A26 inserisco lo zero o un numero che voglio che inizi a stampare da quello in poi. Nel cliccare il pulsante non mi deve partire subito la macro ma vorrei che mi uscisse un form dove io inserisco quante copie voglio che stampi e cioè se inserisco nella richiesta del form stampami 10 o 30 fogli iniziando dal numero che trova nelle due celle e cioè A1 ed A26 questo è quello che sto cercando. Grazie

[valerio.s...@gmail.com]

Puoi modificare inserendo ad esempio

Inizio = InputBox("Inserisci pagina iniziale")
Fine = InputBox("Inserisci pagina finale")
for i = inizio to fine

E alla pressione del tasto ti verranno mostrate 2 domande, successivamente stamperà da inizio a fine

[buonoc...@gmail.com]

Mi sembra esagerato un form per questa task. I numeri li puoi inserire in un'area fuori stampa del foglio che contiene il 'modulo' da stampare
Per es:

In area delle dichiarazioni:
Dim Inizio As Long
Dim Fine As Long
'..............
Inizio = Range("S1") '< da cambiare
Fine = Range("T1") '< da cambiare

For i = Inizio To Fine
'ecc.........

Ovviamente questo è il codice essenziale senza la gestione degli errori che potrebbero insorgere da inserimento nelle celle di valori diversi da numeri o che in S1 si inserisca un numero superiore di T1. Nell'applicativo reale puoi irrobustire il tutto con Convalida Dati su celle S1 e T1.