Macro che sbaglia formato data

[Flash30005]

Ciao Anthony,

Se eseguo i subtotali manualmente il formato data riassuntiva è corretto se faccio la stessa cosa attraverso una macro (registrazione dell'operazione precedente) ottengo la data nel sistema americano (e per di più con una cifra sul mese e giorno) faccio un esempio:
Ho un foglio metto nella colonna A Data, B Ora, C Kg
Se faccio i subtotali di queste righe ottengo

Codice: Seleziona tutto

Data             Ora   Kg
08/09/2008   05:18:50   15
08/09/2008   05:28:49   20
08/09/2008 Totale         35


Il formato data del totale è corretta gg/MM/aaaa

Se invece ottengo i subtotali attraverso questa macro (ho necessità che sia una macro a svolgere l'operazione)

Codice: Seleziona tutto

    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _            
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True            


ottengo

Codice: Seleziona tutto

Data             Ora   Kg
08/09/2008   05:18:50   15
08/09/2008   05:28:49   20
9/8/2008 Totale         35

Data formato sistema americano M/g/aaaa
Purtroppo la cella che contiene la data totale è ora in formato testo (contiene anche la parola "Totale" e quindi non è più possibile formattarla diversamente

Volevo sapere se esiste un codice da dare alla macro (non so in GroupBy:=1) che permetta di mantenere il formato data originale?

ciao e grazie

[Anthony47]

Ciao, anche tu ferie lunghe...
Purtroppo credo che l' inconveniente sia legato al settaggio del tuo Pc; il vba genera al suo interno una data coerente col settaggio del Pc, indipendentemente da come siano formattate le tue celle.
Prova a variare questo settaggio (su XP: pannello di controllo, Opzioni internazionali e lingua, tab Opzioni internazionali, scegli Personalizza, tab Data), ma sinceramente non so quanta liberta' di manovra hai.

Un parziale bypass potrebbe essere il formattare le date in formato gg/mmm/aaaa (cioe' 8 Set 2008), in mmodo che "Set 8 Totale" non sia difficilissimo da capire.

Ciao.

[Flash30005]

...Soprattutto riposanti e rigeneratrici

Mentre effettuavo dei tentativi mi è venuta un'idea:
di formattare (con personalizzato: gg/mm/aaaa) l'intera colonna prima di eseguire i subtotali (registrando tutte le operazioni con la macro) e qui viene il bello!

Nello script della macro leggo, con mio grande stupore, che il formato data registrato non è uguale a quello da me scelto

Codice: Seleziona tutto

   

    Columns("A:A").Select

    Selection.NumberFormat = "m/d/yyyy"

    Range("A1").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True


"m/d/yyyy"
Un bug di sicuro!
A questo punto, però, ho risolto perché modificando manualmente quel formato in
dd/mm/yyyy
ottengo la data corretta

Posto questa soluzione per tutti coloro che dovessero incorrere nello stesso inconveniente

Ciao