Digitare una data con anno corrente e non corrente.

Question

Buon pomeriggio,

Digitando in una cella: giorno / mese, automaticamente excel aggiunge l'anno in corso.

E possibile far aggiungere un anno diverso? casomai prendendo il valore anno da una cella?

Grazie dell'attenzione, buona domenica.

Pier Luigi

Excel 2010 / 2016

Answer 1

ciao

prova

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Data As Date, Anno As Integer, Nuova As Date

If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

 Application.EnableEvents = False

Data = Target.Value

 Anno = [B1]

Nuova = DateSerial(Anno, Month(Data), Day(Data))

Target.Value = Nuova

End If

Application.EnableEvents = True

End Sub

Answer 2

ciao

non sono espertissimo in vba

ma questa gestisce l'errore

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Data As Date, Anno As Integer, Nuova As Date

If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

 Application.EnableEvents = False

 If IsDate(Target.Value) Then

Data = Target.Value

 Anno = [B1]

Nuova = DateSerial(Anno, Month(Data), Day(Data))

Target.Value = Nuova

Else

Application.EnableEvents = True

Exit Sub

End If

End If

Application.EnableEvents = True

End Sub

è chiaro che devi digitare

01/02 come nelle premesse per avere la data esatta

poi ora anche se digiti un nome o lettere

non va in debug

funziona per 100 righe aumentala se ne vuoi di più

Answer 3

ciao

è perchè devi digitare solo date 

altrimenti va in debug

ora non posso

poi ti metto la macro con la gestione dell'errore

nel frattempo

metti su un modulo

Sub errore()

Application.EnableEvents = True

End Sub

e lanciala

vedrai che torna a funzionare

Answer 4

Buon giorno,

Purtroppo la soluzione proposta, dopo aver digitato qualche volta una data, smette di funzionare, proponendo come anno, l'anno in corso.

Grazie.

Cordiali saluti.

Pier Luigi

Answer 5

Gentilissimo francocon..res buona sera,

ti ringrazio per la soluzione proposta, fa al caso mio.

Cordiali saluti.

Pier Luigi