Referencias de Celdas en Macros

Un Saludo Afectuoso,
Estoy desarrollando una función personalizada (COLOR(ref)) para obtener el color de una celda x.
Ej.: Si me ubico en la celda H4 e inserto la fórmula =Color(D4) (D4 sin comillas) deseo
que me devuelva el Número del color que tiene la celda D4, el problema es que en
el código necesito recibir la referencia en formato de texto, y a menos que no la
mande con las comillas no lo he podido hacer, agradecería mucho si me indican
como hacerlo.
         Gracias!
Respuesta
1
Pues en realidad sin ver tu función es un poco complicado ayudarte, pero, ¿intentaste declarar el resultado comoSTRING?
Abraham
Gracias Avelenciape, lo que pasa es que no recibo el parámetro (ref) en la función.
Pero si en la Hoja lo mando entre comillas, el parámetro llega, pero, si lo mando sin
las comillas no llega.
Function COLOR(ref) As Variant
      COLOR = Range(ref).Interior.ColorIndex
End Function
Ya, entiendo, intenta con algo así:
Function Color(rango As range) As String
Dim Color1 As Integer
Application.Volatile True
Color1 = rango.Interior.ColorIndex
Color = Color1
End Function
Abraham
Excelente! Abraham, es exactamente lo que andaba buscando
no conozco la función -.volatile, buscaré sobre la misma, pero me
resolviste el problema, de nuevo, gracias.
Camboy.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas