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

[Chelo2]

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

'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

[fornelasa]

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.

[Chelo2]

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

[mauricio]

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