View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Teresa Teresa is offline
external usenet poster
 
Posts: 169
Default Removing Duplicates and Pasting

Hi, the following code is meant to loop through column E - 100 Clients (many
duplicated) and paste each client (without duplicates) to Column B of current
wks

Not quite working but i think im close - help is greatly appreciated, thks

Sub rev()

Dim LastRow As Long
Dim i, j As Long
LastRow = Worksheets("Jobs").Cells(Rows.Count, 5).End(xlUp).Row
j = 3
For i = LastRow - 1 To 1 Step -1
If Worksheets("Jobs").Cells(i + 1, 5).Value <
Worksheets("Jobs").Cells(i, 5).Value Then
Worksheets("Jobs").Cells(i + 1, 5).Copy Destination:=Cells(j, 2)
j = j + 1
End If
Next

End Sub