IF Statements in VB

[rwrussell]

Trying to pull info out of an excel database and copy to a new spreadsheet skipping over the duplicates in exel the statement would be

=If(activecell = active cell(-1,0), skip down one cell, run imbeded macro to copy row to other sheet)
Then loop

What is the correct VB way of structuring this IF/Then statement

Thanks

 

[Russell Hauf]

On 2002-11-07 17:34, rwrussell wrote:
Trying to pull info out of an excel database and copy to a new spreadsheet skipping over the duplicates in exel the statement would be

=If(activecell = active cell(-1,0), skip down one cell, run imbeded macro to copy row to other sheet)
Then loop

What is the correct VB way of structuring this IF/Then statement

Thanks

I guess it would depend on how many columns you have, and do you need to make sure that every column in the row is a duplicate. I also assume that you have sorted your data appropriately.

Have you tried the Advanced Filter (Data-Filter-Advanced Filer)? You can get unique values only, and you can copy to another location. Unfortunately, you cannot copy to another sheet, let alone another workbook. But you could copy to another location on the current sheet, then cut and paste to the other workbook (you could automate this in VBA also - try recording it then changing appropriately).

If you really want to go row by row, let us know how many columns you are comparing for duplicates, and I (or someone else) can help you.

If I'm not being clear about the number of columns, consider the following example (each column is separated by a space):

AA 12 Bobby
AA 12 Cindy
AB 34 Sally
AB 34 Sally
AC 55 Fred

in the above example, there's really only 1 line that is duplicated...

-rh