Bloccare la funzione OGGI()

[nabbe]

Sono alle prese con un problema di date.
Sto organizzando un foglio Excel relativamente alla contabilità giornaliera di uno studio fotografico con entrate ed uscite così organizzate:
colonna A data
colonna B codice gruppo ( es. S=stampa, F= fototessere ecc..)
colonna C entrate
colonna D uscite

Il mio scopo è di evitare di inserire la data odierna.

Avevo pensato di inserire nella colonna A la funzione Oggi() che ovviamente varierà col passare dei giorni.
Ora vorrei che inserendo il codice nella colonna B il dato della colonna A si blocchi alla data di oggi e non vari nei giorni seguenti.
Spero di essere stato chiaro
Grazie e Buone Feste a tutti

[Flash30005]

Nel Vba del foglio interessato (non modulo) inserisci questo codice:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
UR = Range("B" & Rows.Count).End(xlUp).Row
Area1 = "B2:B" & UR
RR = Target.Row
If Application.Intersect(Target, Range(Area1)) Is Nothing Then Exit Sub
Range("A" & RR).Value = Date
End Sub


al variare di una cella in colonna B sarà aggiornata la data (el giorno) in colonna A

Oppure, più semplicemente questa macro

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
ActiveCell.Offset(-1, -1).Value = Date
End Sub

ciao

[nabbe]

Se ho ben capito nella colonna A non devo inserire nessuna formula.
Nella colonna B se inserisco un valore automaticamente nella colonna A viene riportata la data odierna.

Area1 = "B2:B" & UR si intende l'area di applicazione quindi se effettivamente l'area va da 7 a 1000 devo scrivere B1000:B7
giusto?

[Flash30005]

Nessuna formula in colonna A
Non devi cambiare l'area ma la devi trascrivere così come è
oppure usa la seconda macro, più semplice

ciao