VBA excel 2016 / excel2007

[AD1957]

ondestaande code gebruik ik om een tabel te filteren (gemaakt in excel 2016)

[E1] = "1e kwartaal"

With Sheets("OMZET").ListObjects(1).Range
    .AutoFilter 1, xlFilterAllDatesInPeriodQuarter1, xlFilterDynamic
End With

ActiveWindow.SmallScroll Down:=-2000

Dezelfde code werkt blijjkbaar niet in excel 2007, hoe los ik dit op??

bvd

 

[edmoor]

Plaats eens een voorbeeld documentje.

 

[AD1957]

Bij mij werkt de code perfect( excel 2016)
Maar volgens de gebruiker (excel 2007) werkt bij hem de code niet.
De Code staat onder een commandbutton maar er gebeurt volgens de gebruiker helemaal niets.
Ook geen foutmeldingen. (mijn eerste gedachte was "blad is beveiligd")
Ik kan je wel een voorbeeldbestand toesturen, maar dat zal dan gewoon werken.

 

[edmoor]

Ik vraag er niet voor niets om.
Ik heb hier de beschikking over Excel 2007, 2010 en 2016.

 

[AD1957]

deze code werkt wel bij de gebruiker

Sheets("omzet").Activate
Unload UserForm_OVERZICHTOMZET

[e1] = "1e kwartaal"

With Sheets("OMZET").ListObjects(1).Range
    .AutoFilter 1, xlFilterAllDatesInPeriodQuarter1, xlFilterDynamic
End With


ActiveWindow.SmallScroll Down:=-2000

de commandbutton staat op de userform en de userform staat op het blad OMZET
lijkt me vreemd dat het bijvoegen van de 2 bovenste coderegels de code werkend maken.

 

[AD1957]

Bestand komt eraan, eerst even nakijken op private zaken

 

[AD1957]

Hoi Ed,
Sorry, had kunnen weten dat je excel 2007 ter beschikking hebt.
Hierbij het volledige bestand.
Het probleem zit 'm in de userform_OVERZICHTOMZET
(wil wel nog even opmerken dat ik nog bezig ben met opschonen/verbeteren van codes)

eventueel wachtwoord = 1234

 

[AD1957]

Zou je ook eens willen kijken naar de code onder worksheet_change op het blad KLANTENBESTAND
de sorteercode zou onder excel 2007 ook niet werken

 

[edmoor]

Wellicht handig om ook even uit te leggen wat er moet gebeuren om het probleem te kunnen zien.

 

[AD1957]

Heb je het hier over de vraag onder #8 of de vraag onder #7

 

[AD1957]

#8 sorteren op alfabet A21:A2000

#7 tabel filteren op 1e kwartaal, 2e kwartaal etc.

 

[edmoor]

Ik bedoel, wat moet ik in het document qua stappen exact doen on het probleem te kunnen zien.

 

[AD1957]

Sorry,
#7
ga naar sheet OMZET
open userform (gele knop boven)
click op commandbutton 1e kwartaal

#8
op de Sheet KLANTENBESTAND
Voeg een naam toe in kolom A, A21:A2000 wordt gesorteerd

 

[edmoor]

Je voorbeelden werken bij mij in zowel Excel 2007 als 2016 zonder probleem, geen foutmeldingen dus.

 

[AD1957]

kan het iets te maken hebben met de instellingen / excel 2007
Misschien heeft gebruiker iets via bestand/opties/instellingen gewijzigd

 

[edmoor]

Geen idee.
Wat het filteren van het overzicht betreft zou ik er in ieder geval dit van maken:

Private Sub CommandButton1_Click()
    Range("E1") = "1e kwartaal"
    With Sheets("OMZET").ListObjects(1).Range
        .AutoFilter 1, xlFilterAllDatesInPeriodQuarter1, xlFilterDynamic
    End With
End Sub

 

[AD1957]

waarom zo

Range("E1") = "1e kwartaal"

en niet zo

[E1] = "1e kwartaal"

Ik heb begrepen dat de 2e code vertragend kan werken, maar daar verschillen de meningen nogal over.

 

[edmoor]

De notatie met de haken is voor evaluatie van een cel.
De andere is om direct de inhoud van de cel te manipuleren.
In korte lijnen

 

[AD1957]

Bedankt voor de uitleg.
Ik laat de vraag toch nog even openstaan, misschien komt er nog iemand met een oplossing.

 

[HSV]

Werkt hier ook goed in 2007.

Private Sub CommandButton1_Click()
  With Sheets("OMZET")
        .Range("E1") = "1e kwartaal"  'of .range("e1") = commandbutton1.caption
        .ListObjects(1).Range.AutoFilter 1, xlFilterAllDatesInPeriodQuarter1, xlFilterDynamic
  End With
End Sub