Digi
alle pijlers
Excel, witte rijen automatisch verbergen/tevoorschijn halen
dinsdag 20 april 2010 om 22:14
Ik ben op zoek naar een code of een formule die van een heel werkblad de rijen verbergt waar niets in staat.
Echter, zodra er iets in komt, omdat op een ander werkblad iets ingetypt word, moet de rij weer tevoorschijn komen...
Nu dacht ik dat te kunnen oplossen met een filter. Een kolom creeren waarin je met behulp van een ALS() bepaalt of er waarden in deze rij staatn, zo ja 1, anders 0. En dan een filter plaatsen op de gecreeerde kolom.
Dit werk gedeeltelijk, want het filter moet na wijzigingen weer namelijk weer gerefresht worden.
Nu zei iemand me dit:
Omdat de wijzigingen in het filter veroorzaakt worden door invoer in andere werkbladen kun je het refreshen van het filter koppelen aan het openen/activeren van het sheet met filter.
Klinkt goed en precies wat ik nog zoek, maar ik heb geen idee hoe ik dit voor elkaar kan krijgen?
Iemand anders wel? Of een ander idee hoe ik gemakkelijk de witte rijen kan verbergen/tevoorschijn kan halen indien er wel gegevens inkomen?
Alvast bedankt!
Echter, zodra er iets in komt, omdat op een ander werkblad iets ingetypt word, moet de rij weer tevoorschijn komen...
Nu dacht ik dat te kunnen oplossen met een filter. Een kolom creeren waarin je met behulp van een ALS() bepaalt of er waarden in deze rij staatn, zo ja 1, anders 0. En dan een filter plaatsen op de gecreeerde kolom.
Dit werk gedeeltelijk, want het filter moet na wijzigingen weer namelijk weer gerefresht worden.
Nu zei iemand me dit:
Omdat de wijzigingen in het filter veroorzaakt worden door invoer in andere werkbladen kun je het refreshen van het filter koppelen aan het openen/activeren van het sheet met filter.
Klinkt goed en precies wat ik nog zoek, maar ik heb geen idee hoe ik dit voor elkaar kan krijgen?
Iemand anders wel? Of een ander idee hoe ik gemakkelijk de witte rijen kan verbergen/tevoorschijn kan halen indien er wel gegevens inkomen?
Alvast bedankt!
dinsdag 20 april 2010 om 23:24
Gegevens weergeven in een draaitabel.
Zet onderstaande code neer bij ThisWorkbook.
Developper->Visual Basic, View-> Object Browser, ThisWorkbook (dubbelklikken)
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub
Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub
Zet onderstaande code neer bij ThisWorkbook.
Developper->Visual Basic, View-> Object Browser, ThisWorkbook (dubbelklikken)
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub
Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub
