Makro til skjul kolonne

Måske denne:

@Store-morten:

Jeg ønsker at kolonnerne automatisk skjules hver gang jeg indtaster en dato.

Datoen (xx-xx-xxxx) bliver altid indtastet i række "I".
Men kolonnerne varierer fra kolonne 3 til X.

Så jeg skal vel bruge en mere generel formel:
Hvis indtastning i kolonne "I", så skjules kolonnen..

Du kan indsætte denne kode i arkets eget kodemodul:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I:I")) Is Nothing And IsDate(Target) And Target.Row > 2 Then
    Target.EntireRow.Hidden = True
End If
End Sub

@Bak:

Det virker!!

Vil man som alternativ kunne lave en kommando knap, der skjuler alle kolonner, hvor der er indtastet en dato (xx-xx-xxxx) i række "I"??

Ellers vil jeg gerne give dig point for dette svar.

kør denne kode på arket. Bemærk at du selv skal ændre ranget

Sub hideall()
    Dim c As Range, rg1 As Range
    Set rg1 = Range("I3:I10000").SpecialCells(xlCellTypeConstants, 23)
    For Each c In rg1
        c.EntireRow.Hidden = IsDate(c)
    Next
End Sub