Macro die telkens bij 1 cel er 1 bij optelt en weer dezelfde macro uitvoert

[maartenmars]

Hoi, ik heb een probleem. Ik wil een macro maken die een sheet print, bij cel (A1) er 1 bij telt waardoor de sheet wordt voorzien van een andere naam en dan wederom de sheet print. Totdat hij bij het maximale nummer is (die staat in cel M1) en dan moet hij stoppen met de macro. Nu weet ik de macro voor het printen wel, maar weet ik niet hoe ik dat kan combineren met het wisselen van nummer in cel (M1)??? Iemand een idee?

Alvast bedankt!

Maarten

 

[HSV]

Als de code goed werkt, maak je van .PrintPreview → .PrintOut.

Sub prnt()
 With Sheets("Sheet2")
   Do Until .Cells(1) = .Range("M1") + 1
     .PrintPreview
     .Cells(1) = .Cells(1) + 1
   Loop
    .Cells(1) = 81
   End With
End Sub

 

[Mark xl]

Ha maarten,
het kan ook nog op een andere manier. zonder verticaal zoeken, direct met de lijst van je blad1

hier de code met wat uitleg

Sub testPrint()

    Dim printList As Variant        'de lijst met namen
    Dim nextName(1 To 2) As String  'de volgende naam in de lijst

    Dim name As Long                'het nummer van de naam

    With Sheets("Sheet1")
        'sla de lijst met namen op in de printlist
        printList = .Range("A1", .Range("B1000").End(xlUp))
    End With

    For name = 1 To UBound(printList)   ' = grootte van de lijst

        nextName(1) = printList(name, 1)    ' het nummer
        nextName(2) = printList(name, 2)    ' de bijbehorende naam

        With Sheets("Sheet2")

            .Range("A1:B1") = nextName      ' de naam invullen
            '.PrintOut                       ' het sheet printen

        End With

    Next

End Sub