Originariamente inviato da nicola75ss
Magari sbaglio qualcosa io allora. Avevo provato ad usare la tua funzione senza integrarla con strconv ma se la tabella contiene i cognomi in maiuscolo rimangono tali
Ah, pensavo fossero solo minuscole.
Allora prova:
codice:
Public Function Maiuscola(testo)
Dim testo2, n
For n = 1 To Len(testo)
If n = 1 Then
testo2 = UCase(Left$(testo, 1))
Else
If Mid$(testo, n - 1, 1) = "'" Then
testo2 = testo2 + UCase(Mid$(testo, n, 1))
Else
testo2 = testo2 + LCase(Mid$(testo, n, 1))
End If
End If
Next n
Maiuscola = testo2