[EXCEL] Generazione codice progressivo

[Giova72]

Ciao a tutti.
Ho un pò di difficoltà nel creare il seguente progetto.
Devo assegnare un codice progressivo a delle prove.
Le tipologie di prove sono 11 a cui ho assegnato dei codici standard tipo:
Prova tipo 1 : AA
Prova tipo 2 : AB
Prova tipo 3 : AC
ect..

Il codice creato dovrebbe essere così composto:
101228AA01
ovvero
10: anno
12 : mese
28: giorno
AA: tipo prova
01: numero progressivo legato al tipo di prova e all'anno corrente

Dovrei quindi creare un pulsante che mi genera il codice progressivo inserendo automaticamente i dati relativi alla data e proponendomi la scelta del tipo di prova.
Il numero generato dovrebbe poi essere copiato in un altro foglio che serve da archivio in modo tale che ad ogni successiva generazione venga generata una nuova riga.

Per la creazione del codice pensavo di usare la funzione concatena, però per quanto riguarda l'automatizzazione del tutto sono proprio in alto mare.

Ringrazio anticipatamente tutti i consigli

[Flash30005]

Ciao Giova72 e benvenuto nel Forum

Non è molto chiaro cosa farà attivare un nuovo codice e se la sequenza sarà sempre con la sequenza delle lettere da te indicate oppure si possono verificare due test consecutivi di tipo AA

Nel primo caso potrebbe andare bene questa macro

Codice: Seleziona tutto

Sub Numera()
Dim VTipo(11) As String

VTipo(1) = "AA"
VTipo(2) = "AB"
VTipo(3) = "AC"
VTipo(4) = "AD"
VTipo(5) = "AE"
VTipo(6) = "AF"
VTipo(7) = "AG"
VTipo(8) = "AH"
VTipo(9) = "AI"
VTipo(10) = "AJ"
VTipo(11) = "AK"
Conta = 1
URD = Range("A" & Rows.Count).End(xlUp).Row + 1
If URD < 2 Then URD = 2
NV = (URD - 1) Mod 11
If NV = 0 Then NV = 11
For CV = 2 To URD - 1
If Mid(Range("A" & CV).Text, 7, 2) = VTipo(NV) Then Conta = Conta + 1
Next CV
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Mid(Year(Now()), 3, 2) & Mid(Now(), 4, 2) & Mid(Now(), 1, 2) & VTipo(NV) & Format(Conta, "00")

End Sub

Nella prima riga della colonna A ho inserito una testata tipo Numerotest
dalla seconda riga in poi avrai una numerazione sequenziale come da te descritta o almeno spero

fai sapere
ciao

[Giova72]

Grazie Flash!
è già un notevole passo avanti.
Il risultato con la tua macro è questo:
101229AA01
101229AB01
101229AC01
101230AD01 (ho cambiato data)

In realtà io avrei bisogno di un "message box" che mi chiede il tipo di prova (AA, AB o AC ect..) ad ogni loop.
Quindi se devo fare una prova AB il mio codice deve essere:
101229AB01
Se poi devo fare una prova AD il codice successivo sarà:
101229AD02
e così via. (le lettere devo assegnarle io manualmente mentre i numeri dopo le lettere sono il progressivo)

Il top sarebbe se ad ogni nuovo giorno il progressivo riparte da 01, perchè altrimenti devo aggiungere un decimale al progressivo per non avere il limite di 99 test per tipo di prova.

Grazie ancora!

[Flash30005]

Invio il file in quanto ho inserito una UserForm
e se non hai ancora pratica avresti avuto difficoltà a realizzare la macro

download

Ciao

[Giova72]

Grazie Flash,
diciamo pure che non ce l'avrei mai fatta!!!

Solo due cose rimangono da sistemare adesso:
il contatore (ultimi due numeri) si ferma a 02 e poi ripete il codice.
Se alterno due tipi di prova, la numerazione riparte da sempre da 01 e così ho due codici identici.

101229JA01
101229JA02
101229JA02
101229XA01
101229XA02
101229XA02
101229JA01
101229XA01

[Flash30005]

Si è vero qunato dici
Prova a sostituire la macro nel modulo con questo codice

Codice: Seleziona tutto

Sub Numera2()
UserForm1.Show
Conta = 1
URD = Range("A" & Rows.Count).End(xlUp).Row
If URD < 2 Then URD = 2
NumP = Mid(Year(Now()), 3, 2) & Mid(Now(), 4, 2) & Mid(Now(), 1, 2) & NTest
For RR = 2 To URD
If Mid(Range("A" & RR).Text, 1, 8) = NumP Then Conta = Conta + 1
Next RR
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Mid(Year(Now()), 3, 2) & Mid(Now(), 4, 2) & Mid(Now(), 1, 2) & NTest & Format(Conta, "00")
End Sub


Fai sapere
Ciao

[Giova72]

Adesso è perfetto!
Ti ringrazio molto per il supporto.

[dott.f]

Ciao, dovrei fare una cosa simile ma non mi fa scaricare la macro.

[Anthony47]

Intanto “Benvenuto nel forum”
Eh, stai cercando un file caricato 10 anni fa, è abbastanza normale che non lo trovi...

Ho scritto a chi lo aveva pubblicato, chissà che non mantenga un archivio storico dei suoi contributi; ma temo che sia difficile. Quindi (in attesa che Flash ci dica qualcosa) ti suggerirei di spiegare che cosa stai facendo, come hai organizzato i tuoi dati e in particolare su quale aspetto ti farebbe comodo qualche suggerimento

Ciao

[Flash30005]

Benvenuto dott.f

Conservo ancora il file e macro che realizzai per Giova72 (al quale auguro buon onomastico)
ma nel file c'è solo la macro riportata il 31/12/2010
Infatti se copi la macro e la inserisci in un modulo
fa la funzione che Giova72 cercava (l'ho testata 5 minuti fa e funziona)
eventualmente mancherebbe solo un comando (pulsante o opzione con tasto di scelta rapida)
Non so quale uso ne abbia fatto Giova72 perché, se vogliamo, è una richiesta "non standard"
e mi sembra strano che questa macro possa essere utile ad altri utenti.

Sarebbe meglio seguire il consiglio di Anthony e di spiegare la tua esigenza.

Ciao