Dear all,

In an Excel spreadsheet, I have 2 sets of data composed of alpha
strings stored in Range1 and Range2. Initially the data in Range2 is
identical to Range1 but over time items are deleted from Range2.

Periodically, I want to update Range1 to reflect the changes that have
occured in Range2, in other words if an data item in Range1 does not
exist in Range2 I want to delete it from Range1.

Each range contains1000 items. Using VBA what is the fastest,smartest
way to complete the task? - my initial shot at cranking the handle
takes for ever!!

Thanks ...

Maybe:

Sub Tester()
Set MyRng1 = Range("B5:C12") 'Sample range
Set MyRng2 = Range("G5:H12") 'Sample range
MyRng1.Value = MyRng2.Value
End Sub

Not sure without knowing more of your spreadsheet layout.



"Alan" wrote in message
oups.com:

Dear all,

In an Excel spreadsheet, I have 2 sets of data composed of alpha
strings stored in Range1 and Range2. Initially the data in Range2 is
identical to Range1 but over time items are deleted from Range2.

Periodically, I want to update Range1 to reflect the changes that have
occured in Range2, in other words if an data item in Range1 does not
exist in Range2 I want to delete it from Range1.

Each range contains1000 items. Using VBA what is the fastest,smartest
way to complete the task? - my initial shot at cranking the handle
takes for ever!!

Thanks ...

Jim thanks but I am not sure that your suggestion helps.

Let's say ranges are in columns A and C and consist of:

A C
T501 T502
T502 T501
T503 .
.. .
.. .
.. .
.. .
.. .
T1000 T1000


Notice in this simple example that T503 no longer exists in the column
C range and that the data order has also changed. Without sorting any
of the data I want to determine that T503 should now be deleted from
the A range. Does this clarify my problem?

Jim May wrote:
Maybe:

Sub Tester()
Set MyRng1 = Range("B5:C12") 'Sample range
Set MyRng2 = Range("G5:H12") 'Sample range
MyRng1.Value = MyRng2.Value
End Sub

Not sure without knowing more of your spreadsheet layout.



"Alan" wrote in message
oups.com:

Dear all,

In an Excel spreadsheet, I have 2 sets of data composed of alpha
strings stored in Range1 and Range2. Initially the data in Range2 is
identical to Range1 but over time items are deleted from Range2.

Periodically, I want to update Range1 to reflect the changes that have
occured in Range2, in other words if an data item in Range1 does not
exist in Range2 I want to delete it from Range1.

Each range contains1000 items. Using VBA what is the fastest,smartest
way to complete the task? - my initial shot at cranking the handle
takes for ever!!

Thanks ...