Necesito saber que me falta poner para que cuando en una celda ponga:
=CELDAS("Hoja1";"A1";"E6")
Cuando modifique el color de la celda A1, me aparezca el valor true (1) si los colores de ambas celdas son iguales;
Si los colores de ambas celdas son distintos (el color de A1 distinto de E6), me aparezca el valor de false (0);
Esto me lo hace el siguiente codigo y hasta hay bien; el problema es que necesito que se compruebe y ejectute constantemente.
He probado con bucles pero se queda como colgado, a lo mejor existe alguna funcion definida que permite que se compruebe esto todo el rato; asi cada vez que cambie de color la celda me dira si son del mismo color o no.
NOTA: no soy ningun experto de hecho no tengo ni idea, el codigo de abajo lo he ido cogiendo y probando cosas que he ido encontrando por internet. Pero me falta ese trozo de codigo que me comprueba continuamente el cambio de color de las celdas.
El codigo es el siguiente:
Global dato As Integer
Function CELDAS( numero1, numero2, numero3 ) As Boolean
Dim oCelda As Object
Dim oCelda2 As Object
dato = 2
oCelda = ThisComponent.getSheets.getByName( numero1 ).getCellRangeByName( numero3 )
oCelda2 = ThisComponent.getSheets.getByName( numero1 ).getCellRangeByName( numero2 )
if oCelda.CellBackColor = oCelda2.CellBackColor then
'MsgBox "Las celdas son del mismo color"
CELDAS = 1
else
'MsgBox "Las celdas no son del mismo color"
CELDAS = 0
End If
End Function