can i sort rows by colour?

**nickymac** · 09-30-2008, 06:03 AM

going through a large section of data and want to select the highlighted rows and transfer them to a new sheet preferably. Have highlighted these rows green if that matters, also have a few rows red, some yellow and some with no filled background colour. I need the entire rows to move - any ideas?

**oldchippy** · 09-30-2008, 07:41 AM

Hi,

Does this link help?

http://www.bettersolutions.com/excel...O520032321.htm

**nickymac** · 09-30-2008, 09:58 AM

Originally Posted by oldchippy

Hi,

Does this link help?

http://www.bettersolutions.com/excel...O520032321.htm

Okay I have never used this VBA code before and it is not working for me!

It is exactly what I want to do, but can't get mine to work. The column I want to sort goes from G2:G1078, which are green, red or blank. Tried copying the text exactly (changing "c3" to "g2") and it doesn't work. What am I doing wrong?

Thanks in advance

**oldchippy** · 09-30-2008, 10:29 AM

Here's a link on where the code should go, follow these steps but paste in the code from the previous link

http://www.wikihow.com/Create-a-User...icrosoft-Excel

**nickymac** · 09-30-2008, 02:09 PM

Range("B1").Interior.ColorIndex
Range("B1").Font.ColorIndex

Option Explicit

Public Function ColourSorting(ByVal rgeCell As Range, _
ByVal bBackGround As Boolean, _
ByVal bText As Boolean) As Integer

If bBackGround = True Then ColourSorting = rgeCell.Interior.ColorIndex
If bText = True Then ColourSorting = rgeCell.Font.ColorIndex
If ColourSorting < 1 Then ColourSorting = 0
End Function

This is what I have, do I pu in anything before,after to make it run? When I put it in a macro it comes up with "compile error: Invalid outside procedure", and it highlights my range. What do I need to do?