[RESUELTO]Averiguar fila del últ regi que tenga un datos bu
Publicado: 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:
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
Código: Seleccionar todo
'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")
Les agradezco cualquier sugerencia sobre el tema.
Un saludo desde Buenos Aires, Argentina.
Chelo2