Condition Check for the Current Cell

[treeppm]

Hello Friends,
Cell A1=1, A2=1, A3=A1*A2

When I change A1 Value and if it gives A3>previous value I would like to store the A1=A4
kindly guide me

Regards

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x#, y#, z#
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Application.EnableEvents = False
x = [A1]
z = [A2]
y = [A3]
Application.Undo
[COLOR=#ff0000]If [A3] > y Then [A4] = x[/COLOR]
[A1] = x
[A2] = z
Application.EnableEvents = True
End Sub

 

[treeppm]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x#, y#, z#
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Application.EnableEvents = False
x = [A1]
z = [A2]
y = [A3]
Application.Undo
[COLOR=#ff0000]If [A3] > y Then [A4] = x[/COLOR]
[A1] = x
[A2] = z
Application.EnableEvents = True
End Sub

No, It's not working bro, Kindly recheck

 

[footoo]

Do you mean : if at any time in the past the value in A3 was higher than the current A3 value then don't change A4 ?
If so, I think another cell will be needed to store the highest A3 value.

Do cells A1 and A2 always get changed at the same time?
If so, I think a different approach is required.
The present code acts on changes to A1 and A2 individually, so that might produce results you do not want.

 

[treeppm]

There is another choice bro, you can store the higher A3 value into cell B3 so when ever it goes greater than the current A3 value you can replace B3 with current A3 value and you can store the current A1 value into A4

PS: I think you mentioning this in

Do you mean : if at any time in the past the value in A3 was higher than the current A3 value then don't change A4 ?
If so, I think another cell will be needed to store the highest A3 value.

 

[footoo]

There is another choice bro, you can store the higher A3 value into cell B3 so when ever it goes greater than the current A3 value you can replace B3 with current A3 value and you can store the current A1 value into A4

PS: I think you mentioning this in

What about my other questions?

 

[treeppm]

What about my other questions?

Do cells A1 and A2 always get changed at the same time?

Yes, But I need only the A1 value if A1*A2 multiply goes higher than previous

 

[footoo]

Yes, But I need only the A1 value if A1*A2 multiply goes higher than previous

Yes but if A1 is changed the A3 value changes and the code gets triggered - and uses that A3 value to compare.
Then if A2 is changed the A3 value changes and the code gets triggered - and then uses that new A3 value to compare.
Is that what you want?

 

[treeppm]

Yes but if A1 is changed the A3 value changes and the code gets triggered - and uses that A3 value to compare.
Then if A2 is changed the A3 value changes and the code gets triggered - and then uses that new A3 value to compare.
Is that what you want?

Exactly, and you can add as much as cells you want for the calculation or storing values.
This is the requirement.
We are having value a,b for the multiply
so the multiply goes to x
if we change a or b and if the current value of x is higher than previous x then we need only current higher x of "a" value

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Application.EnableEvents = False
If [A3] > [B3] Then
    [A4] = [A1]
    [B3] = [A3]
End If
Application.EnableEvents = True
End Sub

 

[treeppm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Application.EnableEvents = False
If [A3] > [B3] Then
    [A4] = [A1]
    [B3] = [A3]
End If
Application.EnableEvents = True
End Sub

Brilliant work dude, this is exactly what I want. Thank you so much for the great help with great patient, even I could not explain in perfect English..
Have great life bro,