La prima parola in maiuscolo

Buonasera,

in un programmino per avere un testo in maiuscolo sulla TextBox in una UserForm, ho inserito il seguente codice:

Private Sub Txt_Titolo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

nell'inserimento tramite un pulsante, ho inserito il seguente codice:

......
Foglio8.Range("M" & h - 1) = UCase(Left(Txt_Titolo.Text, 1)) & Mid(Txt_Titolo.Text, 2)
...... 
 
noto sulla cella del foglio di lavoro che il testo è tutto maiuscolo mentre gradirei che solo la prima lettera sia maiuscolo.

Ho provato senza riuscire se gentilmente potete suggerire.

Grazie e saluto.

Domenico.

ciao
prova

---

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.Text = "" Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If
End Sub

---

adattandolo al tuo textbox

uonasera Federico460,

avevo provato anche questo codice che mi fa la prima lettera del testo im maiuscolo.

Gradisco invece che digitando sulla TextBox il testo dovrebbe risultare tutto in maiuscolo e nella cella del foglio di lavoro dovrebbe convertire la prima lettera im maiuscolo e le restanti in minuscolo.

Auguro che si possa realizzare, ringrazio della disponibilità, saluto.

ciao
per il foglio prova con



per la textBox



ciao
Frank

Buonasera tanimom,

nel ringraziarti, purtoppo non funziona.

tu dici
non funziona senza spiegare.

io rispondo senza spiegare:
"A me sì!"


Se vuoi un altro tipo di risposta,
allega il tuo file senza dati sensibili:
ci darò un'occhiata volentieri.

Ciao

Frank