print macro

[lecxe]

is er een macro voor het volgende:
Ik heb een werkblad met 3 bladen.
Twee bladen worden uitgeprint door middel van een macro.
Derde blad moet alleen uitgeprint worden als er een bepaalde waarde in een bepaalde cel staat in het derde blad.

Dus bijv. blad3 cel A1 = 0 dan wordt blad1 en blad2 uitgeprint
staat er blad3 cel A1 = 1 dan wordt blad 1, blad2 en blad3 uitgeprint

Beetje duidelijk?

ik hoor het wel als er nog uitleg nodig is

 

[brandernl]

Beetje duidelijk.............
Wat staat er op die sheets? Ik bedoel alle informatie in aaneengesloten rijen en kolommen?
Of verspreid?
Of alleen een bepaald gedeelte?
Moet alles afgedrukt worden?
Hoeveel weet u van VBA?

Doe anders een voorbeeld erbij, dat zegt vaak meer.

 

[lecxe]

Eerste twee bladen worden gemaakt met een macro.
Het zijn recepten om producten te maken, dus deze verandener elke keer van waarden en opmaak. Dit is overigens een keer voor ons gemaakt.
Nou heb ik er zelf een blad achter gemaakt die informatie uit de eerste twee bladen haalt. Dit doe ik met een zelf gemaakte macro. De ene keer is blad drie leeg en de andere keer staat er wel data in.
Dus als er data staat in blad 3 dan alledrie uitprinten(alle data die op deze paginas staat) en anders als blad 3 leeg blijft alleen blad 1 en 2

Wat VBA betreft ben ik nog een leek.

 

[brandernl]

Sub PrintBladen()
If Worksheets("blad3").Range("A1").Value = 0 Then
Worksheets("blad1").PrintOut Copies:=1
Worksheets("blad2").PrintOut Copies:=1
ElseIf Worksheets("blad3").Range("A1").Value = 1 Then
Worksheets("blad1").PrintOut Copies:=1
Worksheets("blad2").PrintOut Copies:=1
Worksheets("blad3").PrintOut Copies:=1
End If
End Sub

Misschien kan het schoner, maar dan hoor ikdat wel van LucB

 

[LucB]

Bernard,
Hier ben ik met dezelfde knipoog.

Wat gebeurt er als in A1 van blad3 geen 0 of 1 staat
maar iets anders?

 

[brandernl]

Dan doet ie niets.

Misschien een MsgBox met een melding er aan toevoegen?

 

[lecxe]

heey brandernl grote :thumb:

hij is perfect kan zelfs de afdrukvolgorde aanpassen.

Ik heb em trouwens zelf aangepast door de =-teken te vervangen door het >-teken
Dus value=0 en value>0

Dus voormij werkt ie perfect