cellen automatisch verbergen

[xbox360]

Hoi,

is het misschien mogelijk om via een macro de cellen te verbergen op jaartal?

dat ik alle maanden van 2016 , 2017 en 2018 apart kan verbergen en weer terug kan zetten?

Alvast super bedankt

 

[sylvester-ponte]

zet ze onder elkaar en gebruik autofilter

 

[gast0660]

Helpt deze u verder?
Zet het jaartal in AL3 2016 of 2017 of ... de rest wordt verborgen.
Alles terug zichtbaar met Ctrl + q.
De naam van je bestand is wel origineel.:d

 

[xbox360]

@gast0660

Je bent geweldig
THNX:thumb:

 

[gast0660]

Dank voor de terugkoppeling:thumb:
Suc6

 

[xbox360]

@gast0660

Hoi,

heb pas laat kunnen kijken sorry.
het is wel goed alleen als je dan 2016 ingeeft is het de bedoeling dat dan 2016 wordt verbergt en 2017 en 2018 in beeld blijft, en als je dan 2018 ingeeft dat 2017 en 2016 in beeld blijft
SORRY:thumb:

 

[gast0660]

Hoi,
Verander

xCell.EntireColumn.Hidden = (xCell.Value [COLOR="#FF0000"]<>[/COLOR]Target.Value)

in

xCell.EntireColumn.Hidden = (xCell.Value [COLOR="#FF0000"]=[/COLOR] Target.Value)

 

[VenA]

Geen idee waarom je het zou willen maar het kan iets eenvoudiger en sneller.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range
  If Target.Address(0, 0) = "AL3" Then
    Columns.Hidden = False
    ar = Rows(3).SpecialCells(2, 1)
    For j = 1 To UBound(ar, 2)
      If ar(1, j) = Target.Value Then
        If r Is Nothing Then Set r = Columns(j) Else Set r = Union(r, Columns(j))
      End If
    Next j
  End If
  If Not r Is Nothing Then r.Columns.Hidden = -1
End Sub

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sv, j As Long, s00 As String
If Target.Address = "$AL$3" Then
 Columns.Hidden = 0
    sv = Filter([if(a3:aj3=al3, column(a3:aj3),false)], False, False)
      For j = 0 To UBound(sv)
       s00 = s00 & "," & Cells(1, Val(sv(j))).Address
      Next j
  Range(Mid(s00, 2)).EntireColumn.Hidden = -1
End If

 

[sylvester-ponte]

die van Philiep, maar dan met een beetje wiebel in het beeld : dat vind ik juist leuk

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range
    If Target.Address <> Range("Al3").Address Then Exit Sub
    For Each xCell In Range("A3:AJ3")
        xCell.EntireColumn.Hidden = (xCell.Value = Target.Value)
    Next
End Sub

 

[xbox360]

verbergen

Beste mensen
THNX voor de formule, ben er super blij mee

 

[HSV]

Formules zijn functies in een cel in een blad.
Wat wij schrijven is code in Visual Basic for Application.