marreco
03-15-2013, 05:56 PM
Hi.
I have a formula in "C1" (= IF (A1 <B1, "Results of the formula", ""), I would like to see "C1" equals "Results formula" then "D1" I get the date current.
I tried and researched often unable to resolve.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("C1").Formula = "Results of the formula" Then
Range("D1") = Date
Else
Range("D1") = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C1")) Is Nothing Then
If Range("C1") = "Results of the formula" Then
Range("D1") = Date
Else
Range("D1") = ""
End If
End If
End Sub:banghead:
I will be grateful if someone could help me
Thank you!!
I have a formula in "C1" (= IF (A1 <B1, "Results of the formula", ""), I would like to see "C1" equals "Results formula" then "D1" I get the date current.
I tried and researched often unable to resolve.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("C1").Formula = "Results of the formula" Then
Range("D1") = Date
Else
Range("D1") = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C1")) Is Nothing Then
If Range("C1") = "Results of the formula" Then
Range("D1") = Date
Else
Range("D1") = ""
End If
End If
End Sub:banghead:
I will be grateful if someone could help me
Thank you!!