Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » StarOffice » Agregar Filtros en startbasic

StarOffice - Agregar Filtros en startbasic

Volver
Nuevo Tema
<<>>
 
Vista:

Agregar Filtros en startbasic

Publicado por Maria (2 intervenciones) el 05/09/2008 18:24:40
Tengo el siguiente código que me pasaron para agregar un filtro lo que en VB/Office seria Selection.AutoFilter, sin embargo no comprendo porque cuando lo ejecuto el rango de celdas que se le asigno lo quita y solo me aparece de la fila 501 en adelante. Alguien me podria explicar porque hace esto.

1
2
3
4
5
6
7
8
9
10
oRangoCeldas = oHojaRC.getCellRangeByName("$A$2:$U$74")
 
oCamposFiltro(0).Field = 1
oCamposFiltro(0).IsNumeric = False
oCamposFiltro(0).Operator = com.sun.star.sheet.FilterOperator.EQUAL
oCamposFiltro(0).StringValue = "Reporte"
 
oDescFiltro = oRangoCeldas.createFilterDescriptor (True)
oDescFiltro.setFilterFields (oCamposFiltro())
oRangoCeldas.filter (oDescFiltro)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Agregar Filtros en startbasic

Publicado por Maria (2 intervenciones) el 18/09/2008 20:48:52
Saludos, me surgio una nueva duda en mi hoja de calculo quiero poner dos filtros, es decir filtros predeterminados? En el siguiente codigo estoy poniendo dos filtros pero los hace por separado, como puedo hacer que se concatenen o que sean como filtros predeterminados?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
oRangoCeldas = oHojaRC.getCellRangeByName("$A$2:$U$100")
'--------------------
oCamposFiltro(0).Field = 13

oCamposFiltro(0).IsNumeric = False

oCamposFiltro(0).Operator = com.sun.star.sheet.FilterOperator.EQUAL

oCamposFiltro(0).StringValue = "Cancelado"



oDescFiltro = oRangoCeldas.createFilterDescriptor (True)

oDescFiltro.ContainsHeader=true

oDescFiltro.setFilterFields (oCamposFiltro())

oRangoCeldas.filter (oDescFiltro)

'--------------------
oCamposFiltro(0).Field = 4
oCamposFiltro(0).IsNumeric = False
oCamposFiltro(0).Operator = com.sun.star.sheet.FilterOperator.EQUAL
oCamposFiltro(0).StringValue = "Martes"
 
oDescFiltro = oRangoCeldas.createFilterDescriptor (True)
oDescFiltro.ContainsHeader=true
oDescFiltro.setFilterFields (oCamposFiltro())
oRangoCeldas.filter (oDescFiltro)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar