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