Huidige datum toepassen op complete kolom van een voorgaande filteractie

[mpbee]

Goedemorgen!

Hopelijk zijn er mensen die me kunnen helpen met stap 2 van mijn ‘probleem’
In een Excel bestand wil ik door middel van een macro het volgende regelen:

1. Filteren op kolom 13/M (dit lukt)
2. Op deze filteractie in kolom 19/S de huidige datum invoeren en doorvoeren tot de laatste regel van de voorgaande filteractie.

Deze data moeten uiteindelijk waarden worden, geen formule.
3. Filter kolom 13/M ongedaan maken (lukt ook)

Alvast bedankt voor je moeite!

Groet, Marien

 

[snb]

Het geplaatste bestand bevat geen macro.

 

[mpbee]

Het geplaatste bestand bevat geen macro.

Sorry, nu wel!

 

[snb]

Sub M_snb()
  With ActiveSheet.Range("$M$1:$M$9")
     .AutoFilter 1, "<>"
     .Range("S2:S9") = Date
     .AutoFilter
  End With
End Sub

 

[mpbee]

Dankjewel!!

De huidige datum komt nu in kolom AE. Hoe kan ik deze datum in kolom S krijgen?
Ik ben niet zo handig met VBA en zie ook geen verwijzing in de code naar kolom AE

 

[snb]

Sub M_snb()
  With ActiveSheet.Range("$M$1:$M$9")
     .AutoFilter 1, "<>"
     .offset(,6) = Date
     .AutoFilter
  End With
End Sub

 

[mpbee]

wat een feest, bedankt!!