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

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 = 1 To LastRow
If Worksheets("Jobs").Cells(i, 5).Value < _
Worksheets("Jobs").Cells(i + 1, 5).Value Then
Worksheets("Jobs").Cells(i, 5).Copy _
Destination:=Cells(j, 2)
j = j + 1
End If
Next
End Sub

worked fine if Column E on Jobs is sorted.

--
Regards,
Tom Ogilvy

"teresa" wrote in message
...
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

Thank You Tom

"Tom Ogilvy" wrote:

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 = 1 To LastRow
If Worksheets("Jobs").Cells(i, 5).Value < _
Worksheets("Jobs").Cells(i + 1, 5).Value Then
Worksheets("Jobs").Cells(i, 5).Copy _
Destination:=Cells(j, 2)
j = j + 1
End If
Next
End Sub

worked fine if Column E on Jobs is sorted.

--
Regards,
Tom Ogilvy

"teresa" wrote in message
...
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