[RESUELTO]Averiguar fila del últ regi que tenga un datos bu

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO]Averiguar fila del últ regi que tenga un datos bu

Notapor Chelo2 » Jue Oct 26, 2017 9:14 pm

A partir del código que pego seguidamente puedo averiguar el N° de fila que tiene el registro que contiene un dato buscado:

Código: Seleccionar todo   Expandir vistaContraer vista
'BUSCA EL CUIT EN LA BASE DE Cambios
            oHoja= Libro_CambJuris.Sheets.getByName("Hoja1")
            UltFila2= UltimaFila(oHoja)
            'MsgBox "La fila es  "&UltFila
            oBuscarEn = oHoja.getCellRangeByName( "B1:B"+UltFila2)

            'Creamos el descriptor de busqueda
            oSD = oHoja.createSearchDescriptor
            'Buscamos por valores
            oSD.searchType = 1
            'Establecemos lo que estamos buscando
            oSD.setSearchString(oCUIT)
            'Realizamos la busqueda de TODAS las coincidencias
            oEncontrado = oBuscarEn.findAll( oSD )
            
            'Si no hay coincidencias oEncontrado = Null
            If Not IsNull( oEncontrado ) Then
               'Si encuentra algo lo seleccionamos
               Libro_CambJuris.getCurrentController.select( oEncontrado )
            Else
               Libro_CambJuris.dispose()
               MsgBox "No se localizó la CUIT. El proceso omitirá el registro de la salida en la base.", 16, "ATENCIÓN"   
               Exit Sub
            End If
            
            oSel = Libro_CambJuris.getCurrentSelection()
            fil = oSel.getCellAddress.Row
            fil= fil + 1

            oHoja.getCellRangeByName( "J"+fil ).SetString ("CONCL S/LEG")
            oHoja.getCellRangeByName( "L"+fil ).SetString (Format( Now, "dd/MM/YYYY" )'(oFECHA)
            oHoja.getCellRangeByName( "P"+fil ).SetString ("NO HAY ANTECEDENTES")


A partir de ese dato puedo completar con valores otros campos del mismo registro. Todo funciona perfecto mientras exista un solo registro encontrado. El problema es que me da error cuando hay más de un registro. Yo quisiera que en este caso, poder seleccionar el último registro encontrado. En mi absoluta ignorancia, se me ocurre que quizá la clave esté en la sentencia "oEncontrado = oBuscarEn.findAll( oSD )", donde no sea encontrar todos sino el último, pero es solo una ocurrencia.

Les agradezco cualquier sugerencia sobre el tema.

Un saludo desde Buenos Aires, Argentina.

Chelo2
Última edición por Chelo2 el Vie Oct 27, 2017 5:24 pm, editado 2 veces en total
OpenOffice 4.1.3 en Windows 7
Chelo2
 
Mensajes: 100
Registrado: Mié Ago 14, 2013 4:25 am
Ubicación: Lomas de Zamora, Buenos Aires, Argentina

Re: Averiguar fila del últ registro que tenga un datos busca

Notapor fornelasa » Jue Oct 26, 2017 11:19 pm

Averiguar fila del últ registro que tenga un datos buscado
Les agradezco cualquier sugerencia sobre el tema.

Si hubiera entendido bien, ojala podamos adaptar este archivo/macro para el rango B1:B20, por ejemplo.

Saludos, Federico.
Adjuntos
UltimaFila.ods
Ultima fila
(11.95 KiB) 46 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3223
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

[RESUELTO]Averiguar fila del últ regi que tenga un datos bus

Notapor Chelo2 » Vie Oct 27, 2017 12:39 am

Siiiii... excelente Federico!!!

Además cómo ayuda verlo en un ejemplo, sobre todo a los que no tenemos mucha idea de programación y solo hacemos esto de corajudos nomás!!

Muchísimas gracias!!!

Un saludo desde Buenos Aires.

Chelo2
OpenOffice 4.1.3 en Windows 7
Chelo2
 
Mensajes: 100
Registrado: Mié Ago 14, 2013 4:25 am
Ubicación: Lomas de Zamora, Buenos Aires, Argentina

Re: Averiguar fila del últ registro que tenga un datos busca

Notapor mauricio » Vie Oct 27, 2017 12:52 am

Hola...

Recuerda, hay que marcar el primer tema del hilo como resuelto, no el ultimo, el primero es el que se ve en el listado del foro.

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5873
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 1 invitado