Printen op selectie

[sparerib]

Beste,

Ik heb een een bestand van 523 rijen en 9 kolommen.
In alle 523 rijen staan in alle 9 kolommen een 0.
Dit betekent dat er 0 vragen goed zijn beantwoord.
Als er in een ander werkblad een vraag goed word beantwoord door een deelnemer
Dan komt er in zijn rij bij kolom vraag 1 bijvoorbeeld een aantal punten te staan.
Met het minimale van 1.
In kolom I worden alle punten opgeteld van alle overige kolommen.
Nu wil ik graag een knop (macro) hebben waar ik op klik en hij automatisch gaat printen.
Maar ik wil alleen de rijen printen waar een 1 of hoger staat in kolom I
Het liefst heb ik ook nog dat hij ze gaat sorteren. Bijvoorbeeld deelnemer 8 die heeft 12 punten en staat bovenaan. en deelnemer 2 heeft er 11 en die staat dan 2de.

Ik heb een voorbeeld bestand gemaakt met 10 rijen.
In het orginele bestand staat er in elke cel van B2:I10 een formule.

Ik hoop duidelijk genoeg te zijn!
En alvast bedankt!

 

[Cobbe]

Als je de bereiken aanpast zal een en ander wel doen wat je wil.

Sub Ordenen()
    With Range("A2:I11")
        .Sort Key1:=Range("I2"), Order1:=xlDescending
        .Select
        .AutoFilter
    Selection.AutoFilter Field:=9, Criteria1:="<>0", Operator:=xlAnd
    ActiveWindow.SelectedSheets.PrintPreview
        .AutoFilter
    End With
End Sub

Suc6, Cobbe

 

[sparerib]

Bedankt

Beste Cobbe,

Dit vind ik een heel mooi systeem en dit is ook zoals ik het graag had gehad.
Maar nu nog 1 probleem.
Als hij in de printpreview is geweest, en ik print hem en uiteindelijk ga ik terug.
Is alles nog steeds gesorteerd.
Ik wil dat dan graag weer hebben gesorteerd op nummer!
Zou dit kunnen?
Bedankt alvast!

 

[Cobbe]

Kleine toevoeging:

Sub Ordenen()
    With Range("A2:I11")
        .Sort Key1:=Range("I2"), Order1:=xlDescending
        .Select
        .AutoFilter
    Selection.AutoFilter Field:=9, Criteria1:="<>0", Operator:=xlAnd
    ActiveWindow.SelectedSheets.PrintPreview
        .AutoFilter
        .Sort Key1:=Range("A2"), Order1:=xlAscending
    End With
End Sub

Mvgr. Cobbe

 

[sparerib]

Cobbe,

Je bent mijn held
Bedankt!
Ik heb nu een zeer duidelijk project kunnen afronden, dat makkelijk werkt!
Door dit forum! Vind ik het eindresultaat GENIAAL!
Ik streef altijd naar een 10 en alles wat ik maak vind ik nooit goed genoeg. Maar nu loop ik toch wel richting de 10 aan
En dat heb ik te danken aan dit forum!
Bedankt!!!!