VBAcode " lege rijen verwijderen" versnellen

[AD1957]

Goede avond Roeljongmans/VenA,
Bedankt voor jullie reactie, ik zal beide code's eens invoegen.

p.s.
aan VenA,
Ik begrijp nu na enig nadenken wat jij precies bedoeld onder #17
Je ziet een vraagstelling op het forum "VBAcode " lege rijen verwijderen" versnellen" en gaat op zoek naar een dergelijke code
in het voorbeeldbestand, erg frusterend:evil:
Ik had deze vraag beter als opgelost kunnen zetten en een nieuwe vraag stellen.
En dan, zoals je al aangaf, alles zo beknopt mogelijk.
Nogmaals mijn excuus

 

[AD1957]

Ik heb de code van VenA als eerste gebruikt, werkt perfect:thumb:

Durf het bijna niet te vragen:
De eerste code werkt perfect (Preview voor het eerste kwartaal)
Wat gaat er nu fout bij de tweede code(Preview voor de maand januari)

Private Sub CommandButton4_Click()
Unload Me
[H1] = "4e kwartaal"
With Sheets("verkoopboek").ListObjects(1).Range
    .AutoFilter 1, xlFilterAllDatesInPeriodQuarter4, xlFilterDynamic
    .PrintPreview
    .AutoFilter
  End With
Sheets("verkoopboek").Range("H1") = ""
End Sub

Private Sub CommandButton5_Click()
Unload Me
With Sheets("verkoopboek").ListObjects(1).Range
    .AutoFilter 1, xlFilterAllDatesInPeriodMonth1, xlFilterDynamic
    .PrintPreview
    .AutoFilter
  End With
End Sub

 

[VenA]

Ik begrijp nu na enig nadenken wat jij precies bedoeld onder #17

Blijkbaar niet.

 

[HSV]

Private Sub CommandButton4_Click() ' BOEKEN FACTUUR
  Sheets("verkoopboek").ListObjects(1).ListRows.Add.Range.Resize(, 9) = Array(Range("F18").Value, Range("F20").Value, Range("F21").Value, _
      Range("B20").Value, Range("F77").Value, Range("F75").Value, Range("D75").Value, Range("F76").Value, Range("D76").Value)
  End Sub

 

[AD1957]

Hallo Harry,
bedankt voor jouw code, er "lijden" vele wegen naar Rome

mijn laatste vraag heb ik opgelost met dank aan snb zie http://www.snb-vba.eu/VBA_Autofilter.html VBA voor smarties:thumb:

Private Sub CommandButton5_Click() 'printpreview januari
Unload Me
[H1] = "januari"
With Sheets("verkoopboek").ListObjects(1).Range
    .AutoFilter 1, xlFilterAllDatesInPeriod[COLOR="#FF0000"]January[/COLOR], xlFilterDynamic
    .PrintPreview
    .AutoFilter
  End With
 Sheets("verkoopboek").Range("H1") = ""
End Sub