Loop maken in een Macro

[roschatz]

Hallo allmaal,

Ik probeer een een code te maken die ervoor zorgt dat G:G eerst filter op nonblank daarna
daar de pagina uitprint, en daarna de kolom hide.

Dit proces wil ik herhalen t/m BU:BU

Ik heb alleen helaas geen idee hoe ik dit in een loop moet ziet.
zou iemand mij kunnen help

Bedankt


Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Selection.AutoFilter Field:=1
Columns("G:G").Select
Selection.EntireColumn.Hidden = True

Selection.AutoFilter Field:=2, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Selection.AutoFilter Field:=2
Columns("H:H").Select
Selection.EntireColumn.Hidden = True

 

[Gert Bouwmeeste]

Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Columns("G:G").Select
Selection.EntireColumn.Hidden = True

Ongeteste code:

Dim Teller

For Teller = 1 to 67

[INDENT]Selection.AutoFilter Field:=Teller, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate: =True
Selection.AutoFilter Field:=Teller
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.EntireColumn.Hidden = True 
[/INDENT]
Next