[Risolto] Macro per visualizzare celle non vuote

[finoalmattino]

il mio problema e' far accettare la funzione del filtro automatico in una macro. ...???

[patel]

ottima spiegazione del problema, bravo !

[charlie]

Se vuoi aiuto, è necessario che spieghi meglio cosa desideri, a cominciare dal titolo. Se poi hai un file da allegare, sia pur popolato con dati fittizi, tanto meglio. Grazie, a risentici.

[finoalmattino]

ottimo ! il foglio 1 e' il problema. il foglio 1.2 la soluzione in mezzo (filtro automatico..non vuote..) ci vo una macro..

[charlie]

Ciao, il titolo è stato modificato per essere più comprensibile.
Tu hai bisogno di una macro che in una colonna di Calc, visualizzi solo le celle non vuote, come fa un filtro standard.

[patel]

Codice: Seleziona tutto

Sub Rimuovirighevuote()
oSheet = ThisComponent.Sheets(0)
c = oSheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow   
For r = 0 To Lastrow
   If oSheet.getCellByPosition(0, r).value = EMPTY  Then
      oSheet.getRows.removeByIndex(r, 1)         
   End If
Next
End Sub

[finoalmattino]

no patel spariscono anche delle lettere..

[patel]

evidentemente non ho capito il problema

[Gaetanopr]

La prima nasconde le righe vuote la seconda le rende nuovamete visibili

Codice: Seleziona tutto

Sub Nascondi 
dim oRanges,oRange 
Dim oEmptyRanges
Dim oEmptyRange  
oSheet = ThisComponent.Sheets(0)
c = oSheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow   
oRange = ThisComponent.Sheets(0).GetCellRangeByName("A1:A" & LastRow) 
oEmptyRanges = oRange.queryEmptyCells ( ) 

   For Each oEmptyRange in oEmptyRanges 
     oEmptyRange.Rows.IsVisible = False 
   Next 
       
End Sub 

Sub Mostra
Dim oSheet As Object,i As Long
oSheet = ThisComponent.getSheets().getByIndex(0)
c = oSheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow  
 
   For i = 0 To LastRow
    oSheet.Rows(i).IsVisible = True
   Next i 

End sub

[finoalmattino]

SEMBRA CHE FUNZIONI

[patel]

bel lavoro Gaetano

[Gaetanopr]

grazie patel