Q: UDF with Interior.colorindex Help needed

  • Thread starter Thread starter MAXX
  • Start date Start date
M

MAXX

Hi
I wrote a short function "interior"

Function interior(Rng) As Integer
Application.Volatile True
interior = Rng.interior.ColorIndex
End Function

And that works if I call a function with for instance =interior(c3) an i got
color index of cell c3
but I need color index of cell that contains the function ,
something like if in C3 I put =row() I will got 3

How to do this?

Thank you for reading this especially if you are able to help me out on
this.
Maxx
 
Function MyInterior(Optional Rng As Range) As Integer

Application.Volatile

If Rng Is Nothing Then
'This line must be in single line
MyInterior = Application.ThisCell.Interior.ColorIndex
Else
'This line must be in single line
MyInterior = Rng.Interior.ColorIndex
End If

End Function

Pls confirm
 
Function MyInterior(Optional Rng As Range) As Integer

Application.Volatile

If Rng Is Nothing Then
MyInterior = Application.ThisCell.interior.ColorIndex
Else
MyInterior = Rng.interior.ColorIndex
End If

End Function
 
This is exactly what I was looking for
Thanks a lot!!!

"Javed" wrote in message

Function MyInterior(Optional Rng As Range) As Integer

Application.Volatile

If Rng Is Nothing Then
MyInterior = Application.ThisCell.interior.ColorIndex
Else
MyInterior = Rng.interior.ColorIndex
End If

End Function
 
Option Explicit
Function MyInterior(Optional Rng As Range) As Long

Application.Volatile

If Rng Is Nothing Then
MyInterior = Application.Caller.Interior.ColorIndex
Else
MyInterior = Rng.Cells(1).Interior.ColorIndex
End If

End Function
 
Back
Top