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 ejecute automaticamente. lo unico que me falta y que no quiero es que tenga que dar a las teclas shift+Ctrl+F9; el codigo funciona porque lo he probado, lo unico es que cada vez que cambio de color tengo que pulsar a esa combinacion de teclas para que actualice y vuelva a ejecturar la funcion para que vuelva a comprobar si se ha cambiado de color en las celdas E6 y A1; aunque la celda no tenga nada y este vacia, unicamente comprobar si ha cambiado de color, nada mas. lo que yo busco es una funcion o una linea de codigo que falta añadir para que me haga ese shift+Ctrl+F9, es decir para que me actualice(ejecute) la funcion y realice la comprobacion:
comprobacion bien cuando realice la accion de pinchar en la celda que quiero y le de ha cambiar de color, o bien una comprobacion 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:
Código: Seleccionar todo
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 