Aanpassen huidige VBA code Verbergen van rijen.

[danny147]

Beste,

Graag zou ik als ik op het kringveldpijltje klik dat ook een ander tablad tergelijker tijd dezelfde rijen verbergt.

Dit is de vorige code.
Ik weet dat ik de Select Case Range("AA2").Value moet veranderen maar hoe?

Sub Ringveld1_BijWijzigen()
    Rijen_verbergen
End Sub
Sub Rijen_verbergen()

   Select Case Range("AA2").Value
   
   Case 2008, 2013, 2014, 2019, 2025, 2030
     c0 = "9:9,15:15,24:24,30:30,34:34,38:38"
   Case 2009, 2010, 2015, 2020, 2021, 2026, 2027
     c0 = "9:9,15:15,24:24,28:28,34:34,38:38"
   Case 2011, 2016, 2022, 2028
     c0 = "9:9,15:15,22:22,28:28,34:34,38:38"
   Case 2017, 2023
     c0 = "11:11,17:17,24:24,30:30,36:36,38:38"
   Case 2024
     c0 = "11:11,15:15,24:24,30:30,34:34,38:38"
   Case 2018, 2012, 2029
     c0 = "11:11,17:17,24:24,30:30,34:34,38:38"
     End Select
     
   Rows("8:38").EntireRow.Hidden = False
   Range(c0).EntireRow.Hidden = True
   Range("B2").Select
   
   
End Sub

Groetjes Danny. :thumb:

 

[Ginger]

Danny147, verander 't stukje code onder het 'end select' maar in deze...

    For Each sh In Sheets(Array("Sheet1", "Sheet2"))
        sh.Rows("8:38").EntireRow.Hidden = False
        sh.Range(c0).EntireRow.Hidden = True
        Range("B2").Select
    Next sh

...waarbij je zelf nog ff de juiste namen voor de sheets moet aangeven (in de array waar nu Sheet1 en Sheet2 staat). Plaats voor 't mooi aan het begin van je code ook nog maar ff...

Dim sh As Object

Groet, Leo

 

[danny147]

Beste Ginger

Bedankt voor de code aan te passen, ze werkt perfect.

Groetjes Danny. :thumb: