formato data

Ciao a tutti,
come posso inserire nelle celle questo formato data scritto in maiuscolo

LUG. 2016

un saluto e grazie.
patrik

Ciao patrick01, immagina di avre in A1 la data 10/07/2016 inserisci questa formula dove vuoi:


[TESTO ::vb]=MAIUSC(TESTO(A1;"mmm"))&"."&ANNO(A1)

Ciao berna,
non è come pensavo.
Non devo collegare 2 celle o inserire una macro per scrivere il mese in maiuscolo.
Pensavo di una data personalizzata da inserire nel formato delle celle.
patrik

Ciao patrick, non so se esiste un "Formaro celle" che possa fare quello che chiedi.
In alternativa puoi scrivere le date in modo intero su una colonna tipo 10/07/2016
e sulla colonna laterale inserisci la formula che ti ho postato ed avrai il risultato che chiedi magari la colonna con la data intera la nascondi.
Poi non so in quale contesto devi inserirla 

Ciao Patrick

per applicare il formato desiderato puoi
- ricorrere a VBA
- utilizzare la formula  in cella B1 =MAIUSC(TESTO(A1;"MMM.AAAA")) A1 è la cella che contiene la data, creando quindi una colonna aggiuntiva
- se la data è il risultato di una formula , allora annida la formula all'interno della mia al posto di A1.

Purtroppo le mie conoscenze di VBA sono scarse, ma qualcuno sul forum saprà aiutarti  
Marco

Ciao a tutti,

@patrik01
come ti hanno detto, si può ricorrere al VBA per ottenere il risultato, ma di fatto il risultato non è una formato di data ma una stringa di testo,
quindi non potrai più utilizzare quella data per altre operazioni.
L'alternativa è usare il "Formato personalizzato":

mmm. aaaa

ma il mese sarà scritto in minuscolo.

Il codice da mettere nel modulo di classe del foglio interessato:

[TESTO ::vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Boolean, Mese As String, Anno As String

If Target.Count = 1 Then
x = IsDate(Target.Value)
If x = True Then
Mese = UCase(Format(Month(Target.Value), "mmm"))
Anno = Year(Target.Value)
Target.Value = Mese & ". " & Anno
End If
End If
End Sub

Ciao Tore

Ho provato il tuo file e forse sbaglio qualcosa ma quale che sia la data che inserisco mi restituisce sempre DIC. 2016.

Dov'è l'inghippo?

alfrimpa, 11/07/2016 19.39:

---

Ciao Tore Ho provato il tuo file e forse sbaglio qualcosa ma quale che sia la data che inserisco mi restituisce sempre DIC. 2016. Dov'è l'inghippo?

---

Ciao Alfredo,
hai ragione... a me però dava sempre Gennaio 

prova a usare questo codice:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Boolean, Mese As String, Anno As String

If Target.Count = 1 Then
x = IsDate(Target.Value)
If x = True Then
Application.EnableEvents = False
Mese = UCase(Format(Target.Value, "mmm"))
Anno = Year(Target.Value)
Target.Value = Mese & ". " & Anno
Application.EnableEvents = True
End If
End If
End Sub


P.S.
non ho messo usato i tag "CODE" per il codice perchè a quanto pare non funzionano più....

Questa me la devi spiegare.

A che servono queste istruzioni

 i = Target.Address
 i = Target.Value
 i = Month(Target.Value)

Quindi in sostanza hai aggiunto un

Application.EnableEvents = False/True

L'avevo fatto anch'io ma dovevo aver sbagliato qualcosa perché non mi funzionava bene poi, visto che sei più veloce della luce, ho lasciato perdere avendo tu dato la soluzione.

alfrimpa, 11/07/2016 20.37:

---

Quindi in sostanza hai aggiunto un Application.EnableEvents = False/True L'avevo fatto anch'io ma dovevo aver sbagliato qualcosa perché non mi funzionava bene poi, visto che sei più veloce della luce, ho lasciato perdere avendo tu dato la soluzione.

---

Anche la variabile "Mese".... ho tolto l'istruzione "Month()"

E' sempre un piacere avere un riscontro a quello che si propone...  

Tore non te la prendere capita,,ahimè, a tutti (quelli che rispondono).

Un abbraccio.