highlighting last edited cell

[Aamir khan]

how can we highlight last edited cell e.g if i use A1 it will highlight after use and then i use B5 then highlighting remove from A1 and B5 will highlight

 

[MickG]

Try this:-
It's the same code but within a ChangeEvent Cover.

Option Explicit
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, temp [COLOR="Navy"]As[/COLOR] Range
Private [COLOR="Navy"]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
 [COLOR="Navy"]If[/COLOR] Rng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]Set[/COLOR] Rng = Target
    [COLOR="Navy"]Else[/COLOR]
        Rng.Interior.Color = vbYellow
        [COLOR="Navy"]If[/COLOR] Not temp [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR] temp.Interior.Color = xlNone
        [COLOR="Navy"]Set[/COLOR] temp = Rng
        [COLOR="Navy"]Set[/COLOR] Rng = Target
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Aamir khan]

thank you so much Mr. Mick
now you have done it i am very happy its really worked for me thank you again

 

[MickG]

You're welcome.
You might be interested the code below:-
It is the same as the previous code, except if you change a cell that has a particular colour, then that cell will retain its original colour when it comes to being changed back as you proceed with the code.

Option Explicit
[COLOR=navy]Dim[/COLOR] Rng [COLOR=navy]As[/COLOR] Range, temp [COLOR=navy]As[/COLOR] Range, c [COLOR=navy]As[/COLOR] [COLOR=navy]Long,[/COLOR] Ray()
Private [COLOR=navy]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR=navy]As[/COLOR] Range)
[COLOR=navy]Dim[/COLOR] col [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
    c = c + 1
    ReDim Preserve Ray(c)
    Ray(c) = Target.Interior.Color
    [COLOR=navy]If[/COLOR] c > 2 [COLOR=navy]Then[/COLOR] col = Ray(UBound(Ray) - 2)
    [COLOR=navy]If[/COLOR] Rng [COLOR=navy]Is[/COLOR] Nothing [COLOR=navy]Then[/COLOR]
        [COLOR=navy]Set[/COLOR] Rng = Target
    [COLOR=navy]Else[/COLOR]
        Rng.Interior.Color = vbYellow
        If Not temp Is Nothing Then temp.Interior.Color = col 
        [COLOR=navy]Set[/COLOR] temp = Rng
        [COLOR=navy]Set[/COLOR] Rng = Target
    [COLOR=navy]End[/COLOR] If
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick