Funzione IF e data statica

Question

Ciao a tutti,

Vorrei automaticamente compilare le celle della colonna J con la data odierna se nella colonna I appare un certo valore.

Sto provando la formula =IF(J2="LASERED", NOW(), "") ma vorrei che la data rimanga statica.

Qualcuno sa come fare?

Answer 1

Ciao AurEl3,

Vorrei automaticamente compilare le celle della colonna J con la data odierna se nella colonna I appare un certo valore.

Sto provando la formula =IF(J2="LASERED", NOW(), "") ma vorrei che la data rimanga statica.

Qualcuno sa come fare?

Prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

Option Compare Text

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, destRng As Range, rCell As Range 

Const sTesto As String = **"LASERED"            '<<=== Modifica** 

Const sColonna\_Testo As String = **"A"          '<<=== Modifica** 

Const sColonna\_Data As String = **"J"           '<<=== Modifica** 

Set Rng = Intersect(Me.Columns(sColonna\_Testo), Target)  

If Not Rng Is Nothing Then 

    For Each rCell In Rng.Cells 

        With rCell 

            If .Value = sTesto Then 

                Set destRng = Intersect(.EntireRow, Me.Columns(sColonna\_Data)) 

                With destRng 

                    If Not IsDate(.Value) Then 

                        .Value = Date 

                        .NumberFormat = "dd/mm/yyyy" 

                    End If 

                End With 

            End If 

        End With 

    Next rCell 

End If 

End Sub

'<<========  

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

===

Regards,

Norman

Answer 2

Ciao AurEl3,

Grazie Norman.

Perfetto come sempre.

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Grazie Norman.

Perfetto come sempre.