I think I'd use a separate cell and put that same conditional formatting in that
cell--testing the color of a cell based on conditional formatting is usually
frought with problems.

It's lots easier to just duplicate the conditional formatting rules into a
helper cell (or column of cells). (You could hide this column if you don't want
to see it.)

Then you could just use Data|Filter|autofilter. Show the values that = 1 and
copy|paste to the new sheet.

Record a macro if you need to have it more mechanized.



ltong wrote:

Hi Dave,

Advance Filter is a very useful technique in excel and it works in
normal situation to get a list of unique entries.

However, it seems that it doesn't work in my situation, particularly
its conditions fails : -
the database contains blank rows and this blank rows can not be
eliminated as they are part of the database ( e.g. in the accounting
terms where there is a value in debit entry, say cell E2
correspondingly there is no value in credit entry, say cell F2 )

Further, the result needs to get a list of entries excluding
duplicated value and it only extracts and transfers the entire rows
from range A1:H44 for any value not being highlighted by the duplicate
value function " =COUNTIF($H$2:$H$44,H2)1 and its font is to be bold
with yellow color "in column H, which contains the value 4003660,
4004045000, 4001600 in column H for the following example to a new
worksheet under the same workbook : -

1) 4003660
2) 338845000
3) 338845000
4) 4004045000
5) 33881300
6) 4001600
7) 33881300

In this case, there are a few of non-highlighted value in cell H1, H4
& H6 as in the above example and it will extract and transfer the
entire row by row, range from A1 to H1, A4 to H4 and A6 to H6.

After the transfer, it will automatically eliminate the blank rows in
range A1 to H1, A4 to H4 and A6 to H6.

Please advise on how to deal with this situation. Thanks

Regards
Lenard

Dave Peterson wrote in message ...
And Chip Pearson has lots of techniques at:
http://www.cpearson.com/excel/duplicat.htm

(some worksheet formulas, some macros)

Dave Peterson wrote:

If you're trying to get a list of unique entries, take a look at Debra
Dalgleish's site:
http://www.contextures.com/xladvfilter01.html#FilterUR

The copy|Paste the visible rows to the other sheet.

ltong wrote:

Hi Dave,

Thanks again, it works pretty well.

I've another guestion....

After the substitute function is used, I'd like to search the entire
worksheet, row by row where there is no color being highlighted on the
cell ( ie no duplicated value ), it will extract the whole row ( i.e.
row without color ) from columns A to G and transfer to a new
worksheet under the same workbook.

This will continue to extract row by row until it finds that there is
no data on the highlighted cell from the entire worksheet.

How to device an excel function or excel VBA to solve the above
problem ?

Thanks in advance

Regards
Lenard

Dave Peterson wrote in message ...
Excel allows you to specify wild cards in Edit|Find.

Excel supports these two wild cards:

* = any set of characters
? = any one character

To look/replace an asterisk, you use ~*
(tilde is to the left of the 1/! key on my USA keyboard)

to replace a question mark, you use ~?

And since you're using the tilde (~) as an "escape" character, you have to use
this:
~~ (doubled up) to find/replace the single ~ (tilde).

So in your case, you didn't do anything wrong--just got hit by something that I
didn't expect.

myBadChars = Array("-", "[", "]", "{", "}", "(", ")", "~*", " ")

should do it.

==
Pretty neat way to empty cells, though, huh??? <vbg



ltong wrote:

Hi Dave,

Thanks, it works ......but when I add new characters to that array in
the cleanEmUp macro, e.g. myBadChars = Array("-", "[", "]", "{", "}",
"(", ")","*"," "), and run the macro on the selected cell contains a
numbering as I-03-02 14*(P-PG), it turns out as blank cell ?? Did I
miss out anything ?

Sorry, I'm still learning excel VBA.

Regards
Lenard

Dave Peterson wrote in message ...
Add as many characters to that array as you need. I stopped after just a few.

Dave Peterson wrote:

You could nest a bunch of substitutes together like:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"-",""),"[",""),"]","")
(but excel has a limit of 7 nested functions)

Maybe a macro would work better:

Option Explicit
Sub cleanEmUp()

Dim myBadChars As Variant
Dim iCtr As Long

myBadChars = Array("-", "[", "]", "{", "}", "(", ")")

For iCtr = LBound(myBadChars) To UBound(myBadChars)
Selection.Replace What:=myBadChars(iCtr), _
Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False
Next iCtr

End Sub

Select your cells and run this macro.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

ltong wrote:

(ltong) wrote in message . com...
"Mike" wrote in message ...
If you can do it, insert a column (could be hidden) and
eliminate the spaces in the Ref No and concatenate with
the amount. To eliminate the spaces, use the substitue
function. If the first BOT entry is in cell B2 and the
first amount in C2, in D2 enter =substitute(B2," ","")
&C2. In effect you've made a unique key Excel can now
check against. Now use that unique key in a conditional
formatting to highlight those instances where they are the
same.

-----Original Message-----
Hi,

Can anyone pls help me to solve the below
question?

I've 2 columns typed with the respective header:Ref No
(Column C) and
Amount ( Column H).
I 'd like to check whether Ref No in column C
corresponding with the
amount in column H are duplicate in these columns. If
there is
duplicate then highlight the cell with colors.
The COUNTIF function is working fine for the above
situation but it
fails to detect the following values, particularly with
blank space in
between the value in Ref No column although they are
considered the
same number or duplicate :-

Ref No Amount
A BOT 987415 $250.00
B BOT987415 $250.00
C BOT 987415 $250.00

Is there anyway that can help to solve the above either
excel VBA or
excel function? ( ie to give the same solution as COUNTIF
function )

Thanks in advance.
Rgds
Lenard,
.


Hi Mike,

Thanks, it solves the question

Regards
Lenard

Hi,

I've another questions as follows : -

A)Is there anyway to remove "( )", "[ ]" or "{ }" from the numbering
in a cell ?, ie the result will be I0307981PS,I04L04513,I0220105S for
the following examples

It seems that SUBSTITUTE function fails to solve this question, ie
=SUBSTITUTE(A2,"()","")

E.g.

1) I03-07981(P-S)
2) I04-[L]04513
3) I02-201{05}S

B) How to extract a numbering as I030214PPG without the quotation
marks from I-03-02 14*(P-PG) ? Can SUBSTITUTE function solve this
question as well ?

Please helps

Thanks
Regards
Lenard

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson