find data - copy to new workbook

[k1dr0ck]

hi,

im trying to:
1. find all data in column A with more than 10 characters in length,bold format and format color blue (-124910)

2.1 if found in step 1 copy the data in column A
2.2 copy also the data/amount in column D (same row)
2.3 copy also the data/amount in column B but 3 rows down (based on data in column A)

3.1 create new workbook then paste all data found
3.2 paste starting in A2 of new workbook value of steps 2.1
3.3 paste starting in B2 of new workbook value of steps 2.2
3.4 paste starting in C2 of new workbook value of steps 2.3

i think i can do the above steps but my problem is how do i store all the data found before i paste it in a new workbook?

found the code below in stackoverflow

Please Login or Register  to view this content.

[dangelor]

Possibly...

Please Login or Register  to view this content.

[k1dr0ck]

hi,

thanks for the reply

the sheet that it adds before "Sheet1" is empty
so when its copied the copy is also empty


ive attached the file

[bakerman2]

dangelor 's code works perfectly fine if you

1. Check your Font color
2. Change the offset to 4 rows instead of 3.

[k1dr0ck]

yup my bad the offset row is 4

i got the blue font color value of "-124910" thru a recorded macro and looked at the code in the module i assumed it was correct

after the suggestion from @bakerman2

i then used a code to show the value of blue font color in column A so i would know if it is really is "-124910"
the value shown was "16652306"

got it working now thanks guys!

[bakerman2]

Good for you.

[dangelor]

Glad to help!