Datofilter

Jamen, det kan jeg da Smile

uploads/732/Autofilter2Dage.XLSm

Jeg har lavet en komplet kode, der ser således ud:

Private Sub Workbook_Open()

' * ' Initialize
      On Error Resume Next

      Const DatoKolonne As Long = 2


' * ' Define variables
      Dim Kriterie As Date
      Kriterie = Date + 2           ' Set today + 2 days as criteria

      Dim WS As Excel.Worksheet
      Set WS = Ark1                 ' Worksheet containing the filter


' * ' Set filter
      WS.ShowAllData                ' Reset filter to show all data
      WS.Range("$A$1:$C$1").AutoFilter Field:=DatoKolonne, Criteria1:="=" & Kriterie


ES: ' End of Sub
      Set WS = Nothing

End Sub

På den måde er det let, at bestemme, hvilken kolonne dato filteret skal være på, og hvad kriteriet skal være, samt, hvilket regneark, som der skal benyttes.

Jeg har dog ikke indlagt ikoden, at den skal sætte filteret, da jeg går ud fra, at det allerede er sat i forvejen - hvis det mangler vil koden, naturligvis, ikke virke Geek

Selv uden de store VBA kendskaber, burde koden værew til at gennemskue Smile

Koden ligger i 'ThisWorkbook' modulet, som du kan finde frem til således:
www.excelgaard.dk/Bib/Makroer/Indsaet/Workbook/ www.excelgaard.dk/Bib/Makroer/Indsaet/Workbook/

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Prøver lige at være mere præcis :)

Ligesom man kan sætte et filter "IDAG" se eksempel nedenfor!

Tænker at det skal læses med VBA

Nej, datoen skal permanent være +2dage, da den er grundlag for et dashboard, hvor man ikke skal ind og rette hver dag.

Stephanbroni skrev:

Nej, datoen skal permanent være +2dage, da den er grundlag for et dashboard, hvor man ikke skal ind og rette hver dag.

Så, du vil have et regneark, hvor samtlige datoer, der ikke er IDAG()+2 automatisk bliver skjult, hver gang regnearket bliver åben?

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Kan ikke få din formel til at virke!

Men ja, Dato i A og værdi I B

håber du kan senere

Stephanbroni skrev:

Præcis

Jamen, er det så ikke bare, at ligge en enkelt kodelinje ind i 'Workbook_Open' eventen, der indstiller filteret???

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Jamen, det kan jeg da Smile

uploads/732/Autofilter2Dage.XLSm

Jeg har lavet en komplet kode, der ser således ud:

Private Sub Workbook_Open()

' * ' Initialize
      On Error Resume Next

      Const DatoKolonne As Long = 2


' * ' Define variables
      Dim Kriterie As Date
      Kriterie = Date + 2           ' Set today + 2 days as criteria

      Dim WS As Excel.Worksheet
      Set WS = Ark1                 ' Worksheet containing the filter


' * ' Set filter
      WS.ShowAllData                ' Reset filter to show all data
      WS.Range("$A$1:$C$1").AutoFilter Field:=DatoKolonne, Criteria1:="=" & Kriterie


ES: ' End of Sub
      Set WS = Nothing

End Sub

På den måde er det let, at bestemme, hvilken kolonne dato filteret skal være på, og hvad kriteriet skal være, samt, hvilket regneark, som der skal benyttes.

Jeg har dog ikke indlagt ikoden, at den skal sætte filteret, da jeg går ud fra, at det allerede er sat i forvejen - hvis det mangler vil koden, naturligvis, ikke virke Geek

Selv uden de store VBA kendskaber, burde koden værew til at gennemskue Smile

Koden ligger i 'ThisWorkbook' modulet, som du kan finde frem til således:
www.excelgaard.dk/Bib/Makroer/Indsaet/Workbook/ www.excelgaard.dk/Bib/Makroer/Indsaet/Workbook/

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Velbekomme og tag for ordene Embarrassed

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Navigation

Datofilter