VBA script for conditional copy, format & paste from workbook1 to workbook2

[writetoevv]

In workBook1, i have five columns (A,B,C,D,E) with data. Here, each row is a separate record & is going have unique data. sample data is given below. A B C D E 1 Q1 A1 A2 A3 A4 2 Q2 B1 B2 B3 B4 [TABLE="width: 953"] <tbody>[TR] [TD]In workBook1, when i execute a VBA script , the following needs to done sequentially.

1. First, create a new workbook (for example workbook2). and, steps 2 to 6 should be repeated for all rows of workbook 1.

2. value Q1 of workbook1 should be copied to B2 in workbook2

3. if value A1 cell is in green color, then value A1::1;; should be add/appended to I2 column in workbook2. Else, append A1::0;; to I2 column of workbook2.

4. if value A2 cell is in green color, then value A2::1;; should be appended to I2 column of workbook2. Else, append A2::0;; to I2 column of workbook2.

5 if value A3 cell is in green color, then value A3::1;; should be appended to I2 column of workbook2. Else, append A3::0;; to I2 column of workbook2.

6. if value A4 cell is in green color, then value A4::1;; should be appended to I2 column of workbook2. Else, append A4::0;; to I2 column of workbook2.

7. Save workbook2 & close workbook2. Example: for your reference, I2 Column Workbook2 should be like below. chandu::1;;Shekar::0;;Raju::0;;Gopal::0;; Venkat::0;;Gopi::1;;Stephen::0;;minda::0;; <tbody> </tbody>

<tbody>
</tbody>

[/TD]
[/TR]
</tbody>[/TABLE]

 

[mumps]

If you want to save the workbook without losing the macro, you must save it as a macro-enabled file which will change the extension to "xlsm".

 

[writetoevv]

hi mumps

yes, workbook which contain our macro is always saved as macro-enabled file.
here, our macro processing specified data of macro-enabled file & creates a new file which has been saved as an csv file. (for further processing by a tool).
only saving the file with content as csv causing issues.

 

[writetoevv]

Hi Mumps

Could you help on below

https://www.dropbox.com/s/gdbrp17cxj11tki/Problem Definition.jpg?dl=0