rijen niet afdrukken bij bepaalde waarde

[vjdb]

Mijn vraag is de volgende:
Is het mogelijk om rijen waar een bepaalde waarde in voorkomt bijv. "0" niet af te drukken. Het gevolg is dan dus dat alleen de rijen waar daadwerkelijk de info in staat afgedrukt worden? Ik heb al een knop ingevoegd waardoor het formuleir geprint wordt. Zie bijlage!

 

[Wigi]

Ik heb al een knop ingevoegd waardoor het formuleir geprint wordt.

Die moet je toch vergeten zijn denk ik...

 

[vjdb]

Hier issie dan!

 

[vjdb]

Heeft niemand een idee?

 

[Wigi]

Heeft niemand een idee?

Geduld is een mooie deugd...

Je vraag is amper 2 uur geleden gepost. Beetje redelijkheid is wel mogelijk, niet?

 

[vjdb]

Geduld is een mooie deugd...

Je vraag is nog geen 2 uur geleden gepost. Beetje redelijkheid is wel mogelijk, niet?

Tuurlijk ik was alleen verwend met de snelle antwoorden

 

[Spiderman]

Hoi vjdb,

Hier dan

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim r As Range
    For Each r In Range("B12:B57") [COLOR="Green"]' Dit is de range waar de nullen kunnen staan[/COLOR]
        If r.Value = "0" Then
            r.EntireRow.Hidden = True [COLOR="green"]' Verstoppen van de rij[/COLOR]
        Else
            r.EntireRow.Hidden = False [COLOR="green"]' Zichtbaar maken van de rij[/COLOR]
        End If
    Next

    Rows("1:64").Select [COLOR="green"]' Het gedeelte dat geprint moet worden selecteren[/COLOR]
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Cells.EntireRow.Hidden = False ' Alle rijen weer zichtbaar maken
    Application.ScreenUpdating = True
    Range("F64").Select [COLOR="Green"]' De cell onder de knop selecteren (gewoon voor het oog)[/COLOR]End Sub

 

[Wigi]

Arno

Ik denk dat een autofilter hier het beste zou geweest zijn, maar een loop kan ook is simpeler qua code.


0 is hier geen string, dus gewoon

If r.Value = [B]0[/B] Then
            r.EntireRow.Hidden = True ' Verstoppen van de rij
        Else
            r.EntireRow.Hidden = False ' Zichtbaar maken van de rij
End If

Nu we toch bezig zijn :

r.EntireRow.Hidden = (r.Value = [B]0[/B])

ipv bovenstaande code. Nog korter:

r.EntireRow.Hidden = (r = [B]0[/B])

Wigi

 

[vjdb]

Jongens jullie zijn geweldig, dit is precies wat ik zoek. Het moiste is nog dat ik ondanks mijn zeer geringe kennis van VBA het toch nog een beetje begrijp dankzij de uitleg erbij. Grote Klasse!:thumb:

 

[vjdb]

Jongens jullie zijn geweldig, dit is precies wat ik zoek. Het moiste is nog dat ik ondanks mijn zeer geringe kennis van VBA het toch nog een beetje begrijp dankzij de uitleg erbij. Grote Klasse!:thumb:

Ik heb nog wel een vraagje: is het ook mogelijk om bepaalde rijen (bijv. de rij met "totaal machines") wel af te drukken? Ik heb dit nu als volgt opgelost:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim r As Range
    For Each r In Range("B12:B28") ' Dit is de range waar de nullen kunnen staan
        If r.Value = "0" Then
            r.EntireRow.Hidden = True ' Verstoppen van de rij
        Else
            r.EntireRow.Hidden = False ' Zichtbaar maken van de rij
        End If
    Next
    For Each r In Range("B31:B57") ' Dit is de range waar de nullen kunnen staan
        If r.Value = "0" Then
            r.EntireRow.Hidden = True ' Verstoppen van de rij
        Else
            r.EntireRow.Hidden = False ' Zichtbaar maken van de rij
        End If
    Next
    Rows("1:64").Select ' Het gedeelte dat geprint moet worden selecteren
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Cells.EntireRow.Hidden = False ' Alle rijen weer zichtbaar maken
    Application.ScreenUpdating = True
    Range("F64").Select ' De cell onder de knop selecteren (gewoon voor het oog)
    End Sub

Maar wellicht wordt de code heirdoor langzaam?

 

[Wigi]

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim r As Range
    For Each r In Range("B12:B28,B31:B57") ' Dit is de range waar de nullen kunnen staan
        r.EntireRow.Hidden = (r.Value = 0)
    Next
    Rows("1:64").Select ' Het gedeelte dat geprint moet worden selecteren
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Cells.EntireRow.Hidden = False ' Alle rijen weer zichtbaar maken
    Application.ScreenUpdating = True
    Range("F64").Select ' De cell onder de knop selecteren (gewoon voor het oog)
    End Sub

Wigi

 

[vjdb]

Er komt nog een vraagje bij: De formule werkt niet wanneer ik het blad beveilig, is dit nog te ondervangen?

 

[Wigi]

Er komt nog een vraagje bij: De formule werkt niet wanneer ik het blad beveilig, is dit nog te ondervangen?

Als je bij beveiliging toelaat dat rijen verborgen worden?

 

[vjdb]

Als je bij beveiliging toelaat dat rijen verborgen worden?

Ik heb de optie "rijen opmaken" aangevinkt. Het gevolg is dat het formuliertje nu weer perfect werkt nogmaals bednakt! :thumb:

 

[Wigi]

Ik heb de optie "rijen opmaken" aangevinkt. Het gevolg is dat het formuliertje nu weer perfect werkt nogmaals bednakt! :thumb:

Plaats de vraag op opgelost aub.