Controllo dati all'uscita di molte TextBox

Buongiorno,

ho inserito il seguente codice all'uscita della textbox1

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim testo As String
testo = TextBox1.Text
If testo = "M" Or testo = "P" Or testo = "N" Or testo = "MP" Or testo = "NM" Or testo = "C" Then
Cancel = False
Else
MsgBox "E' possibile scrivere solo le sigle della legenda !"
Cancel = True 'impediamo l'uscita dalla textbox1
TextBox1.SelStart = 0 'impostiamo il punto iniziale del valore da selezionare
TextBox1.SelLength = Len(TextBox1) 'selezioniamo tutto il valore contenuto nella textbox1
End If
End Sub

ma ho difficoltà in quanto neofita a riprodurlo con un modulo di classe o modulo per tutte le textbox o meglio solo dalla 1 alla 159

Grazie

PS: credo che comunque si possa controllare il contenuto o escludendo o includendo le parole di interesse ad esempio avevo pensato di far corrispondere l'elenco che si trova nel foglio Dati .range(Turni) ma ci sono riuscito ...


Grazie ancora

Ciao
ti avevo già detto che l'evento Exit delle txtBox non è disponibile nei moduli di classe (questo per quanto a mia conoscenza).

Quindi devi utilizzare l'evento change delle txtBox che ho aggiunto unitamente agli altri eventi che colorano le txtBox.

Ti allego il tuo file dove non ho utilizzato il range "turni", ma controllo direttamente il valore immesso (che deve essere maiuscolo).

Probabilmente ci sono delle txtBox che quando le selezioni non devono effettuare tale controllo oppure non si devono colorare, questo non lo so.

Ho ipotizzato che le txtBox della col. TOT non debbano rispettare i vincoli di valore immesso, pertanto le ho escluse da tale controllo, vedi Private Sub TextBoxArray_Change(item As Object) della UserForm.

Consiglio: capisco che è un po' complicata la gestione, ma se segui in debug il tutto, a poco a poco potrai essere autonomo e costruire ulteriori eventi che dovessero servire. Leggi bene anche quanto scritto nell'altro post, non ti fermare a scaricare il file ed utilizzarlo così com'è...ne ricavi poco in conoscenza.

Io ho appreso questa modalità da un caro amico, questo è il link: leggilo con attenzione.

Saluti

Capisco,

ma credimi che tentativi e prove ne faccio parecchie prima di postare
l'aiuto, a dilla tutta cerco anche altrove diverse soluzioni o altri esempi per capirne il funzionamento ma molto probabilmente sbaglio in piccoli passaggi che non comprendo per mia ignoranza.

Grazie

Ciao
almeno è quello che volevi?

saluti