Comparing Dates

[Tsubarov]

Hey guys,

I'm kinda stuck on this one. I need a macro to get from the first picture, to the second.

Basically, if there are 2 or more 'c_ccontact' cells with the same value, i need to compare the date's in those rows, and delete the rows which don't have the latest date.

|
|
\ /

Thanks in advance !

 

[MickG]

I'm pleased you've returned, there was another line that needed correcting !!
Change line as shown in red,This effects the returned dates that otherwise, would not always be correct.
It actuall the "Rw" that in your code shows as "n"

 n = n + 1
            nRay(n, 1) = Format(Ray(Rw, 1), "dd/mm/yyyy hh:mm")
              nRay(n, 2) = Ray(Rw, 2)

Mick

 

[Tsubarov]

Hmm, the correction you proposed had already been changed in your previous suggestion.

 

[MickG]

Your quite right , I thought I had made an error in 2 places, obviously not.
Regarding the date, You could try custom formatting the range prior to running the code:- "dd/mm/yyyy hh:mm".