Solved: criterion for cell with formula, and the date on another cell

[marreco]

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!!

[SamT]

In the first example, the formula in c1 is
= IF (A1 <B1, "Results of the formula", "")
NOT, "Results of the formula"
Change the sub to read
If Range("C1").Value = "Results of the formula" Then

The second example probably won't ever work because many values on a worksheet change at one time.

[marreco]

Hi.
I had tried that and it did not work!

[SamT]

What did happen?

[marreco]

Hi.

absolutely nothing!

Att

[sassora]

How about using a formula into D1:

=IF(C1="Results of the formula",TODAY(),"")

[marreco]

Hi.

I can not use the formula in D1, my idea is to freeze the date if C1 is false.

[sassora]

Where is the worksheet_change code located?

[marreco]

Hi.
within the module Sheet1

[SamT]

It works fine for me, except that it triggers a change event, so it loops continuously. I stopped that by
Application.EnableEvents = False


I just pastedyour code into Sheet1's CodePage then pasted
"Results of the formula"
into C1

[marreco]

Hi. send me your file

Thank you!!

[SamT]

Sheet1 is the same as yours, with very minor changes. Sheet2 isan improved version.

[marreco]

Hi.

Sorry it did not work, I'm using a formula in C1, see Attachment

[SamT]

You did not read the comments, my friend.

You must comment out the first line that reads "Exit Sub" in order for the macro to run.

This is so you can make changes without having the macro run by removing the comment mark.

The Macro on Sheet 2 is not appropriate at this time. I will need to know which cells are actually changing, other than the results of the formula.

[marreco]

Hi.

I did it, is not working with the formula in "C1"
I am using a formual in "C1"!!

[sassora]

Sheet 1 of Don'tWork.xls works for me.

[marreco]

Hi.
It worked, but I have another problem, I forgot to mention that it is "Now" andnot "Date"

as I do that the time is frozen while A1 <B1?

[SamT]

Try this one. I changed the macro.

[marreco]

Hi

Very good!!

Thank you!!