creazione automatica codice cliente alfanumerico

Question

in una tabella di excel 2019, è possibile tramite VBA assegnare in una specifica colonna un codice cliente alfanumerico, univoco ed irripetibile?

naturalmente il VBA, dovrebbe creare il codice automaticamente senza necessità dell'intervento dell'utente, ad ogni creazione di una nuova riga all'interno della tabella in questione.

Answer 1

No, il codice VBA scrive a prescindere dalla convalida dati. Per questo ti suggerivo di staccare un numero di codici univoci ed usarli poi all'occorrenza. Non saprei indicarti una soluzione.

Answer 2

Ok allora diciamo che potrei anche eliminare i codici cliente già esistenti e ricrearli nuovamente tramite questa macro ma poi quando dovrò aggiungere una nuova riga alla tabella ovvero un nuovo cliente come faccio ad assegnare, anche manualmente, il relativo codice cliente alfanumerico, univoco ed irripetibile?

Answer 3

Il codice va adattato al tuo caso. L'esempio fornito è solo per prendere spunto.

Per esempio:

1. per scrivere nel foglio "ANAGRAFICA" devi scrivere nel codice

Const sFoglio As String = "ANAGRAFICA"

al posto di

Const sFoglio As String = "ElencoCodice"

2. per scrivere nella colonna "ID" della TABELLA2 devi scrivere nel codice la cella di partenza (es. D6)

destSH.Range("D6").Resize(iNumeroDiCodici).Value = arrOut

al posto di

destSH.Range("A2").Resize(iNumeroDiCodici).Value = arrOut

Inoltre, questa macro inserisce automaticamente i primi 1.000 codici (numero che puoi modificare), ma non tiene conto di quelli inseriti in precedenza. Per dirla in altre parole, vengono generati i codici tutti insieme.

Spero di essere stata di aiuto.

Buona serata.

Answer 4

ciao Sabina,

ho visto l'esempio che mi hai indicato e mi chiedevo quali sono i parametri del codice VBA da modificare per adattarlo al mio caso ovvero:

1. il mio foglio excel si chiama "ANAGRAFICA"
2. le celle da popolare sono quelle contenute nella colonna denominata "ID." della  TABELLA2

Answer 5

Buonasera Salvatore,

mi chiamo Sabina, sono una consulente indipendente e sono qui per aiutarti. Potrebbe fare al tuo caso la soluzione di Norman indicata qui:

https://answers.microsoft.com/it-it/msoffice/fo...

Ciao,

Sabina