VB Code Copy and Paste in different sheet

Hello:

Please refer to attached file.
Shee1 has data.
I need a VB Code to do the following.
Need to check if any cell in column B are highlighted.
If any cell is highligted then i need data from that row column L thru T and copy that data in
Sheet3 at Cell B2.
If more then 1 cell is highlighted then do the same again at the next availble cell in coulm B Sheet3

Let me know if you have any questions.
Thanks.
RM

Maybe :

Please Login or Register  to view this content.

Hi Karedog:

Superb,.....Thanks a lot.
Works great

Riz

You are welcome Riz, thanks to you too.


Regards

Please try this :

Please Login or Register  to view this content.

If this is not worked as expected, you need to upload your workbook.

Hello karedog:

I have tried both codes and still would not work.
Please refer to attached file.

Let me know if you have any questions.
Thanks.
RM

Hi Riz,

You use differect cell background color (although they both are green, but not the same color).
I have modified the code to apply the new color, also change it to use listobject.

Please Login or Register  to view this content.

You can see the code use different RGB value :
in first code (in post #2) : RGB(153, 204, 0)
in second code (in this post) : RGB(146, 208, 80)

In case you will use some other color in the future, and you want to know the RGB value of the cell background color, you can use this code :

Please Login or Register  to view this content.

First, click the cell which its background color is to be retrieved, and then run the RGB_Of_ActiveCell sub.

Hi Karedog:

Above code seems to work except small issue.
Need to copy column L to T data at B2 of Sheet3.
Also would be nice to have 1 in column A of Shee3.
Please let me know if you have any questions.
Thanks.

RM

Do you mean adding increment numbers in column A ?

Maybe :

Please Login or Register  to view this content.

Hi karedog:

Seems to work superb except in sheet3, column A needs to be 1 instead of increment.
Please modify and Please let me know if you have any questions.
Thanks.
RM

This should do :

Please Login or Register  to view this content.

Hi karedog:

Cool...works great.
Thanks a lot
RM

You are welcome, glad I can help.


Regards