preservare la formattazione delle date

[ilFontaPartecipante ilFonta]

Salve

ho scritto la seguente macro che converte le date in una colonna dal formato yyyymmdd (letteralmente 20160807) in d/m/yyyy (quindi 7/8/2016).

Ebbene vorrei che fossero rispettati anche gli 0 (zero) nelle date, anche perche' in seguito dovro' esportare la colonna in .csv

In poche parole vorrei ottenere 07/08/2016 invece di 7/8/2016.

Qualche consiglio?

Grazie

Dim cella As Range

Dim myRange As Range
Set myRange = Application.InputBox(prompt:="Inserisci la colonna con le date in formato yyyymmdd", Type:=8)

Dim myRangeOut As Range
Set myRangeOut = myRange.Offset(0, 2)

' -----------------------------------------------------------------------
' da yyyymmdd a yyyy mm dd, separo in colonne

myRange.TextToColumns Destination:=myRangeOut, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), _
Array(4, 1), _
Array(6, 1)), _
TrailingMinusNumbers:= _
True

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

molto banalmente, visto che hai diviso il testo in colonne, potresti aggiungere queste due righe di codice alla tua macro

If Cells(1, 4) < = 9 Then Cells(1, 4) = "'0" & Cells(1, 4)
If Cells(1, 5) < = 9 Then Cells(1, 5) = "'0" & Cells(1, 5)

Attento però al fatto che con l'apice singolo davanti allo zero ti ritrovi con delle Stringhe. Tienilo presente in caso di calcoli.

Ciao,

Mario

[ilFontaPartecipante ilFonta]

Grazie mille Marius

[Autore]

Articoli