separando por codigo de color

Hola juanca,

?Te importaria exponer la funcion entera por favor?

Saludos,
KL

"juanca" wrote in message
news:5a3401c525d0$ed1615c0$
Buena tarde compañeros

Tengo un macro que utilizo para poder ordenar las celdas
por colores quiero que me asesoren si estoy utilizando
bien este,

If rngR.Cells.Count <> 1 Then
nColor = "Error: más de una celda."
Exit Function
End If
nColor = rngR.Interior.ColorIndex
End Function

En la hoja utilizo la siguiente =ncolor() y me tendria que
dar un codigo por color pero me tira error

me podrian asesorar

De antemano gracias

hola, chicos !

juanca escribio en el mensaje...
... utilizo para poder ordenar las celdas por colores... me asesoren si estoy utilizando bien este
If rngR.Cells.Count <> 1 Then
nColor = "Error: más de una celda."
Exit Function
End If
nColor = rngR.Interior.ColorIndex
End Function [...]

KL escribio en el mensaje...
?Te importaria exponer la funcion entera por favor?

creo que solo le hizo falta la declaracion de la funcion, la cual [supongo] 'toma' un argumento 'rango'
[dicho sea de paso... creo que a la funcion se le asigna a un tipo de datos 'variant'] :( -?-
si necesitas 'simplificar' una funcion 'similar'...
-> asumiendo que siempre la utiizaras en la celda de la columna siguiente a la que estas 'verificando'...
en un modulo de codigo 'normal' ==Function nColor() As Integer
nColor = Application.Caller.Offset(, -1).Interior.ColorIndex
End Function

saludos,
hector.