VBA: Udskriv udvalgte ark

Hvor skal markeringen stå? Har du et krav til hvad det er? En farve i cellen, "1" i en anden celle eller hvad?

Måske en ide at udskrive direkte hvis formlen er sand?

Der skal ikke laves en markering i arket, der skal blot laves en select/activate på arket, hvis betingelsen er opfyldt.

I dag markere jeg alle ark og får dermed udskrevet en masse ark, som bare skal smides ud - nemlig de ark, hvor celle K81=0.

Makroen skal gennemløbe alle ark i dokumentet - pånær de første 6 ark.

Håber det giver mening.

Denne tråd har noget af problemstillingen:

http://www.mrexcel.com/forum/excel-questions/61183-selecting-sheets-visual-basic-applications.html

Dim WS as Worksheet
For Each WS in ActiveWorkbook.Worksheets
    If WS.Range("K81").Value = 0 then WS.Select ' Find first one
Next
For Each WS in ActiveWorkbook.Worksheets        ' Find the rest
    If WS.Range("K81").Value = 0 then WS.Select False
Next

Så er de alle valgt/markeret, og du kan efterfølgende gøre med dem, hvad du vil...

Kunne godt se ud til at virke.
Men hvordan får jeg den til først at starte ved det 7. ark?

Hvad med

Sub SelectArk()
    Dim i As Integer
    For i = 7 To Worksheets.Count
        If Worksheets(i).Range("K81").Value > 0 Then
            Worksheets(i).Select
            Exit For
        End If
    Next
    For i = 7 To Worksheets.Count
        If Worksheets(i).Range("K81").Value > 0 Then
            Worksheets(i).Select False
        End If
    Next
End Sub

Det virker, tak.
Thor, vil du smide et svar, så kan du dele med Pistolprinsen.

Svar :)