Excel eliminare barra da data

[Francesco53]

Un saluto a tutti,
trasformo in vba una data dal seguente formato: 01/12/1953 tramite il seguente codice:

Codice: Seleziona tutto

Data1 = Cells(I, 2)
    Data2 = Replace(Data1, "/", "")
    Cells(I, 2) = Data2

Il problema è che mi elimina anche lo 0 del giorno, io ho bisogno di ottenere 01121953
e non 1121953.
Ringrazio chi mi può aiutare a risolvere la difficoltà.
Francesco

[Marius44]

Ciao
Come è formattata la cella di destinazione? Sicuramente come Generale!
Formattala come Testo e vedrai il tuo zero.

Ciao,
Mario

[Francesco53]

Ciao Marius44, ti ringrazio per l'interessamento ma purtroppo continua a mancare lo zero davanti ai giorni minori di 10.
Avevo già provato ma non funziona purtroppo.
Francesco

[Marius44]

Ciao
Ti allego il file dove avevo fatto le prove.
Nell'Editor di VBA troverai 2 macro (la tua e la mia - Sub Sostituzione)

Come puoi notare in B1 c'è la data come la vuoi tu mentre in B3 la data è senza lo zero iniziale.
Seleziona la cella B3 e formattala come testo. Lancia la mia macro e vedi cosa succede.

Ecco il file https://www.dropbox.com/s/au7p2p9r8yw1rro/DataTesto.xlsm?dl=0

Ciao,
Mario

[Francesco53]

Grazie Mario, sembra tutto ok.
Francesco

[Anthony47]

Se "Funziona" allora va bene cosi'... Pero' a me pare che il risultato dipende da come e' formattata la cella; se e' "Generico" allora 01/12/2017 diventa sempre 1122017
Io, nella sub di Francesco, mi sarei limitato a modificare questa riga

Codice: Seleziona tutto

    Data2 = "'" & Replace(Data1, "/", "")

Ciao