Iniziale maiuscola in un range di caselle

Ciao a tutti,
Sono nuovo e avrei una domanda per voi.
Ho letto qualche vostra discussione precedente riguardo all'argomento, ma non ho trovato la soluzione esatta al mio problema.
Io vorrei che l'iniziale di quello che scrivo in una cella sia maiuscola. Però questo deve avvenire solo in alcune celle specifiche.
Non ho trovato tra le diverse discussioni una soluzione alla mia domanda.

P.S. Volevo specificare che uno dei range di caselle che devono avere avere l'iniziale maiuscola sono unite in una unica casella.

Potete aiutarmi?

Grazie tante.

Ciao smichel; qui trovi il codice per le iniziali maiuscole:

http://freeforumzone.leonardo.it/lofi/Scrivere-maiuscola-SOLO-la-prima-lettera-senza-premere-shift/D4073441.html

ma dubito funzioni su celle unite; non sono un mago del VB, ma mi hanno sempre consigliato di evitare celle unite quando si utilizza il codice VB; attendiamo il parere di qualcuno più esperto.

Grazie,

Ho sfuttato il codice che mi hai indicato per creare una cosa un po più complessa:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim area As Range
Set area = Me.Range("D1")
If Not Intersect(Target, area) Is Nothing Then
If Range("D1") = "" Then
Range("D1:F1") = "Nome Istruttore"
End If
Set area = Nothing
End If
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D1:F1")) Is Nothing Then
Target(1).Value = UCase(Left(Target(1).Value, 1)) & Right(Target(1).Value, Len(Target(1).Value) - 1)
End If
Application.EnableEvents = True
End Sub

L'ho fatto a tentativi perchè non conosco il codice.
Però funziona

Con queste stringhe ho fatto in modo che quello che scrivo nelle celle unite sia maiuscolo e che quando cancello il contenuto venga scritto nella cella "Nome Istruttore"

Grazie a tutti siete dei grandi.

Ora però vorrei anche aggiungere che nei range(A3:A17) e (B3:B17) l'iniziale sia maiuscola.
Ho provato a fare come per il codice precedente, ma quando vado a cancellare il contenuto delle caselle nel range mi da errore (run-time 5) e mi evidenzia la stringa:

Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A3:A17")) Is Nothing Then
Target(1).Value = UCase(Left(Target(1).Value, 1)) & Right(Target(1).Value, Len(Target(1).Value) - 1) End If
Application.EnableEvents = True
Come faccio?

Questo è quello che ho scritto:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim area As Range
Set area = Me.Range("D1")
If Not Intersect(Target, area) Is Nothing Then
If Range("D1") = "" Then
Range("D1:F1") = "Nome Istruttore"
End If
Set area = Nothing
End If
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D1:F1")) Is Nothing Then
Target(1).Value = UCase(Left(Target(1).Value, 1)) & Right(Target(1).Value, Len(Target(1).Value) - 1)
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A3:A17")) Is Nothing Then
Target(1).Value = UCase(Left(Target(1).Value, 1)) & Right(Target(1).Value, Len(Target(1).Value) - 1)
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B3:B17")) Is Nothing Then
Target(1).Value = UCase(Left(Target(1).Value, 1)) & Right(Target(1).Value, Len(Target(1).Value) - 1)
End If
Application.EnableEvents = True
End Sub

Mi sa che ho fatto un po di casino

quando cancelli Right(Target.Value, Len(Target.Value) - 1) dà errore perché Len(Target.Value)=0
meglio una cosa del genere

Ok funziona.
Grazie mille.