***Contare i caratteri inseriti con excel***

[ProbePotter]

Salve, inserendo sempre dei numeri alfanumerici del tipo aa321151401 (11 Caratteri) può
capitare di errare la lunghezza del numero, in questo caso vorrei un MsgBox che mi avvertisse
che il numero dei caratteri inserito è di 12 (>)oppure 10 (<) , quindi errato.
Ho realizzato una cosa del genere ma funziona solo in B2. Mentre il controllo mi occorre con
Range ("B2:B6000"). Grazie

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range

MsgBox "il testo è lungo" & Len(Range("A1")) & " caratteri"


End Sub

[Anthony47]

Il sistema piu’ diretto e’ di stabilire una “Convalida” sulle celle B2:B6000.
Per questo: selezioni le celle; poi Menu /Dati /Convalida; tab Impostazioni; scegli consenti=Lunghezza testo, dati=uguale a, lunghezza=11; magari imposti su Messaggio di input qualcosa come “Codice parte, 11 crt!” (sara’ visualizzato quando selezioni una delle celle); se vuoi imposti anche il Messaggio di errore; completi con Ok.

Ciao.

[ProbePotter]

Ciao Anthony, il Tuo suggerimento funziona se si scrive direttamente sul Foglio di excel.
Purtroppo nel mio caso (scusa non lo avevo menzionato prima), i dati vengono inseriti
tramite uno UserForm VBA Application di excel. Ho fatto una prova ed ignora il parametro
"Convalida dati". Cortesemente hai qualche altro suggerimento ? Provo anch' Io, ma sono
a un "Binario ... morto".
Grazie

[Anthony47]

Allora devi inserire nel codice di controllo della form la verifica che la lunghezza di quel campo e' corretta; qualcosa come

Codice: Seleziona tutto

If Len(TextBox1) <> 11 Then
MsgBox ("Errore di lunghezza campo")
'. . .
Exit sub
End If

E' un esempio che va mappato sulla tua form e relativo codice.

Trovi lo spunto?

[ProbePotter]

Ciao Anthony, sto provando il Tuo codice ma ancora non riesco a farlo funzionare
come vorrei. Praticamente l' istruzione deve comprendere YesNo se Yes inserisce
i dati se No ....è qui che sto provando.

[Anthony47]

Eventualmente posta il codice che usi per effettuare l' input da form a foglio.

Ciao.