ThomasBakker
Nieuwe gebruiker
- Lid geworden
- 21 jul 2017
- Berichten
- 3
Goedenavond,
Ik heb een issue en ik kom er niet uit.
Ik heb een database met 700 rijen.
Ik ga een zo goed mogelijk en uitgebreid beeld proberen te scheppen.
Ik heb meerdere macro's om kolom 1 van A tot J te filteren.
Ik heb meerdere rijen (1-4) die ik vast wil zetten bovenaan ieder blad wat ik print.
Ik wil dat, zodra ik op 1 knop klik, het macro wordt toegepast van het filter.
Vervolgens wil ik dat bij diezelfde klik het printarea wordt geselecteerd op basis van de actieve area.
Ik wil daarbij bepaalde kolommen uitsluiten.
Dan moeten de rijen 1 tot en met 4 bovenaan de pagina komen te staan.
Vervolgens moet het document worden getoond in een afdrukvoorbeeld.
Ik ben heel erg nieuw met scripten van VBA in excel en tot nu toe lukt het zeer goed.
Dit is gewoon een issue waar ik niets van snap.
Dit is wat ik zelf ongeveer dacht.
Corrigeer me alsjeblieft als het helemaal nergens op lijkt..
Hij filtert eerst de regio die ik hebben moet (als het goed is)
Dan stelt hij de printarea in op de huidige regio
Vervolgens print hij de huidige sheet
Alvast bedankt!
--
Private Sub Print_GroepA_Click()
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Range("$A$4:$AB$700").AutoFilter Field:=1, Criteria1:="A"
ActiveWindow.ScrollRow = 1
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address
ActiveSheet.PrintOut
End Sub
Ik heb een issue en ik kom er niet uit.
Ik heb een database met 700 rijen.
Ik ga een zo goed mogelijk en uitgebreid beeld proberen te scheppen.
Ik heb meerdere macro's om kolom 1 van A tot J te filteren.
Ik heb meerdere rijen (1-4) die ik vast wil zetten bovenaan ieder blad wat ik print.
Ik wil dat, zodra ik op 1 knop klik, het macro wordt toegepast van het filter.
Vervolgens wil ik dat bij diezelfde klik het printarea wordt geselecteerd op basis van de actieve area.
Ik wil daarbij bepaalde kolommen uitsluiten.
Dan moeten de rijen 1 tot en met 4 bovenaan de pagina komen te staan.
Vervolgens moet het document worden getoond in een afdrukvoorbeeld.
Ik ben heel erg nieuw met scripten van VBA in excel en tot nu toe lukt het zeer goed.
Dit is gewoon een issue waar ik niets van snap.
Dit is wat ik zelf ongeveer dacht.
Corrigeer me alsjeblieft als het helemaal nergens op lijkt..
Hij filtert eerst de regio die ik hebben moet (als het goed is)
Dan stelt hij de printarea in op de huidige regio
Vervolgens print hij de huidige sheet
Alvast bedankt!
--
Private Sub Print_GroepA_Click()
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Range("$A$4:$AB$700").AutoFilter Field:=1, Criteria1:="A"
ActiveWindow.ScrollRow = 1
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address
ActiveSheet.PrintOut
End Sub