Remove duplicates when copying a row from one sheet to another

Hello,

I am new to the wonderful world of VBA. I have a mastersheet with data that once updated a user can click the "update" button and the info transfers over to the corresponding sheet. However, when the button is clicked for the 2nd, 3rd, 4th, etc. time, the data duplicates previous data already copied to the additional sheets. I know that I am needing to delete the duplicates, but nothing I have tried so far is working. Help!

Thanks!

Hi John,

Thanks for responding. The button is on the "Requestes" sheet around column U1. When I open the attached file, I do show the code but...

This is the code I am working with:

Sub As_Of_Analysis_Sorting()
Dim lr As Long, lr2 As Long, r As Long
lr = Sheets("Requests").Cells(Rows.Count, "A").End(xlUp).Row
lr2 = Sheets("Jan").Cells(Rows.Count, "A").End(xlUp).Row
lr3 = Sheets("Feb").Cells(Rows.Count, "A").End(xlUp).Row
lr4 = Sheets("Oct").Cells(Rows.Count, "A").End(xlUp).Row
For r = lr To 3 Step -1

If Range("t" & r).Value = "Jan 16" Then
Rows(r).Copy Destination:=Sheets("Jan").Range("A" & lr2 + 1)
lr2 = Sheets("Jan").Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
End If
If Range("t" & r).Value = "Feb 16" Then
Rows(r).Copy Destination:=Sheets("Feb").Range("A" & lr3 + 1)
lr3 = Sheets("Feb").Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
End If
If Range("t" & r).Value = "Oct 16" Then
Rows(r).Copy Destination:=Sheets("Oct").Range("A" & lr4 + 1)
lr4 = Sheets("Oct").Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
End If
Range("A1").Select
Next r
Application.ScreenUpdating = True
End Sub


Any help is greatly appreciated!

Sorry about that. Really new to this.

Please Login or Register  to view this content.

Hi John,

Column L is updated by the user. It is simply a column to track when the incoming requests are sent on for additional processing. In the example, my intent was to show that if you use anything other than "x" it will not track as required. Hope this helps.

John,

You are a lifesaver!!! It works great. Thanks for all your help..and patience.