[RESUELTO] Comparar 2 celdas en una hoja Calc

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
elandriu
Mensajes: 26
Registrado: Lun Oct 05, 2015 3:55 am

[RESUELTO] Comparar 2 celdas en una hoja Calc

Mensaje por 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
Última edición por elandriu el Mar Oct 06, 2015 3:56 pm, editado 1 vez en total.
Libreoffice 4.4.5 - OSX
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Comparar 2 celdas en una hoja Calc

Mensaje por 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
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
elandriu
Mensajes: 26
Registrado: Lun Oct 05, 2015 3:55 am

Re: Comparar 2 celdas en una hoja Calc

Mensaje por elandriu »

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

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
Última edición por SLV-es el Mar Oct 06, 2015 3:18 pm, editado 1 vez en total.
Razón: Insertar el código de macro entre etiquetas [Code]
Libreoffice 4.4.5 - OSX
Avatar de Usuario
SLV-es
Mensajes: 4894
Registrado: Jue Ago 26, 2010 1:25 am
Ubicación: España
Contactar:

Re: Comparar 2 celdas en una hoja Calc

Mensaje por 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

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
+info en la web "no oficial" dedicada a OpenOffice en Español
AOO 4.1.2 y LibO 4.4.6 en W10 y en Lliurex
No respondo mensajes privados sobre AOO, por favor, utiliza el foro para tus preguntas
elandriu
Mensajes: 26
Registrado: Lun Oct 05, 2015 3:55 am

Re: Comparar 2 celdas en una hoja Calc

Mensaje por 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
Libreoffice 4.4.5 - OSX
Avatar de Usuario
SLV-es
Mensajes: 4894
Registrado: Jue Ago 26, 2010 1:25 am
Ubicación: España
Contactar:

Re: Comparar 2 celdas en una hoja Calc

Mensaje por SLV-es »

Si no sabes cómo, por favor, consulta Cómo marcar como resuelto un tema
+info en la web "no oficial" dedicada a OpenOffice en Español
AOO 4.1.2 y LibO 4.4.6 en W10 y en Lliurex
No respondo mensajes privados sobre AOO, por favor, utiliza el foro para tus preguntas
Responder