VBA Copy rows with format to another sheet if cells value matches

Hi,

need some help to match and copy matched with neighbor rows (with formatting) to another sheet?

Sheet1
In Row ----> D2:P3 ------> the header
In column--> D3:D12 ----> string #1 -> matched
In Range --> I14:M14 ----> string #2 -> to be matched

If range I14:M14 matches D2:D12
Then
paste to sheet 2 the cells matched including neighboring row with the formatting ?

Example : Let say that range I14:M14 have value -> 1,3,5,7,9 <-and these values matched the values located in D3, D5, D7, D9, D11
Then
Paste the Header D2:P3
paste D3:P3 to B3 sheet2 (including the formatting)
paste D5:P5 to B4 sheet2 (including the formatting)
paste D7:P7 to B5 sheet2 (including the formatting)
paste D9:P9 to B6 sheet2 (including the formatting)
paste D11:P11 to B7 sheet2 (including the formatting)


Thanks

Appreciated!

Hi PCI,

Thanks for your fast reply, and i'm sorry that early morning i didn't Upload the sample sheet.
Right after my first post My Internet came down due to storm and heavy rain that is actually across Florida

But here is the sample attached.

Thanks

Hi PCI

Yes!, Exactly as Need it!!

The note was a compliment

Thank you so much!!!!!!!!!!!!!!!!!!!!!!!!

Hi PCI.


I test the code in a sample file and it work perfect as long the range from sheet 1 is values. (no formulas)

i copied and execute the code on the WS where values on sheet 1 are produced by formulas
(sumproduct, countif, etc,etc).

the code copy formulas instead from Sheet 1 to Sheet 2

question : What snipped (or what line) do i have to change in order to copy that values (produced by formulas) with the conditional formats to sheet 2?

Appreciate and Thank you so much

Hi PCI

I'm going to work right now, but i'll try to to attachach after work or from my work.
(the original file is Huge, over 10 mb)

Bu to give you an example this is the output displayed on Sheet 2

Output.png

Note :
I removed a line of code in order to be displayed as in the pic
but it no make no difference.
Please see the formula bar is showing that on Cell have an IF Formula

Please Login or Register  to view this content.

Thanks !

Hi PCI

I modified the code a lil bit and i'm getting the output very close as need it.

Code was pasting the values but no the Formatting, so I replaced the lines:

Please Login or Register  to view this content.

By these two lines:

Please Login or Register  to view this content.

and i disabled the first End(3)(2)

Please Login or Register  to view this content.

Thank you so much, your new code make me see what lines to change.

Thanks you, Appreciated !!

Hi PCI,

Thanks for the Info about the (3)(2).
Is working good But I been manipulating because i want to paste starting Row 3 (actually start pasting in row 2)

I change to 3,3 - 3,1 - 1,3 -1,2 - 1,3
and in 1 case it print one rows yes (next empty) or it copy doble, or each row repeated twice.
but Not starting row 3 (as i would like), But is not big deal.

Thanks!!