If Condition is True, Save Data in Array, and Copy Array Data to other Worksheet

Hello-

I am new to writing Excel VBA. My goal is to start with a specific worksheet called "Hoist1", evaluate Column I called "Safety Code" beginning on row 7, and compile records with 2s and 3s (exclude the 1s). I need to save the values (all text data type) found in Columns B, A, and J in this order, to an array.

After evaluating all rows, I need to proceed to the next worksheet and do the same. There are a total of 8 consecutive worksheets.

Lastly, I need to copy the data saved in the array to the Summary worksheet into its columns A, B, and C beginning on row 7. Initially, there are two blank rows. Therefore, after the two rows have been filled, I need the VBA procedure to insert a new row after the second row.

By the way, there is a column called "Action Code" in Column J for which I need to copy data from the same eight worksheets to the Summary worksheet beginning 4 rows after the last Safety Code.

Please let me know if you have any questions or need any clarifications.

Thank you for your patience as I am a "newbie!"

Skelly

Please Login or Register  to view this content.

Hello skelly8117,

Welcome to the Forum!

Please post your workbook. It would help to see your layout and any formulas or code you have written. If your workbook contains sensitive information please redact it before posting.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

File Manger Picture