comparing 2 ranges.....problem

**welchs101** · 12-29-2008, 11:36 AM

hi. I am trying to compare 2 ranges using the following code and i can do

For x = 1 To Currentlist.Count
    For z = 2 To Newlist.Count
    If Workbooks("working_file.xlsm").Worksheets("compare_test").Range("a" & x) = _
                                Workbooks("working_file.xlsm").Worksheets("compare_test").Range("e" & z) Then matchfound = True
    Next z
    If Not matchfound Then droparray(x) = Workbooks("working_file.xlsm").Worksheets("compare_test").Range("a" & x)
Next x

The ranges are currentlist and newlist. the problem is i have to use "workbooks........................" to actually reference each individual component of the range (see above). Is there another way?

**welchs101** · 12-29-2008, 12:59 PM

to access individual elements in a range you use the ".cells"

array_cntr = 1
For x = 1 To Currentlist.Count
    cntr = 1
    mtch = False
    Do
        If Currentlist.Cells(x, 1) = Newlist.Cells(cntr, 1) Then
            mtch = True
        Else: cntr = cntr + 1
        End If
        If mtch Or (cntr > Newlist.Count) Then Exit Do
    Loop
    If Not mtch Then
    ReDim Preserve droparray(array_cntr)
    droparray(array_cntr) = Currentlist.Cells(x, 1)
    array_cntr = array_cntr + 1
    End If
Next x

comparing 2 ranges.....problem

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

comparing 2 ranges.....problem

i think i figured it out finally

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions