vba selecteren, totaaltelling en afdrukken

[AD1957]

Beste forumleden,

In bijgevoegd bestand probeer ik een kwartaalafdruk met totaaltelling te maken met VBA
Na allerlei probeersels kom ik echter geen stap verder.
Kan iemand mij een hint in de goede richting geven.

 

[VenA]

Net andersom

If DatePart("q", Cells(Selrij & i + 1, 1)) = 1 Then

Met een filter gaat het overigens een stuk sneller.

 

[emields]

Waarom moeilijk proberen te maken

 

[AD1957]

VenA: met deze code werkt het inderdaad

emields; Dit werkt ook perfect, echter met draaitabellen heb ik totaal geen ervaring.
Zal me hierin dan toch eens moeten gaan verdiepen, gaat wel even duren
en ik zet de vraag nu maar als opgelost.

Beiden bedankt voor de reactie

 

[VenA]

In het bestand van @emields staat geen draaitabel, maar een gewone 'intelligente' tabel. De code filtert alleen deze tabel en laat een afdrukvoorbeeld zien.

De code mag ook zo

Private Sub CommandButton1_Click()
  ListObjects(1).Range.AutoFilter 1, xlFilterAllDatesInPeriodQuarter1, xlFilterDynamic
  PrintPreview
  ListObjects(1).Range.AutoFilter
End Sub

Excel heeft zeer veel datumfilters en andere filteropties vandaar ook mijn opmerking in #2

 

[AD1957]

Ik heb inmiddels de tabel in mijn bestand gezet echter loop tegen een aantal problemen aan:

1e. Opdrachtknop "afdrukken per kwartaal" spuwt 26 pagina's uit de printer en de totaaltelling op rij 2000 verschijnt niet op de PREVIEW

2e. Ik heb een aantal opdrachtknoppen in de userform AfDRUKKEN met dezelfde code, echter hier komt de foutmelding "compileerfout, sub of function is niet gedefinieerd"

Kom er maar niet achter hoe dit op te lossen, dus moet weer om hulp vragen.

 

[emields]

verwijder allen lege rijen uit uw tabel

 

[AD1957]

Het voorbeeldbestand onder #7 is behoorlijk uitgekleed.
de initialize van userform2 gaat dan volledig de mist in (zie bijlage)
Of ga ik hier de mist in.

 

[emields]

da's blijkbaar ook zo in #6

 

[VenA]

Als je vanuit een userform iets doet dan moet je naar een blad verwijzen.

Private Sub CommandButton3_Click()
 With Sheets("verkoopboek").ListObjects(1).Range
    .AutoFilter 1, xlFilterAllDatesInPeriodQuarter1, xlFilterDynamic
    .Parent.PrintPreview
    .AutoFilter
  End With
End Sub

 

[AD1957]

bedankt, ik ga hiermee eens aan de slag.
Dat met UserForm2 moet ik maar eens een oplossing gaan zoeken.
Misschien de totaaltellingen op een ander werkblad.