Maiuscola prima lettera cella formato ggg

[Ricky0185]

Buonasera, una serie di celle contenenti date hanno formato ggg (lunedì, martedì, etc). Vorrei formattarle con la prima lettera in maiuscolo (Lunedì, Martedì, etc), ma con la macro

Codice: Seleziona tutto

Sub Proper_Case()
     For Each x In Range("C1:C5")
      x.Value = Application.Proper(x.Value)
   Next
End Sub

trasforma solo le date nel loro numero seriale. Ho provato anche la strada Excel copia-Word incolla-Excel copia valori e funziona sostituendo ovviamente

Codice: Seleziona tutto

x.Value = Application.Proper(x.Value)

con

Codice: Seleziona tutto

cell.Value = UCase(Left(cell.Value, 1)) & Right(cell.Value, Len(cell.Value) - 1)

ma con le date sparpagliate su tutto il foglio è un lavoraccio. Esiste una via ?
Un saluto
R

[Anthony47]

Rispondo alla domanda "come fare": Invece che x.Value = Application.Proper(x.Value) prova a usare

Codice: Seleziona tutto

x.Value = Application.Proper(Format(x.Value, "dddd dd/mm/yyyy"))


Tieni presente che così facendo la cella perde in contenuto "Data" che viene commutato in Stringa; quindi SEI SICURO che e' quello che ti serve?

Quanto alla seconda domanda, potrebbe quindi (per quanto detto sopra) essere ALQUANTO PERICOLOSO FARLO AUTOMATICAMENTE su tutte le date del foglio, ma se vuoi dovrebbe essere possibile tramite ad esempio questo snippet:

Codice: Seleziona tutto

Dim myC As Range
For Each myC In ActiveSheet.UsedRange
    If IsDate(myC.Value) Then
        myC.Value = Application.Proper(Format(X.Value, "dddd dd/mm/yyyy"))
    End If
Next myC


Prova solo dopo aver meditato bene...

[Ricky0185]

In effetti la prima soluzione è da scartare, perchè oltre a trasformare il lun, mar, mer, etc in

risultano intoccabili-testo. Il secondo suggerimento si blocca Errore 424 debug

Codice: Seleziona tutto

myC.Value = Application.Proper(Format(X.Value, "dddd dd/mm/yyyy"))

Ti ringrazio, ma lascia perdere, trasformarle ma poi non poter utilizzarle risulta inutile.
Ti saluto e ringrazio
R