Excel rijen met doorgehaalde celwaarde verbergen en of tonen met commandbutton

[maus1602]

Hallo allemaal,

Ik ben nieuwsgierig of ik middels een button alle Excel rijen binnen een bereik kan verbergen welke opgemaakt zijn met doorgehaalde celwaarde.

Deze wil ik verbergen om een zodat niet alles geprint hoeft te worden.
Wanneer in kolom C "status" het woord "gecanceld" wordt ingevoerd, is met voorwaardelijk opmaak ingesteld dat gehele rij alle celwaarden doorgehaald en van kleur veranderen.

Bekijk bijlage Actielijst ProjectX.xls

Alvast bedankt voor jullie reacties.
Maurice:thumb:

 

[SjonR]

Voor onder je verbergknop:

Sub Verberg()
Set Rng = Range("C1:C150")
 For Each cell In Rng
     If cell.Text = "gecanceld" Then
         cell.EntireRow.Hidden = True
     End If
 Next cell
End Sub

En onder knop tonen:

Sub tonen()
Set Rng = Range("C1:C150")
 For Each cell In Rng
     If cell.Text = "gecanceld" Then
         cell.EntireRow.Hidden = False
     End If
 Next cell
End Sub

 

[SjonR]

Bekijk bijlage Actielijst ProjectX (verbergen rijen).xlsm

of alles in 1 knop

 

[HSV]

filtertje plaatsen, printen en filtertje weg.

Sub hsv()
With Range("a3").CurrentRegion
   .AutoFilter 3, "<>gecanceld"
   ActiveSheet.PrintPreview
   .AutoFilter
End With
End Sub

 

[SjonR]

Ja Harry,

daar kan ik niet tegen op. :thumb:

Edit

Ik probeer in VBA te denken, maar dan gebruik ik wat ik weet en vergeet ik het meest logische.

 

[HSV]

Een troost, iedereen is eens zo begonnen, ...wordt steeds beter. :thumb:

Hier is ook eigenlijk nog het belangrijkste vergeten (sheet aanduiding voor de range).

 

[maus1602]

Heren, beiden bedankt.

Ik heb de oplossing van HSV toegepast, deze past het best in mijn reeds bestaande bestand

Bedankt, bij deze de sluit ik mijn vraag.