Dynamisch kolomen zichtbaar maken

[lsp1972]

Ik weet dat ik het heb gezien, maar kan het niet meer vinden (waarschijnlijk gebruik ik verkeerde zoekwoorden op het forum ook)

Ik heb een hele reeks kolommen met datums, telkens 7 dagen verder. Ik wil de kolommen zichtbaar maken of groeperen zodat ik bepaalde maanden alleen zie. Dit op basis van te selecteren start (Datum 1) en einde (Datum 2) waarden

In de bijlage een voorbeeld van 2 data in kolom A en B die ik dan zichtbaar wil maken door of verbergen overige kolommen of samenvouwen voor en na de datum zoals je kan met groeperen (met dat laatste krijg ik het niet voor elkaar)

dank alvast

 

[JEC.]

Zo bvb achter je werbladmodule

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim a
 With Target
  If .Count > 1 Then Exit Sub
  If InStr("A2B2", .Address(0, 0)) Then
    Range("C1:LF1").EntireColumn.Hidden = True
    If [B2] > [a2] And IsDate([a2]) And IsDate([B2]) Then
      a = [iferror(match(a2:b2,c3:lf3)+2,3)]
      Columns(a(1)).Resize(, a(2) - a(1) + 1).Hidden = False
    End If
  End If
 End With
End Sub

 

[lsp1972]

Zo bvb achter je werbladmodule

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim a
 With Target
  If .Count > 1 Then Exit Sub
  If InStr("A2B2", .Address(0, 0)) Then
    Range("C1:LF1").EntireColumn.Hidden = True
    If [B2] > [a2] And IsDate([a2]) And IsDate([B2]) Then
      a = [iferror(match(a2:b2,c3:lf3)+2,3)]
      Columns(a(1)).Resize(, a(2) - a(1) + 1).Hidden = False
    End If
  End If
 End With
End Sub

super thanx...

Wat doet deze regel?

Columns(a(1)).Resize(, a(2) - a(1) + 1).Hidden = False

ik heb namelijk wat proberen aan te passen, maar nu kloppen de sluitende kolommen niet meer

 

[JEC.]

Daar worden de kolommen geselecteerd die zichtbaar moeten worden. Kijk vooral goed naar de waarden in de variabele “a”

 

[lsp1972]

Daar worden de kolommen geselecteerd die zichtbaar moeten worden. Kijk vooral goed naar de waarden in de variabele “a”

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim a
 With Target
  If .Count > 1 Then Exit Sub
  If InStr("A2B2", .Address(0, 0)) Then
    Range("k1:LN1").EntireColumn.Hidden = True
    If [b2] > [A2] And IsDate([A2]) And IsDate([b2]) Then
      a = [iferror(match(a2:b2,K4:ln4)+2,3)]
      Columns(a(1)).Resize(, a(2) - a(1) + 1).Hidden = False
    End If
  End If
 End With
End Sub

Sorry is abracadabra - mis ff de logica

Heb het bereik aangepast naar het juiste bereik K4 t/m ln4 de datum rij
Waarde a zijn de waarden zoals data in A2 en B2 en dus de tussenliggende kolommen

moeten de data in A2 en B2 exact gelijk zijn aan de datum in rij 4?

 

[JEC.]

Niet getest maar denk dat het zo wel moet werken

a = [iferror(match(a2:b2,K4:ln4)+10,11)]

 

[lsp1972]

Niet getest maar denk dat het zo wel moet werken

a = [iferror(match(a2:b2,K4:ln4)+10,11)]

SUPERRR ! dank je wel!!!:thumb:

 

[JEC.]

Alstu!