Find specific value in a cell, select the cell and copy all cells beneath

**Mothman** · 09-19-2010, 06:29 PM

I have been trying to get this to work. I thought I was going in the right direction, but it's not working for me.

I want the macro to find a cell containing a specific text. Once that cell is found, I want all cells beneath it that contain a non blank to be copied.

Any help would be appreciated.

Please Login or Register  to view this content.

**TMS** · 09-19-2010, 07:18 PM

OK, this works

Please Login or Register  to view this content.

Or, without all the selecting and swapping sheets

Please Login or Register  to view this content.

Regards

**Mothman** · 09-19-2010, 11:25 PM

Cool I was pretty close, just had one extra thing on there that was preventing it from working. Thanks for the help again!

**TMS** · 09-20-2010, 03:26 AM

Two things ... ;-)

MatchCase:=False, SearchFormat:=False).Activate

Range(MyRange, Range(MyRange).End(xlDown)).Copy

Regards

Find specific value in a cell, select the cell and copy all cells beneath

LinkBack

Thread Tools

Rate This Thread

Display

Find specific value in a cell, select the cell and copy all cells beneath

Re: Find specific value in a cell, select the cell and copy all cells beneath

Re: Find specific value in a cell, select the cell and copy all cells beneath

Re: Find specific value in a cell, select the cell and copy all cells beneath

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions