Just modify my code to this. You could also sort by site ascending with
descending date>advance filter to unique>copy but this is easier.
Option Explicit
Sub CopyLastDatetoothersheeetSAS()
'run from source sheet
Dim i As Long
Dim dlr As Long
On Error Resume Next
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row + 1
If Cells(i, "d") <> Cells(i - 1, "d") Then
With Sheets("sheet2")
dlr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Rows(i - 1).Copy .Cells(dlr, 1)
.Columns.AutoFit
End With
End If
Next i
End Sub
From: anil kumar
Sent: Friday, September 30, 2011 3:43 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ find doubling
Dear dguillett and noorani,
I don't want to remove double I want show that and copy in other sheet. for
removing I use Alt +AM
Thanks & Regards
Anil
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
