Hvordan styres Brugerdefineret Autofilter via VBA.

Userformen kan evt. indeholder mulighed for såvel start- som slutdato - herfra kan de overføres til følgende:
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">=01-01-2005", Operator:=xlAnd _
        , Criteria2:="<=15-01-2005"

De to viste datoer skal erstattes af variabelnavne

... ser fornuftigt ud. Jeg er ikke så god til det med variabler - men i det viste eksempel, kan jeg så erstatte 01-01-2005 med eksempelvis Textbox1.value ?

Ja - disse variabler kan naturligvis være navnene på tekstboksene i din formular

Okay. Med hensyn til "Field: =1", er det så noget der refererer til kolonne A ? Jeg tænker på om "Field: =3" så ville sortere i kolonne C ?

Private Sub CommandButton1_Click()
  Dim rng As Range
  Dim date1 As Long, date2 As Long
  date1 = DateValue(TextBox1.Value)
  date2 = DateValue(TextBox2.Value)
  Set rng = Range("A1")
  rng.AutoFilter
  rng.AutoFilter Field:=3, Criteria1:=">=" & date1, Operator:=xlAnd, Criteria2:="<=" & date2
End Sub

Hej bak!
Det ser osse godt ud. Hvis der nu først sorteres i kolonne C (går jeg ud fra), og dernæst skal sorteres i kolonne D, skal jeg så gentage makroen men med " Field:=4" - og så selvfølgelig andre værdier end datoerne ?

Nu håber du filtrer og ikke sortere :-)


Private Sub CommandButton1_Click()
  Dim rng As Range
  Dim date1 As Long, date2 As Long

  date1 = DateValue(TextBox1.Value)
  date2 = DateValue(TextBox2.Value)
  Set rng = Range("A1")
  rng.AutoFilter
  rng.AutoFilter Field:=3, Criteria1:=">=" & date1, Operator:=xlAnd, Criteria2:="<=" & date2
  rng.AutoFilter Field:=4, Criteria1:=">=" & var1 , Operator:=xlAnd, Criteria2:="<=" &var2
End Sub

Ja - *G* jeg filtrerer...
Men noget går galt når jeg vælger 01-11-05 og 10-11-05 i textbox 1 og 2. Der filtreres på 02-11-2009 og 11-11-2009...???
Cellerne er formatterede så 01-11-05 er lig med første november år 2005...

prøv lige at skrive 01-11-2005. altså fuldt årstal og fortæl hvad du så får.

Vil man kunne bruge denne funktion til at vælge forskellige dato-ranges ud for derefter at kopiere dem til underark?

Prøvede lige at skrive 03-11-2005 og 15-11-2005, men der filtreres på 04-11-2009 og 16-11-2009...???
Det har jeg godt nok ikke set før...
Skal der stå Dim date1 As Date, date2 As Date ?

Kan dette lade sig gøre:

Dim date1 As Long, date2 As Long

date1 = Format(Date, "dd/mm/yy"), date2 = Format(Date, "dd/mm/yy")

...og så resten af koden ?