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

 

[Special-K99]

VBA I would imagine, dont think you can do this with condtional formatting

 

[Aamir khan]

how can i do with conditional formating please give me solution

 

[Special-K99]

how can i do with conditional formating please give me solution

I've just told you, you CAN'T do this with conditional formatting, you need VBA.

 

[Aamir khan]

i am good in vba if you have any solution then please help me.. .

 

[Special-K99]

I'm not an expert in VBA.

Some info here maybe

https://www.mrexcel.com/forum/excel-questions/393942-automatically-highlight-modified-cells.html

Take a look at this too

http://smallbusiness.chron.com/highlight-values-change-microsoft-excel-40012.html

 

[MickG]

Try this:-
To load code :- Right click sheet Tab, select "View Code", Vb window appears.
Paste (at top of code page) code into Vbwindow, close Vbwindow.
To run code select cell between columns "A & N" ( alter in code as required), cell will turn "yellow", select another cell, original cell returns to previous colour new cell turns "Yellow".

Option Explicit
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, ray
Private [COLOR="Navy"]Sub[/COLOR] Worksheet_SelectionChange(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] Dn [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] col [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]If[/COLOR] Not Intersect(Target, Range("A:N")) [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
[COLOR="Navy"]If[/COLOR] Not Rng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    c = 0
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
       c = c + 1
       Dn.Interior.ColorIndex = ray(c, 1)
       Dn.Borders.LineStyle = xlNone
    [COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] If
c = 0
[COLOR="Navy"]Set[/COLOR] Rng = Target
ReDim ray(1 To Rng.Count, 1 To 2)
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
        c = c + 1
        ray(c, 1) = Dn.Interior.ColorIndex
    [COLOR="Navy"]Next[/COLOR] Dn
    Target.Interior.ColorIndex = 6
    Target.Borders.Weight = 2
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Aamir khan]

Deer Mick your code is highlighting active cell.
i need to highlight that cell which i used last time and it should be dynamic. e.g
if i enter some data into A1 and then move to another cell B1 then A1 will highlight for me and when i enter data into B1 and move to F3 or any other cell then my highlight remove from A1 and B1 will highlight for me which i used last time

 

[MickG]

Try this:-

Option Explicit
[COLOR=navy]Dim[/COLOR] Rng [COLOR=navy]As[/COLOR] Range, temp [COLOR=navy]As[/COLOR] Range
Private [COLOR=navy]Sub[/COLOR] Worksheet_SelectionChange(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]

Deer mick thank you so much for your responding.
you are very close to my question your code is really working but here a problem " your code is highlighting every last cell but i need to highlight that last cell which i modified "