03-15-2013 01:53 PM
Dim Rng As Range, i As Long
Application.ScreenUpdating = False
Set Rng = Range("C3:C" & Range("C" & Rows.Count).End(xlUp).Row)
For i = Rng.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountIf(Rng, Cells(i, "C")) > 1 Then
lr = Sheets("Removed").Cells(Rows.Count, "DH").End(xlUp).Row + 1
Rows(i).EntireRow.Cut Destination:=Sheets("Removed").Range("C" & lr)
Application.ScreenUpdating = True
Been trying to move the tradeid's from column C to a new worksheet that starts in C too, thanks.
03-18-2013 02:44 AM
I'm afraid this isn't a VBA forum. I wonder whether you are in the right forum after all. I guess it would be simply be a waste of time for you and others when you seek answers for VBA questions unless it is some sort of SAS in conjunction with other technologies.
I am not sure whether or not a SAS moderator is in place.:smileyalert: