[Excel] Data

[sax]

Ho in una cella inportata da un file esterno un formato data tipo
20060201 la vorrei trasformare in 01 febbraio 2006 ed ho usato la segente funzione visto che il dato si trova nella cella B3

Codice: Seleziona tutto

=DESTRA(B3;2)&"/"&DESTRA(ARROTONDA(B3/100;0);2)&"/"&SINISTRA(B3;4)

il risultato è 01/02/2006 ma non è formatta in data mi potete indicare come fare?
Grazie
Ciao...

[Anthony47]

Ciao sax,
dovresti usare la funzione DATA, nella formula

Codice: Seleziona tutto

=DATA(SINISTRA(B3;4);DESTRA(ARROTONDA(B3/100;0);2);DESTRA(B3;2))

oppure, piu’ lineare

Codice: Seleziona tutto

=DATA(SINISTRA(B3;4);STRINGA.ESTRAI(B3;5;2);DESTRA(B3;2))

Poi formatti in uno dei formati “data”

Se e’ una operazione una tantum su una colonna di dati, invece della formula potresti:
-selezionare la colonna
-Dati ->Testo in Colonna; scegli “Delimitati”/Avanti, spunti “Tabulazione”/Avanti, spunti “Data” su Formato dati e dal menu’ a tendina scegli AMG per Anno/Mese/giorno; completi con “Fine”.

Ciao,

[sax]

Ti ringrazio per l'aiuto
Ti volevo chiedere un'altro aiuto
in un altro file "vsexport" devo copiare la stessa colonna di date formattate sempre 20060201 che sono inserite nella colonna B2:B1500
e la dovrei copiare in un altro file nella colonna B6:B1505 dove ho inserito il pulsante di avvio e riformattarla in 01 feb 2006 come faccio a trasformare in vba la formula che mi hai dato?
grazie

[Anthony47]

Ti volevo chiedere un'altro aiuto
in un altro file "vsexport" devo copiare la stessa colonna di date formattate sempre 20060201 che sono inserite nella colonna B2:B1500 e la dovrei copiare in un altro file nella colonna B6:B1505

In questo caso puoi utilizzare il metodo del copia/incolla speciale, registrando una macro mentre fai questa operazione.

Oppure metti la formula nel secondo foglio, facendola diventare

Codice: Seleziona tutto

=DATA(SINISTRA('[vsexport]Foglio1'!B2;4);STRINGA.ESTRAI('[vsexport]Foglio1'!B2;5;2);DESTRA('[vsexport]Foglio1'!B2;2))

che poi copi verso il basso.


Se vuoi caricare le formule da macro, userai qualcosa tipo:

Codice: Seleziona tutto

Range("B6:B1505").Select
Selection.Formula = _
        "=DATE(LEFT([vsexport]Foglio1!B2,4),MID([vsexport]Foglio1!B2,5,2),RIGHT([vsexport]Foglio1!B2,2))"

E’ sufficiente? Ciao,