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
[RESUELTO] Comparar 2 celdas en una hoja Calc
[RESUELTO] Comparar 2 celdas en una hoja Calc
Última edición por elandriu el Mar Oct 06, 2015 3:56 pm, editado 1 vez en total.
Libreoffice 4.4.5 - OSX
Re: Comparar 2 celdas en una hoja Calc
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
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
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: Comparar 2 celdas en una hoja Calc
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ó:
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]
Razón: Insertar el código de macro entre etiquetas [Code]
Libreoffice 4.4.5 - OSX
Re: Comparar 2 celdas en una hoja Calc
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:
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
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
Re: Comparar 2 celdas en una hoja Calc
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
Gracias por todo.
(No se como se hace para cerrar el hilo para darlo por resuelto)
Un saludo
Libreoffice 4.4.5 - OSX
Re: Comparar 2 celdas en una hoja Calc
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
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