VBA excel 2016 / excel2007

[AD1957]

Volgens gebruiker werkt de code bij hem niet.
Kan het moeilijk controleren, is een behoorlijk eindje uit de buurt.
Hij heeft de code werkend zoals gegeven in #5, vreemde oplossing maar het werkt

 

[HSV]

Heb je de code doorgestuurd en al laten testen door hem?

 

[AD1957]

Het volledige bestand heb ik vanmiddag nog eens doorgestuurd.
Misschien is er in het vorig doorgestuurde bestand door de gebruiker per ongeluk iets gewijzigd.
Maar dat zou dan wel op alle commandbuttons op de userform zijn gebeurd, want geen enkele commandbutton zou werken.
Even afwachten.

 

[edmoor]

Ik heb al een paar keer meegemaakt dat bij een gebruiker niks aan knopjes een gebeurtenissen werkte.
Na wat onderzoek bleek dat systeembeheer Office had geïnstalleerd zonder de Gedeelde onderdelen (Shared components)
Dan is er geen VBA en werkt er uiteraard niks van.
Long shot, maar wie weet

Vraag die gebruikers dus een om op ALT-F11 te drukken waarmee je normaal gesproken in de VBA Editor komt.

 

[AD1957]

Buiten de codes waarover ik de vraag hebt gesteld werken alle VBA codes.
Dus hier zal het probleem niet liggen.
In ieder geval bedankt voor het meedenken.

Misschien iets in de eigenschappen van de commandbuttons of de userforn.
Eerlijkheidshalve denk ik van niet, want dan zou de aangepaste code ook niet werken.

 

[edmoor]

Dat we dat maar even zeker weten

 

[pasan]

beetje opgeruimd kijk maar of je er ietss aan hebt......

Private Sub CommandButton1_Click()
[E1] = "1e kwartaal"
Kiesmaand (17)
End Sub

Private Sub CommandButton2_Click()
[E1] = "2e kwartaal"
Kiesmaand (18)
End Sub

Private Sub CommandButton21_Click()
Label4.Visible = True
TextBox2.Visible = True
TextBox2.SetFocus
End Sub

Private Sub CommandButton22_Click() 'FILTEREN OP VANDAAG
[E1] = "vandaag"
Kiesmaand (1)
End Sub

Private Sub CommandButton23_Click() 'FILTEREN OP GISTEREN
[E1] = "gisteren"
Kiesmaand (2)
End Sub

Private Sub CommandButton24_Click() 'FILEREN OP DEZE WEEK
[E1] = "deze week"
Kiesmaand (4)
End Sub

Private Sub CommandButton25_Click() 'FILTEREN OP VORIGE WEEK
[E1] = "vorige week"
Kiesmaand (5)
End Sub

Private Sub CommandButton3_Click()
[E1] = "3e kwartaal"
Kiesmaand (19)
End Sub

Private Sub CommandButton4_Click()
[E1] = "4e kwartaal"
Kiesmaand (20)
End Sub

Private Sub CommandButton5_Click()
[E1] = "Januari"
Kiesmaand (21)
End Sub

Private Sub CommandButton6_Click()
[E1] = "Februari"
Kiesmaand (22)
End Sub

Private Sub CommandButton7_Click()
[E1] = "Maart"
Kiesmaand (23)
End Sub

Private Sub CommandButton8_Click()
[E1] = "April"
Kiesmaand (24)
End Sub

Private Sub CommandButton9_Click()
[E1] = "Mei"
Kiesmaand (25)
End Sub

Private Sub CommandButton10_Click()
[E1] = "Juni"
Kiesmaand (26)
End Sub

Private Sub CommandButton11_Click()
[E1] = "Juli"
Kiesmaand (27)
End Sub

Private Sub CommandButton12_Click()
[E1] = "Augustus"
Kiesmaand (28)
End Sub

Private Sub CommandButton13_Click()
[E1] = "September"
Kiesmaand (29)
End Sub

Private Sub CommandButton14_Click()
[E1] = "Oktober"
Kiesmaand (30)
End Sub

Private Sub CommandButton15_Click()
[E1] = "November"
Kiesmaand (31)
End Sub

Private Sub CommandButton16_Click()
[E1] = "December"
Kiesmaand (32)
End Sub

Function Kiesmaand(maand As Byte)
 With Sheets("omzet").ListObjects(1).Range
    .AutoFilter 1, maand, xlFilterDynamic
    
  End With
ActiveWindow.SmallScroll Down:=-2000
End Function

 

[AD1957]

Hallo Pasan,

Even met de oren klapperen, maar na enige bestudering en raadplegen van de site van SNB "VBA voor smarties"
is de code me duidelijk, weer wat geleerd.:thumb:

 

[AD1957]

Ik ga de vraag als opgelost zetten.
Probleem zit waarschijnlijk in excel 2007 van de gebruiker.
Toch nog even een vraag:
Is het mogelijk dat de gebruiker nog excel 2003 op de pc heeft staan en het bestand opent in excel 2003
Lijkt me stug, want ik meen ergens op de site van JKP te hebben gelezen dat tabellen in deze vorm pas vanaf 2007 geïntegreerd zijn.
Of heb ik het hier mis.

 

[VenA]

Dat kan je toch aan de gebruiker vragen? Het uiterlijk van XL-2003 is compleet anders dan van XL-2007.

 

[AD1957]

duidelijkheid, het is echt excel 2007 dus ik ga de vraag maar sluiten.
Gebruiker past de codes aan.

Dank aan iedereen voor het meedenken