Limitación de las Funciones
Hola,
Lo que sucede es que necesito pintar una celda dependiendo una comparación que hago dentro de una función, pero al parecer las funciones no me permiten realizar esto, pero no puedo usar una macro por que necesito que esto se haga de manera automática.
Si alguien pudiera ayudarme lo agradecería.
Function Verificar(R1 As Double, R2 As Double) As Double
Dim celda As Range
Dim Fila As Integer
Dim s As String
If (R2 > R1) Then
ActiveCell.Interior.ColorIndex = 3
MsgBox "Detalle mayor que resumen"
Verificar = R2 - R1
Else
Verificar = R1 - R2
End If
End Function
Lo que sucede es que necesito pintar una celda dependiendo una comparación que hago dentro de una función, pero al parecer las funciones no me permiten realizar esto, pero no puedo usar una macro por que necesito que esto se haga de manera automática.
Si alguien pudiera ayudarme lo agradecería.
Function Verificar(R1 As Double, R2 As Double) As Double
Dim celda As Range
Dim Fila As Integer
Dim s As String
If (R2 > R1) Then
ActiveCell.Interior.ColorIndex = 3
MsgBox "Detalle mayor que resumen"
Verificar = R2 - R1
Else
Verificar = R1 - R2
End If
End Function
