Unique Descriptions

[Uddinj1]

Hi All,

I have a list with description in Col A and figures in Col C, D, E...The
descriptions are repetitive, say Chair apeears 10 times. table appears x number
of times. I want to extract all descriptions only once. For example Chair once,
table once etc.

How can I do this using codes. I want to automate this and leave out sorting
and the use of database subtotals. I need help to extract the descriptions once
if it is in the description column. I can handle the rest. Thanks for your
help.

Regards

UJ

 

[Bob Phillips]

Look at the Data>Filter>Advanced filter and copy unique items only.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[William]

Hi Uddinj1

Sub test()
Dim r As Range
With ActiveSheet
Set r = .Range(.Range("A1"), _
..Range("A" & Rows.Count).End(xlUp))
r.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=r, _
CopyToRange:=.Range("G1"), Unique:=True
End With
End Sub

--
XL2002
Regards

William

(e-mail address removed)

| Hi All,
|
| I have a list with description in Col A and figures in Col C, D, E...The
| descriptions are repetitive, say Chair apeears 10 times. table appears x
number
| of times. I want to extract all descriptions only once. For example Chair
once,
| table once etc.
|
| How can I do this using codes. I want to automate this and leave out
sorting
| and the use of database subtotals. I need help to extract the descriptions
once
| if it is in the description column. I can handle the rest. Thanks for your
| help.
|
| Regards
|
| UJ

 

[Uddinj1]

William and Bob,

Thanks for your help. Equiped with this new knowledge, I shall win now. Thanks.

Regards

UJ