Mark and Copy Items from one Sheet to Another

Hi all,

I would appreciate it very much if someone helps me clean up the following code to ensure that it accomplishes the desired result.

I have attached a sample file.

The user receives the file (as attached) containing Sheet1, Sheet2 and Sheet3. Sheet1 contains the data. Sheet2 and sheet3 are blank.

The user then has to select a sample of the data as follows:

1. From the “Paid” items in column EE, determine the required number of Rsk items according to the predetermined chart

2. From the “Paid” items in column EE, select the required number of Rsk items

3. Calculate the Sample Size of the “Paid” items in column EE, using the specified Web-based Sample Size Calculator

4. Denote, in column, the Rsk items

5. Randomly selects the number of “Paid” items not already selected in as Rsk items , which is equal to the different between the Sample Size and the required number of Rsk items

6. Copy the selected Rsk selected items and the randomly selected items to another sheet

Notes:

1. The user should not be able to select more than the required number of Rsk items but should be able to cancel a selection and re-select it or a different item

2. If the user closes the file before the process is completed, do not save the file

Here is the code I use:

Please Login or Register  to view this content.

Thank you,
Gos-C