tutto minuscolo SOLO colonna specificata

[raimea]

ciao
vorrei mettere:
in Maiuscolo la prima lettere e tutto il resto minuscolo
il contenuto di una colonna specifica F dal cella F6

io conosco una macro ma opera sull intero file e questo mi crea problemi
nello colonne con le date
questa quella che conosco io :

Codice: Seleziona tutto

 Dim C As Object
   Set zona = ActiveSheet.UsedRange
    For Each C In zona
    If C <> "" And IsNumeric(C) = False Then
    C = UCase(Mid(C, 1, 1)) + LCase(Mid(C, 2))
    End If
   Next

quindi vorrei poter specificare la colonna (F6) dove mettere
tutto minuscolo il contenuto e Maiscolo la 1ma lettera

via ringrazio

ciao

[patel]

Codice: Seleziona tutto

LR = Cells(Rows.Count, "F").End(xlUp).Row
For Each C In Range("F6:F" & LR)
    If C <> "" And IsNumeric(C) = False Then
       C = UCase(Left(LCase(C), 1))
    End If
Next

[raimea]

ciao
non fa nulla resta tutto uguale

ti allego un file di esempio

https://dl.dropboxusercontent.com/u/96374724/minusc.rar

[patel]

Codice: Seleziona tutto

Sub minuscl()
Dim C As Range
LR = Cells(Rows.Count, "F").End(xlUp).Row
For Each C In Range("F6:F" & LR)
    If C <> "" And IsNumeric(C) = False Then
    C = UCase(Mid(C, 1, 1)) + LCase(Mid(C, 2))
    End If
   Next
End Sub

oppure

Codice: Seleziona tutto

Sub minuscl()
Dim C As Range
LR = Cells(Rows.Count, "F").End(xlUp).Row
For Each C In Range("F6:F" & LR)
    If C.Value <> "" And IsNumeric(C.Value) = False Then
       C.Value = Application.WorksheetFunction.Proper(C.Value)
    End If
Next
End Sub

[Anthony47]

La 1 oppure la 2, tenendo presente che Proper imposta su maiuscolo le iniziali di tutte le parole presenti in cella.

Ciao!

[raimea]

ciao

tutto bene
funziona correttamente

Grazie