Macro aanmaken voor uitprinten met wijziging van 1 cel

[spartaanse]

Goedenavond!

Ik heb even een vraag. hoop dat iemand me kan helpen.

ik heb 2 tabbladen in excel, 1 waar een overzicht staat, deze moet ongeveer 26x worden uitgeprint, echter moet daarvan 1 cel steeds gewijzigd worden naar een waarde die verwijst naar een cel in tablad 2. De wijzigingen staan in tabblad 2 in A2 tm A27 en de wijziging voor het uitprinten moet steeds in tabblad 1 in cel B4.

Kan iemand mij hierbij helpen?
Alvast bedankt!

 

[Niels28]

Sub printen()
For x = 1 To 26
Sheets(1).Range("a4").Value = Sheets(2).Cells(x + 1, 1).Value
Sheets(1).PrintOut
Next
End Sub

Ps je hebt het over ongeveer 26, als dit aantal steeds wijzigd en er staat verder niks in kolom a dan
wordt die 26 automatisch aangepast bij de volgende macro.

Sub printen()
irow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row - 1
For x = 1 To irow
Sheets(1).Range("a4").Value = Sheets(2).Cells(x + 1, 1).Value
Sheets(1).PrintOut
Next
End Sub

Niels

 

[spartaanse]

Goedemorgen,

Ik heb het getest, maar helaas. Wat doe ik fout?
In sheet2 staan de gegevens die steeds per print gewijzigd moet worden in sheet1 in cel B4.
dus per print moet cel B4 gewijzigd worden naar 1 van de ingevulde cellen in sheet2 in kolom A

 

[Niels28]

In de macro staat A4 dit moet je veranderen in B4
Zonder info wat er niet werkt weet ik ook niet wat je verkeerd doet.

Niels

 

[spartaanse]

ik had hem er verkeerd ingezet tis nog vroeg haha.
Dank je!