[RESUELTO] Comparar 2 celdas en una hoja Calc

[elandriu]

Hola, este es mi primer post y soy un usuario nuevo en esto de las macros en libreoffice.
Necesito saber como hacer para comparar 2 celdas con información numérica en una misma hoja y si esas celdas son iguales que muestre un mensaje sino que muestre otro.
Datos: Tengo en la celda A1 el valor: 1 y en la celda A2 el valor: 1.
Función: Si la celda A1 es igual a A2, entonces, escribir el mensaje: "ES CORRECTO", sino, escribir el mensaje: "ES INCORRECTO".
Gracias por su ayuda.
Un saludo

[mauricio]

Necesitas saber:
Como hacer referencias a rangos: https://wiki.openoffice.org/wiki/ES/Man ... ciaARangos
Como obtener el valor de una celda: https://wiki.openoffice.org/wiki/ES/Man ... landoDatos
Por ultimo, como tomar una decisión: https://wiki.openoffice.org/wiki/ES/Man ... urcaciones

Saludos

[SLV-es]

Hola Mauricio y muchas gracias por tu respuesta.
Gracias por decirme donde pescar y no darme directamente el pescado. He podido leer y logré hacerlo.
Lo hice de esta forma, aunque me gustaría saber cual sería un procedimiento más correcto que mi análisis básico.
Paso lo que hice y funcionó:

Código: Seleccionar todo   Expandir vistaContraer vista

Sub CompararDosCeldas()
'Comparo dos precios
Dim intNumero1 As Currency
Dim intNumero2 As Currency
'Referencia a la hoja y celdas
intNumero1= ThisComponent.Sheets(0).getCellRangeByNAme("A3").Value
intNumero2= ThisComponent.Sheets(0).getCellRangeByNAme("AB1").Value
' Condicion
If intNumero1 <> intNumero2 then
msgbox "CORRECTO"
else
msgbox "Revise la suma de la planilla y escríbala nuevamente"
end if
End Sub

[SLV-es]

Yo lo veo perfecto, salvo que donde dices <> debería decir =, según lo que dices en tu primer enunciado (si son iguales, decir CORRECTO).

Una variante, donde almacenamos las celdas en variables:

Código: Seleccionar todo   Expandir vistaContraer vista

Sub CompararDosCeldas()
'Comparo dos precios
Dim Celda1 As Object
Dim Celda2 As Object
'Referencia a la hoja y celdas
Celda1= ThisComponent.Sheets(0).getCellRangeByNAme("A3")
Celda2= ThisComponent.Sheets(0).getCellRangeByNAme("AB1")
' Condicion
If Celda1.Value = Celda2.Value then
   msgbox "CORRECTO"
else
   msgbox "Revise la suma de la planilla y escríbala nuevamente"
end if
End Sub

[elandriu]

Hola, muchas gracias por tu corrección.
Gracias por todo.
(No se como se hace para cerrar el hilo para darlo por resuelto)
Un saludo

[SLV-es]

Si no sabes cómo, por favor, consulta Cómo marcar como resuelto un tema