Copying and Pasting Unique Values

This perhaps, also utilising the Dictionary object.

Please Login or Register  to view this content.

Hi,

This code works perfectly fine. But here is another question which might sound really stupid... I couldn't understand what this code is really dooing.. So if I have to do the same thing ith a different column... What changes do I need to make.

For example : Instead of Sheet1.Range"A2" .. I want to do the same thing with the data from Sheet xyz:Range C.. When I go into the code and replace range from A2 with C2:C35 . I get errors in 6th code line.

Thanks

Which error, and please specify which line you mean. Better still post your adapted code. The code transfers the range to an array which is a bit quicker (though with c30 cells negligible difference) and then adds to a dictionary if it is not already there, not #NA etc, and then outputs everything in the dictionary to the other sheet.

Please find the adapted code as follows.

The data I am copying is strictly limited to Calculation Sheet (C2:C35)
hiddencalculation is just replacement to Interim Calculations.
And the Output has to go to IcingOPsheet A35:A47.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Hi Stephen,

Thanks for making it simpler. However, I am still getting the type mismatch error. Please find the attached screenshots and the spreadsheet.

Thanks in Advance.

Himanshu

Yes, it didn't like the errors in the formulae but this seems to work.

Please Login or Register  to view this content.

Awesome...

This is perfect.

Thanks a lot buddy

Stephen,

I started getting the "type Mismatch" error again and after close observation, , I realize that I was getting that error only when there was nothing to sort. ie (n=0).

I fixed it by adding a simple if statement.