=vandaag()+14 als datumfilter

[Spiesse]

beste,

na een paar vergeefse pogingen wend ik me tot jullie (nog es)...

in een gewone tabel in excel lukt het me niet om regels met een datum die voorkomt na vandaag + 14 dagen te doen 'verdwijnen'...

even kort samengevat:
datums in het verleden en tot 14 dagen ver vanaf nu moeten zichtbaar zijn, de dagen verder in de toekomst moeten verborgen worden...

ik ben nu zo slecht niet in excel maar dit lukt me tot heden nog niet... man man

iemand een voorzet voor me?

thx!
spiesse

 

[jverkerk]

Misschien is dit wat met vba, alleen de vba moet aangepast worden tot ook 14 dagen na vandaag.

deze regel misschien vervangen
If r.Value > Date + 14 Then

 

[Spiesse]

top!
na controle van de macro en de < te veranderen in > is deze gelukt!

wreed wel bedankt!

weet jij een korte vba voor sortering op respectievelijk kolom j en dan kolom c? meer moet de macro niet bevatten, ik koppel deze dan wel aan een commandbutton

thx in advance!!!

spiesse

 

[Roncancio]

Dit lijkt mij vrij kort.

Range("A2:J400").Sort key1:=[J2], key2:=[C2]

Met vriendelijke groet,


Roncancio

 

[Spiesse]

roncancio,

ik krijg een foutmelding 400...

Sub sorteren()
Range("A21000").Sort key1:=[J2], key2:=[C2]
End Sub

deze lukt blijkbaar niet...

de tabelrange is a3... naargelang het aantal lijnen...

doe ik iets mis?

 

[Spiesse]

heb macro opgenomen... deze lukt wel... maar de vraag is of deze goed bevonden wordt

Sub sorteren2()
'
' sorteren2 Macro
'

'
ActiveWorkbook.Worksheets("LIJST").ListObjects("Tabel4").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LIJST").ListObjects("Tabel4").Sort.SortFields.Add _
Key:=Range("Tabel4[[#All],[BEVESTIGDE" & Chr(10) & "VERZEND" & Chr(10) & "DATUM]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LIJST").ListObjects("Tabel4").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWorkbook.Worksheets("LIJST").ListObjects("Tabel4").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LIJST").ListObjects("Tabel4").Sort.SortFields.Add _
Key:=Range("Tabel4[[#All],[NAAM KLANT]]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LIJST").ListObjects("Tabel4").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Roncancio]

Tot welke kolom loopt de tabel?

Met vriendelijke groet,


Roncancio

 

[Spiesse]

kolom p

 

[Roncancio]

Range("A2").Sort key1:=[J2], Header:=xlYes, key2:=[C2]

Met vriendelijke groet,


Roncancio

 

[Spiesse]

roncancio, deze doet iets, maar nog niet zoals het eigenlijk moet. ik hou het bij mijn opgenomen macro... iets langer mss maar kruis mijn vingers dat deze het ook wel goed doet

ik zet deze thread op opgelost.

op naar de volgende vraag

 

[jverkerk]

Alle lof gaat naar Cobbe want daar heb ik deze vandaan, mijn vba kennis is ook maar beperkt.
Maar je bent er weer prettig mee geholpen.

 

[Spiesse]

collega's, ook al zijn ze virtueel, helpen elkaar