• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen verbergen/zichtbaar met formule "ALS" en commandbutton

Status
Niet open voor verdere reacties.

Esducsafe

Gebruiker
Lid geworden
2 sep 2009
Berichten
185
Beste Helpers,
Het laatste stukje, met Excel formule "=ALS..." wil maar niet lukken. In bijgevoegd Excel bestandje heb ik e.a. toegelicht. Regel 25 (waarop subtotaal staat) moet, na VBA opdracht verbergen (lege rijen), zichtbaar blijven. Maar het vinden van de juiste formule lukt mij niet. Wie weet de oplossing?
Alvast bedankt,
Esko
 

Bijlagen

Beste Wim,
Dank voor je reactie, maar zoals je vermoede is je bijdrage niet de oplossing. Het aantal rijen in mijn voorbeeld is bepekt weergegeven! Op het echte werkblad staan ca 300 rijen verdeeld in meerdere blokken. Afhankelijk van de opbouw (aanwezige data) in de rijen moeten zij getoont danwel verborgen worden.Tot aan de rij met subtotaal (in mijn voorbeeld rij 25) doet de Commandbutton (met bijbehorende VBA opdracht) wat mijn opzet is. Maar nu nog het laatste stukje.
Esko


Esducsafe,

Ik zal het wel niet goed hebben maar bedoel je zo?
 
Hallo,

Ik heb wel een tip voor je.
Als je bijv. je formule in D25 verandert in =ALS(SOM(E25:I25)=0;"";SOM(E25:I25)) dan werkt het wel.

Met vr gr
Jack
 
Oplossing Rijen verbergen/zichtbaar met formule "ALS" en commandbutton

Beste Forumleden,
Na nog een uurtje puzzelen bijgevoegde oplossing voor "subtotaal" in rij 25 bedacht. Het gewenste subtotaal wordt nu wel weergegeven: In een extra kolom handmatig vermelden "sub" en vervolgens koppelen met waarde kolommen waarin "0" staat. Het handmatig bewerken van mijn model met genoemde oplossing lijkt dus de oplossing. Indien iemand een fraaiere oplossing weet, hou ik mij aanbevolen.
mvg
Esko
 

Bijlagen

Hallo,

Ik heb eventueel nog een oplossing met VBA
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CommandButton1.Caption = "VBR" Then
CommandButton1.Caption = "WTR"
On Error Resume Next
Dim intCounter As Integer
For intCounter = 3 To 45
       If Sheets(1).Cells(intCounter, 4).Value = 0 Then Sheets(1).Cells(intCounter, 4).EntireRow.Hidden = True
       [COLOR="Red"]If Sheets(1).Cells(intCounter, 3).Value = "Subtotaal" Then Sheets(1).Cells(intCounter, 3).EntireRow.Hidden = False[/COLOR]
Next intCounter
ElseIf CommandButton1.Caption = "WTR" Then
CommandButton1.Caption = "VBR"
On Error Resume Next
With Sheets(1)
    .[B3:B45].EntireRow.Hidden = False
    .[A3:A45].EntireRow.Hidden = False
End With
End If
Application.ScreenUpdating = True
End Sub
Met vr gr
Jack
 
Hallo Jack,
Ik zag vandaag jouw inbreng, bedankt.
Ga ermee aan de slag, bericht volgt zsm.
groet,
Esko



Hallo,

Ik heb eventueel nog een oplossing met VBA
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CommandButton1.Caption = "VBR" Then
CommandButton1.Caption = "WTR"
On Error Resume Next
Dim intCounter As Integer
For intCounter = 3 To 45
       If Sheets(1).Cells(intCounter, 4).Value = 0 Then Sheets(1).Cells(intCounter, 4).EntireRow.Hidden = True
       [COLOR="Red"]If Sheets(1).Cells(intCounter, 3).Value = "Subtotaal" Then Sheets(1).Cells(intCounter, 3).EntireRow.Hidden = False[/COLOR]
Next intCounter
ElseIf CommandButton1.Caption = "WTR" Then
CommandButton1.Caption = "VBR"
On Error Resume Next
With Sheets(1)
    .[B3:B45].EntireRow.Hidden = False
    .[A3:A45].EntireRow.Hidden = False
End With
End If
Application.ScreenUpdating = True
End Sub
Met vr gr
Jack
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan