Inversione data

Hai un problema con Excel?

Nuova discussione

Inversione data
di ansy67 data: 03/09/2015 14:08:11
Ho cambiato computer con installato excell previev 2016 e con questo nuovo ho un problema con la data che nei primi dodici giorni mi inverte la data con mese es oggi 03/09/2015 mi mette 09/03/2015.
Istallato sia office che Windows 10 con impostazioni in italiano.

P.S. Se metto una formula in una casella con scritto:
=ADESSO() mi scrive la data giusta

Grazie

Funzione
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Orario
End Sub


Sub Orario()
ActiveCell = Date & " " & Time()
Conferma = MsgBox("Salvo i dati ?", vbYesNoCancel, "Conferma Salva")
If Conferma = vbYes Then
ActiveWorkbook.Save 'Questa stringa ti chiede se vuoi salvare le modifiche
Else
ActiveCell.ClearContents 'Questa cancella la data inserita
End If
 ActiveCell.Offset(3, -2).Range("A1").Select

di Vecchio Frac data: 03/09/2015 15:22:03
"excell previev" ? mah ^_^

1) Manca Option Explicit
2) Date e Time possono essere sostituite da Now
3) Usa Format
4) Il Range("A1") in un riferimento relativo di una sola cella è inutile

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Orario
End Sub

Sub Orario()
    ActiveCell = Format(Now, "dd/mm/yyyy hh:nn")
    If MsgBox("Salvo i dati ?", vbYesNoCancel, "Conferma Salva") = vbYes Then
        ActiveWorkbook.Save 'Questa stringa ti chiede se vuoi salvare le modifiche
    Else
        ActiveCell.ClearContents 'Questa cancella la data inserita
    End If
    ActiveCell.Offset(3, -2).Select
End Sub

di scossa data: 03/09/2015 16:38:53
cit.: "Il Range("A1") in un riferimento relativo di una sola cella è inutile"

Secondo me lui vuole selezionare la cella A1, quindi dovrebbe essere Range("A1").Select.

cit.: "ActiveCell.Offset(3, -2).Select"

Questa è pericolosa, se la cella su cui fa il doppio click fosse in colonna A o B ........

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw)

di ansy67 data: 03/09/2015 22:33:32
Grazie infinite per le utili considerazioni.
Se metto la macro come è stata scritta mi inverte ancora la data soprattutto per quanto riguarda la seguente riga:
ActiveCell = Format(Now, "dd/mm/yyyy hh:nn")
Ho modificato questa riga in:
ActiveCell = Now
ora è tutto ok ed è la seguente:

ub Orario()
    ActiveCell = Now
    If MsgBox("Salvo i dati ?", vbYesNoCancel, "Conferma Salva") = vbYes Then
        ActiveWorkbook.Save 'Questa stringa ti chiede se vuoi salvare le modifiche
    Else
        ActiveCell.ClearContents 'Questa cancella la data inserita
    End If
    ActiveCell.Offset(3, -2).Select
End Sub

di ansy67 data: 03/09/2015 22:42:52
Per quanto riguarda la seguente istruzione:
ActiveCell.Offset(3, -2).Select

Dal momento che la data va messa nella colonna D e poi voglio che una volta inserita la data e l'ora vada nella casella B con 3 righe sotto, dove devo inserire il dato della chiusura serale fatture pagate.

Ho un ultima richiesta:
Sul computer al lavoro mi funziona tutto bene anche con la vecchia macro.
Noto una cosa che vorrei comprendere.
Nella colonna D ho la macro sopra citata
Nella colonna B ho la seguente formula:
=TESTO(D10851;"ggggg")
Nel computer al lavoro mi mette il giorno della data
Nel mio computer a casa non mi mette il giorno la mi mette lo stesso dato che è in D
Nel caso di oggi
03/09/2015 ore 19.12.02.
Come mai?

Vuoi Approfondire?