Ordenar por color en Excel

Hasta antes de Excel 2007, había la necesidad de ordenar nuestros datos, pero color. La labor no era nada fácil, por que había que programar una macro o una función para hacerla.
Ordenar por color en Excel 2003
-
Primeramente tenemos nuestra tabla con los datos, y una columna, por lo regular con color.
-
Entramos al editor de Visual Basic para aplicaciones con la combinación de telclas {Alt + F11}.
-
Insertamos un módulo nuevo en nuestro proyecto (archivo).
-
Pegamos el siguiente código:
Function ObtenerColor(celda As Range) ObtenerColor = celda.Interior.ColorIndex 'celda es nuestra parámetro, que es un objeto Range 'Interior es una propiedad del objeto Range 'ColorIndex es una propiedad de Interior que nos devuelve el índice de color End Function
-
En nuestro archivo de Excel, ponemos la fórmula =ObtenerColor(C4).
-
Y nos mostrará el índice de color que hayamos elegido.
-
Entramos en menú Datos > Ordenar, y ordenamos por la columa donde están los números de índice.
Ordenar por color en Excel 2007
Irónicamente en la versión 2007 y adelante, Microsoft escuchó a los usuarios e hizo esta labor más sencilla:
-
Elegimos nuestra tabla.
-
Nos vamos a la pestaña de Datos > Ordenar.
-
En el cuadro de diálogo que abre elegimos la columna a ordenar, Color de celda y Aceptar.
Imagen del ejemplo en Excel 2007
La formula de concatenar me arroja error en la primera fila?, me podrias decir que estoy haciendo mal?
Function EXCELeINFOCONCATENAR(rango As Range) As String
Dim t As String
Application.Volatile
For Each celda In rango
t = t & ” ” & celda.Value
Next celda
EXCELeINFOCONCATENAR = Trim(t)
End Function
End Sub
El código de la función debe ir en un módulo de vba, para que después la uses como función en una celda. Así lo realizas ??
Facil,
Quita el End Sub del final