Hi all...I have a used range that I need to be passed into a unique collection. I have not used collections before but I was told it was the best option to avoid duplication and provide me with a unique list to work with?
At present I select the required data using the following 2 lines
The selections are then called (in parts) using
This is all do with page (duplication) and formatting
I need it to be unique so the first element needs to be copied into a collection I believe, with a second collection formed for the TotalNetCharge
At present I select the required data using the following 2 lines
Code:
Set oTAP = owb.Sheets(aHPMN(i)).UsedRange.Columns(nTAPCol)
Set oTotalNetCharge = owb.Sheets(aHPMN(i)).UsedRange.Columns(nTotalNetCharge)The selections are then called (in parts) using
Code:
oWS.Cells(7 + r + c * 47, 1) = oTAP.Cells(1 + r + 40 * (p - 1))
oWS.Cells(7 + r + c * 47, 2) = oTotalNetCharge.Cells(1 + r + 40 * (p - 1))This is all do with page (duplication) and formatting
I need it to be unique so the first element needs to be copied into a collection I believe, with a second collection formed for the TotalNetCharge
