Macro Filter datum

[Amado]

Hallo Excellers,

Ik heb volgende vraag:

Hoe kan ik in VBA de datum filter gebruiken in een ander formaat (bijv. "Januari" ipv 1/31/2021)
en eventueel januari van een bepaald jaar (indien er meerderen jaren in de tabel staan?

Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+d
'
    Dim Datum As String
    Datum = Range("K1").Value
    
    Range("A1").Select
    ActiveSheet.Range("Tabel1").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, Datum)
End Sub

 

[HSV]

Bv.

Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+d


Range("Tabel1").AutoFilter 1, , 7, Array(1, Format(DateValue("1 " & Range("H6").Value & " 2022"), "mm/dd/yyyy"))
End Sub

En voor het lopende jaar.

Range("Tabel1").AutoFilter 1, , 7, Array(1, Format(DateValue("1 " & Range("H4").Value), "mm/dd/yyyy"))

 

[Amado]

VBA Filter

Hoi Harry,

Ik zou de datum (bijv. januari) willen laten invullen in "K1" (wat in de macro variabel is)
en in een andere cel "J1" het jaar.
Kan dit?

 

[HSV]

Hoi,

Was niet zo ingewikkeld als je naar de eerste code keek.

Range("Tabel1").AutoFilter 1, , 7, Array(1, Format(DateValue("1 " & Range("k1") & " " & Range("j1")), "mm/dd/yyyy"))

 

[Amado]

VBA Filter

Hallo Harry,

Code werkt perfect.

Hartelijk bedankt en fijne zondag verder.

Gr.

Amado

 

[HSV]

Graag gedaan en insgelijks.

 

[Amado]

VBA Filter

Hoi Harry,

In mijn voorbeeld werkt je code perfect, nu heb ik hem gekopieerd
naar mijn originele file en krijg ik een foutmelding:

Range("Tabel2").AutoFilter 1, , 7, Array(1, Format(DateValue("1 " & Range("Q8") & " " & 
Range("Q7")), "mm/dd/yyyy"))

"Fout 13 typen komen niet overeen"
in Q7 geef ik het jaar in (2021) en in Q8 de maand.
Sorry, maar ik ben een beginneling op gebied van VBA.
En waarnaar verwijst die 7 in de autofilter?

Amado

 

[VenA]

De code hoort op 1 regel te staan. Anders moet je deze op de juiste manier afbreken met spatie_

De 7 staat hier uitgelegd: https://docs.microsoft.com/en-us/office/vba/api/excel.range.autofilter is een Operator.

 

[Amado]

VBA Autofilter

De code staat op 1 lijn:
Range("Tabel2").AutoFilter 1, , 7, Array(1, Format(DateValue("1 " & Range("Q8") & " " & Range("Q7")), "mm/dd/yyyy"))

De code staat in file1
maar de "Tabel2" staat in een andere file2.
Dit is waarschijnlijk de reden van de fout.
Hoe kan ik de code aanpassen hiervoor?

 

[VenA]

Dan moet je verwijzen naar de juiste bestanden. Lijkt mij overigens een nodeloos ingewikkelde constructie.

 

[Amado]

VBA Filter

Het is niet zo ingewikkeld, ik moet van file2 gefilterde data gaan selecteren en deze kopiëren naar file1.
Hoe kan ik dus in file1 (waar de macro staat) naar file2 (waar de te filteren data staat in Tabel2) verwijzen in deze code :

Range("Tabel2").AutoFilter 1, , 7, Array(1, Format(DateValue("1 " & Range("Q8") & " " & Range("Q7")), "mm/dd/yyyy"))
Ik heb te weinig kennis om die verwijzing in bovenstaande code te bekomen.
Moest dit werken, zou me dat veel werk besparen.
Ik moet in meerdere files hetzelfde doen.

 

[VenA]

Altijd raar om te veronderstellen dat iets niet ingewikkeld is. Dan los je het toch eenvoudig op met de aangedragen suggesties?
Het ophalen van gegevens uit verschillende bestanden onder bepaalde voorwaarden is niet zo heel moeilijk en er is ook voldoende over te vinden hoe je dat kan doen. De filtervoorwaarden heb je al gekregen wat ook de vraag was.
Als het om meerdere bestanden gaat dan zal je er even een lusje omheen moeten breien.

Met Power Query zal het overigens ook wel kunnen.

 

[JEC.]

In dit draadje van jou staat een methode. Iets met workbooks.open of getobject

https://www.helpmij.nl/forum/showthread.php/958787-Gegevens-kopiëren-naar-variabele-cellen

 

[VenA]

@JVeer, en dan ook nog binnen een draadje van de TS zelf

en er is ook voldoende over te vinden hoe je dat kan doen

 

[Amado]

VBA autofilter

Indien het voor mezelf was, zou ik ook voor PowerQuery kiezen, maar
hier neem ik iets over van iemand anders en bouw ik verder.
Ik zou het probleem simpel kunnen oplossen met telkens gefilterde data te kopiëren
en te plakken en zo verder werken. (in de eerste test werkt alles indien de filter in dezelfde file staat als de macro)
Kan hier niemand mij even verder helpen met de verwijzing naar de file waar de filter moet geactiveerd worden?
Ik ken echt niet voldoende van VBA en ben er niet verlegen om, daarom stel ik deze vraag ook op "Helpmij"

 

[JEC.]

Yep... ik kon het me nog wel herinneren