Rijen verbergen en weer zichtbaar maken

[H.Weenink]

Wie weet voor mij een oplossing
Mijn vraag is dat in een heel werkblad dmv een knop of keuze rondje de rijen waar helemaal niets instaat gaat laten verbergen en waneer ik weer op de knop druk dat alle rijen weer zichtbaar zijn

bvd Hans

 

[Hoornvan]

H.Weenink,

Zo iets?
Ik heb een andere file geplaatst.

 

[H.Weenink]

H.Weenink,

Zo iets?
Ik heb een andere file geplaatst.

Beste Wim, bedankt dat je zo snel gereageerd hebt op mijn vraag maar jou antwoord had ik zelf ook al omdat je in de macro de specifieke regels benoem
maar dit is nou net niet de bedoeling want de macro (evt. vba) moet zelf uitzoeken welke regels leeg zijn of niet ....en dit van het gehele werkblad
Miscchien weet jij hier ook raad op

vr gr Hans

 

[Hoornvan]

H.Weenink,

Je gaf in het werkblad aan wat verborgen moest worden, dus dat heb ik gedaan.

 

[snb]

sub weg()
  on error resume next
  sheets(1).columns(1).specialcells(xlcelltypeBlanks).entirerow.hidden=true
End Sub

 

[Hoornvan]

H.Weenink,

Hier is de file met behulp van de code van snb
Eventueel moet je de Kolom aanpassen.(Daar waar het meeste staat anders verbergt hij die ook.

Sheets(1).Columns([COLOR="Red"]4[/COLOR])

 

[Warme bakkertje]

Sub tst()
    With Columns("B:D")
        For i = .Cells(Rows.Count).End(xlUp).Row To 5 Step -1
            If WorksheetFunction.CountA(.Rows(i)) = 0 Then
                .Rows(i).EntireRow.Hidden = True
            End If
       Next i
    End With
End Sub

 

[Hoornvan]

H.Weenink,

Deze is met de code van Warme bakkertje.
Misschien kan hij korter?

 

[snb]

@Wim

met een opdrachtknop:

Private Sub CommandButton1_Click()
    On Error Resume Next
    Sheets(1).Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    If CommandButton1.Caption = "Verbergen" Then Sheets(1).Cells.SpecialCells(xlCellTypeHidden).Hidden = False
    CommandButton1.Caption = IIf("Verbergen", "Weer tonen", "Verbergen")
End Sub

Maar hiervoor is juist een Wisselknop (Togglebutton) aangewezen:

Private Sub ToggleButton1_Click()
    On Error Resume Next
    Sheets(1).Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = ToggleButton1.Value
    Sheets(1).Cells.SpecialCells(xlCellTypeHidden).Hidden = Not ToggleButton1.Value
End Sub

 

[Hoornvan]

snb,

Maar hiervoor is juist een Wisselknop (Togglebutton) aangewezen:

Dank je voor de informatie, soms blijf je op de oude weg.

Ben al een beetje op leeftijd maar doe wel mijn best.

 

[Warme bakkertje]

Maar waar is dan de controle heen of de ganse rij wel leeg is zoals aangegeven in het voorbeeldbestand van TS , en niet enkel de rij van 1 kolom ?

 

[snb]

@Rudi
Met een wisselknop:

Private Sub ToggleButton1_Click()
    On Error Resume Next
    With Sheets(1).Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow
       .Hidden = ToggleButton1.Value
      [COLOR="Blue"] .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = False[/COLOR]
    End With
    Sheets(1).Cells.SpecialCells(xlCellTypeHidden).Hidden = Not ToggleButton1.Value
End Sub

 

[H.Weenink]

@Rudi
Met een wisselknop:

Private Sub ToggleButton1_Click()
    On Error Resume Next
    With Sheets(1).Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow
       .Hidden = ToggleButton1.Value
      [COLOR="Blue"] .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = False[/COLOR]
    End With
    Sheets(1).Cells.SpecialCells(xlCellTypeHidden).Hidden = Not ToggleButton1.Value
End Sub

Beste SNB wat ik nu van jullie allen gekregen heb werkt als een tierelier, ware het niet dat ik nu erachter ben gekomen (formulier iets aangepast) dat ik in kolom A wel de gegevens wil laten staan en de kontrole dus op de kolommen B t/m J moet worden uitgevoerd of die regels leeg zijn.
Hopende hebben jullie hier ook een oplossing voor.

bvd Hans

 

[snb]

Met de aangereikte suggesties kun en wil je dat natuurlijk nu zelf voor elkaar krijgen...