View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Keithlo Keithlo is offline
external usenet poster
 
Posts: 62
Default Comparing columns and intersection

You could use a Vlookup function in the sheet that has the items you want to
delete. For example: in cell B2 enter:
=VLOOKUP(A2,Sheet2!$A$2:$A$5,1,FALSE) and copy this down.

When the items are not found in the other sheet, you will get an error of
#N/A (provided you chose "False" for your last criteria, as in my example).
You could then sort on this and delete. If you can't sort, you could also
use VBA code to look for activecell.text = "#N/A" to recognize which cells
contain the error, and then either delete those rows, or clear the contents
of those cells.

Something like this:

Range("B2").select
Do While activecell.value < ""
If Activecell.text = "#N/A" Then
Activecell.offset(0,-1).value = "" ' or you could use
selection.entirerow.delete to delete the entire row
End if
Activecell.offset(1,0).select
Loop

Remember to save your file before you run the macro in case something goes
wrong. This is always a good idea. Or save the file as a new name to test.

Keith

"karthik" wrote:

Hi,

I want to intersect to columns (if I may use that properly). I think I
can explain this by an example

Say I have 2 worksheets

Worksheet 1 --------- column A

jan
feb
mar
summer
winter
april
may

Worksheet 2 --------- column D

can contain several instances of some elements column A or might not
contain some of them,

I want to locate this "some of them" and remove them from Column A

eg. suppose worksheet 2 -------------- column D has

april
jan
feb
winter
summer
winter
feb
jan
april

then i want to remove

mar
may

from worksheet 1 -- column A

I can probably do this with countif

but the columns are both dynamic!!

Thankx in advance

karthik