inserire data alla modifica di una cella

Question

Salve

ho provato a utilizzare la soluzione contenuta a questa pagina (http://answers.microsoft.com/it-it/office/forum/office_2007-excel/cambiare-la-data-quando-modifico-la-cella/868825c0-5dd1-4525-b381-c7592904a23d) ma non ho ottenuto risultati nel mio caso.

Mi servirebbe una formula che mi permetta di inserire nella cella J7 (situata nel foglio 1) la data odierna, nel momento in cui avviene una modifica nella cella D2 (situata nel foglio 4).

Cosa posso fare?

Grazie mille

Cordiali saluti

Claudio Cau

Answer 1

Salve

ho provato a utilizzare la soluzione contenuta a questa pagina (http://answers.microsoft.com/it-it/office/forum/office_2007-excel/cambiare-la-data-quando-modifico-la-cella/868825c0-5dd1-4525-b381-c7592904a23d) ma non ho ottenuto risultati nel mio caso.

Mi servirebbe una formula che mi permetta di inserire nella cella J7 (situata nel foglio 1) la data odierna, nel momento in cui avviene una modifica nella cella D2 (situata nel foglio 4).

Cosa posso fare?

Grazie mille

Cordiali saluti

Claudio Cau

Metti questo nel modulo di codice del Foglio4:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim sh As Worksheet

    If Target.Address = "$D$2" Then

        Set sh = ThisWorkbook.Worksheets("Foglio1")

            sh.Range("J7").Value = Format(Now, "mm/dd/yyyy")

    End If

    Set sh = Nothing

End Sub

Prova un po'.

Answer 2

purtroppo c'è ancora un problema;

anche quando non aggiorno nessun valore in quel foglio, se esco e salvo il documento, alla riapertura noto che è stata inserita la data nella casella scelta.

Come mai?

Answer 3

ok perfetto, in quel foglio sono contenuti una serie di eventi che rimandano alla cella target, quindi l'evento Calculate va benissimo.

Grazie mille ancora per la risposta

Answer 4

Innanzitutto grazie per la risposta;

ho provato la formula e ho notato, modificando la cella target con un'altra, che il tutto funziona solamente se sono io ad inserire manualmente una modifica nella cella, mentre la mia cella target (d2) presenta una formula che la fa variare in base ai valori di altre celle. In questo caso come mi devo comportare per far si che funzioni?

Puoi sostituire D2 con il riferimento alla cella che modifica D2.

Oppure utilizzare l'evento Calculate del Foglio4(occhio che viene eseguito ad ogni ricalcolo del Foglio4):

Private Sub Worksheet_Calculate()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    sh.Range("J7").Value = Format(Now, "mm/dd/yyyy")

    Set sh = Nothing

End Sub

Answer 5

Innanzitutto grazie per la risposta;

ho provato la formula e ho notato, modificando la cella target con un'altra, che il tutto funziona solamente se sono io ad inserire manualmente una modifica nella cella, mentre la mia cella target (d2) presenta una formula che la fa variare in base ai valori di altre celle. In questo caso come mi devo comportare per far si che funzioni?