Numerazioni progressive foglio di Excel

[niknes]

Salve gente. Approfitto ancora della Vs competenza, gentilezza e pazienza per terminare il mio modello di Documento Di Trasporto (DDT).
Ora sono alla numerazione progressiva. Premetto che in azienda utilizziamo 2 numerazioni diverse: una per i mezzi del mittente/destinatario ed una a mezzo vettore. La prima segue la sola numerazione progressiva 1,2,3,... mentre l'altra è: 1/VE, 2/VE, 3/VE.... e così via.
Avevo dapprima creato due fogli diversi per ogni singola numerazione, ma poi ho pensato che sarebbe più opportuno avere un unico foglio e cambiare solo la numerazione progressiva, visto che sono identici. Attualmente quando apro il foglio aumento manualmente il progressivo di una unità, completo il modello con tutti i dati, lo stampo e quando lo chiudo lo salvo cosicche alla riapertura trovo l'ultimo numero utilizzato. Ma ora che ho 2 numerazioni differenti come posso fare per ricordare quale era l'ultimo numero utilizzato per una o per l'altra numerazione?
Avevo pensato ad un pulsante di stampa che mi registrasse la numerazione utilizzata ogni volta premuto e mi potesse proporre ad ogni riapertura un registro dei numeri utilizzati, magari abbinato al nome del cliente. In questo modo quando apro il file e lo compilo, posso controllare i numeri utilizzati in precedenza e sarei sicuro del numero da iserire. Tra l'altro non avrei il problema di vedere il progressivo aumentare ogni volta che apro il file o lo salvo. Infatti questo avverrebbe solo stampando il documento, che equivale ad emetterlo.
Che casino. Quasi quasi non ci capisco nulla anch'io.
Un grazie anticipato a tutti coloro che vorranno darmi un suggerimento
Ciao
Nicolò

[LS66]

Puoi procede in questo modo.
Crei il foglio dati (che puoi anche nascondere) e nelle celle A1 e A2 poni il valore iniziale delle due numerazioni (p.e. 0).
Copia in un modulo macro le seguenti procedure:

Sub StampaVettore()
'
n = Worksheets("Dati").Cells(1, 1) + 1
Worksheets("Dati").Cells(1, 1) = n
Worksheets("DDT").Cells(1, 1) = CStr(n) + "/VE"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Sub StampaInterno()
'
n = Worksheets("Dati").Cells(2, 1) + 1
Worksheets("Dati").Cells(2, 1) = n
Worksheets("DDT").Cells(1, 1) = CStr(n)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Nel foglio che contiene il documento di trasporto (foglio di nome DDT) la cella A1 contiene il numero del documento da stampare.
In questo stesso foglio puoi inserire due pulsanti macro associati alle due procedure: la prima StampaVettore stampa con la numerazione /VE, mentre la seconda stampa con numerazione progressiva.
Se la numerazione deve essere comunque progressiva, e cambiare solo /VE allora puoi considerare solo una delle due celle del foglio dati e rendere uguali i riferimenti di colore arancione

Tieni solo presente che la riga Worksheets("DDT").Cells(1, 1) = CStr(n) copia nella cella 1,1 (riga,colonna) il numero progressivo del documento, quindi modificanto tali numeri puoi modificare la cella in cui mettere tale numero.

Ciao.

[niknes]

Premetto che a prima lettura ne ho capito un 20%, ma non demordo e mi applicherò stasera, o stanotte, dipende da quanto tempo ci impiegherò. Grazie di tutto. Ti farò sapere.
Ciao
Nicolò

[LS66]

Per lasciarti qualche ora di sonno in pìù provo a spiegare meglio.

Nel tuo foglio Excel fai alt+F11, si apre l'editor di Visual Basic.
Nella finestra WBAProject cerchi la riga che riporta WBAProject(NomeDelTuoFile), ci vai sopra col mouse, pulsante destro, selezioni inserisci e quindi modulo.
Nello spazio che si apre (sarà nominato Modulo1) incolli le due procedure; vedrai che tra la fine di una e l'inizio dell'atra comparirà un divisorio.
Ora vai sul foglio che riporta il tuo documento.
dal menu strumenti>personalizza seleziona moduli.
La barra che si aprirà riporta alcune icone tra le quali una a forma di pulsante.
La selezioni, disegni il pulsate nel foglio di lavoro e associ una delle due macro che verranno proposte.
Ripeti per l'altra macro.
Inserisci il foglio Dati (o rinomini un foglio esistente) e nelle celle A1 e A2 metti il numero dell'ultima bolla che hai già stampato (A1 quella del vettore esterno).
Per non avere problemi puoi rinominare DDT il foglio che contiene il documento (oppure cambi la scritta DDT delle procedure con il nome del tuo foglio).
Ricorda solo che se vuoi che la numerazione venga riportata in una cella diversa dalla A1 devi cambiare alle righe
Worksheets("DDT").Cells(1, 1) = CStr(n)
Worksheets("DDT").Cells(1, 1) = CStr(n)+"/VE"
delle procedure (B1 diventa cells(1,2), ...)

Salvi il tutto e lo provi.
Ciao.

[niknes]

Bè io ci ho provato e credo di non esserci andato molto distante. Credo. Perchè poi non ci ho capito pù nulla.
Ti chiedo se puoi inserirmela tu la macro, se non chiedo troppo.
Ti allego il file. Dagli anche un'occhiata in generale.
Che ne pensi? Ho utilizzato le funzioni giuste o si può fare di meglio?
Ancora un grazie e scusa per tutto il disturbo che ti ho dato fino ad ora.
Ciao
Nicolò

[LS66]

Mi risulta un archivio non valido.
Riprova, ciao.