Excel: Copy and paste data based on cell color


Hi Guys I am Looking for amacro that copies and paste data based on cell color The macro searchesrows in sheet 1 for highlighted cells (Color Index 3,4,6,8) If a cell is highlightedwith any of the above color index, it copies data from column A and B and Row 1pastes to Sheet 2 starting at A1, next blank row Please see examplebelow

[FONT=Calibri]Sheet 1[/FONT]
[CENTER][CENTER][FONT=Calibri]A[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]B[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]C[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]D[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]E[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]F[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]G[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]H[/FONT][/CENTER][/CENTER]
[CENTER][CENTER][FONT=Calibri]1[/FONT][/CENTER][/CENTER] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [RIGHT][RIGHT][FONT=Calibri]1-Mar[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]2-Mar[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]3-Mar[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]4-Mar[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]5-Mar[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]6-Mar[/FONT][/RIGHT][/RIGHT]
[CENTER][CENTER][FONT=Calibri]2[/FONT][/CENTER][/CENTER] [FONT=Calibri]Peter[/FONT] [RIGHT][RIGHT][FONT=Calibri]1[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]34[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]91[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]148[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]205[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]262[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]319[/FONT][/RIGHT][/RIGHT]
[CENTER][CENTER][FONT=Calibri]3[/FONT][/CENTER][/CENTER] [FONT=Calibri]Paul[/FONT] [RIGHT][RIGHT][FONT=Calibri]2[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]56[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]113[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]170[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]227[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]284[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]341[/FONT][/RIGHT][/RIGHT]
[CENTER][CENTER][FONT=Calibri]4[/FONT][/CENTER][/CENTER] [FONT=Calibri]Bill[/FONT] [RIGHT][RIGHT][FONT=Calibri]3[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]67[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]124[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]181[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]238[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]295[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]352[/FONT][/RIGHT][/RIGHT]
[CENTER][CENTER][FONT=Calibri]5[/FONT][/CENTER][/CENTER] [FONT=Calibri]Greg[/FONT] [RIGHT][RIGHT][FONT=Calibri]4[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]21[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]78[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]135[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]192[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]249[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]306[/FONT][/RIGHT][/RIGHT]
[CENTER][CENTER][FONT=Calibri]6[/FONT][/CENTER][/CENTER] [FONT=Calibri]Ian[/FONT] [RIGHT][RIGHT][FONT=Calibri]5[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]3[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]60[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]117[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]174[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]231[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]288[/FONT][/RIGHT][/RIGHT]
[CENTER][CENTER][FONT=Calibri]7[/FONT][/CENTER][/CENTER] [FONT=Calibri]Gary[/FONT] [RIGHT][RIGHT][FONT=Calibri]6[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]78[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]135[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]192[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]249[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]306[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]363[/FONT][/RIGHT][/RIGHT]
[CENTER][CENTER][FONT=Calibri]8[/FONT][/CENTER][/CENTER] [FONT=Calibri]Simon[/FONT] [RIGHT][RIGHT][FONT=Calibri]7[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]90[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]147[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]204[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]261[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]318[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]375[/FONT][/RIGHT][/RIGHT]
[FONT=Calibri]Sheet 2[/FONT]
[CENTER][CENTER][FONT=Calibri]A[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]B[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]C[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]D[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]E[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]F[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]G[/FONT][/CENTER][/CENTER] [CENTER][CENTER][FONT=Calibri]H[/FONT][/CENTER][/CENTER]
[CENTER][CENTER][FONT=Calibri]1[/FONT][/CENTER][/CENTER] [FONT=Calibri]Bill[/FONT] [RIGHT][RIGHT][FONT=Calibri]3[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]3-Mar[/FONT][/RIGHT][/RIGHT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]
[CENTER][CENTER][FONT=Calibri]2[/FONT][/CENTER][/CENTER] [FONT=Calibri]Greg[/FONT] [RIGHT][RIGHT][FONT=Calibri]4[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]4-Mar[/FONT][/RIGHT][/RIGHT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]
[CENTER][CENTER][FONT=Calibri]3[/FONT][/CENTER][/CENTER] [FONT=Calibri]Ian[/FONT] [RIGHT][RIGHT][FONT=Calibri]5[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]1-Mar[/FONT][/RIGHT][/RIGHT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]
[CENTER][CENTER][FONT=Calibri]4[/FONT][/CENTER][/CENTER] [FONT=Calibri]Simon[/FONT] [RIGHT][RIGHT][FONT=Calibri]7[/FONT][/RIGHT][/RIGHT] [RIGHT][RIGHT][FONT=Calibri]6-Mar[/FONT][/RIGHT][/RIGHT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]
[CENTER][CENTER][FONT=Calibri]5[/FONT][/CENTER][/CENTER] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]
[CENTER][CENTER][FONT=Calibri]6[/FONT][/CENTER][/CENTER] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]
[CENTER][CENTER][FONT=Calibri]7[/FONT][/CENTER][/CENTER] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]
[CENTER][CENTER][FONT=Calibri]8[/FONT][/CENTER][/CENTER] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT] [FONT=Calibri] [/FONT]


This question generated 14 answers. To proceed to the answers, click here.

This thread is current as of March 13, 2017.


For more resources for Microsoft Excel