[RESUELTO] Ocultar Filas segun condicion

Discute sobre la aplicación de hojas de cálculo

[RESUELTO] Ocultar Filas segun condicion

Notapor frainter » Sab Dic 09, 2017 12:56 pm

Hola buenas tardes.
Pues eso...Necesitaria una macro que me ucultase las filas completas de un rango si la primera celda esta vacia(las primeras Celdas de las filas a ocultar serian formato Texto), y otra macro para desocultarlas(Independiente), llevo tres dias buscando y no encuentro nada excepto en los filtros pero no es eso lo que busco por ser un proceso manual.
Agradeceria cualquier ayuda.
Un saludo para todos y gracias anticipadas.
Última edición por mauricio el Sab Dic 09, 2017 9:57 pm, editado 2 veces en total
Razón: Usar icono de resuelto
LibreOffice 5.4.3.2, instalado en Deepin 15.5
frainter
 
Mensajes: 17
Registrado: Mié Ene 04, 2017 6:48 pm

Re: Ocultar Filas segun condicion

Notapor FJCC-ES » Sab Dic 09, 2017 4:35 pm

Código: Seleccionar todo   Expandir vistaContraer vista
Sub Mostrar
oSheet = ThisComponent.CurrentController.ActiveSheet
oCeldas = oSheet.getCellrangeByName("C2:C10")
oEmpty = oCeldas.queryEmptyCells()
If oEmpty.Count > 0 Then
   for i = 0 to oEmpty.Count - 1
      oRango = oEmpty.getByIndex(i)
      oFilas = oRango.getRows()
      oFilas.isVisible = True
   next i
End If
   
End Sub


Sub Ocultar
oSheet = ThisComponent.CurrentController.ActiveSheet
oCeldas = oSheet.getCellrangeByName("C2:C10")
oEmpty = oCeldas.queryEmptyCells()
If oEmpty.Count > 0 Then
   for i = 0 to oEmpty.Count - 1
      oRango = oEmpty.getByIndex(i)
      oFilas = oRango.getRows()
      oFilas.isVisible = FALSE
   next i
End If
End Sub
FJCC-ES
 
Mensajes: 695
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Ocultar Filas segun condicion

Notapor frainter » Sab Dic 09, 2017 8:13 pm

Muchas Gracias FJCC-ES.
Van Perfectas las dos macros, lo dicho muchas gracias maquina.
LibreOffice 5.4.3.2, instalado en Deepin 15.5
frainter
 
Mensajes: 17
Registrado: Mié Ene 04, 2017 6:48 pm


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: MSN [Bot] y 5 invitados