Printen onder voorwaarden

[romian]

Beste lezers,
Wat ik graag wil bereiken met een macro:
Een aantal bladen in een excelbestand printen onder voorwaarde
dat b.v. in cel A1 een "P" staat; anders dus niet printen.
Kan dat en zoja wie kan mij daarbij helpen
Alvast bedankt voor het lezen romian

 

[oeldere]

begin eerst eens met een voorbeeldbestandje (ontdaan van gevoelige info)

dan kunnen we al zien wat je hebt, en hoe dit opgelost kan worden.

aanpassing:
Romian,

Heb je de Forumregels gelezen en dan met name het stukje over Crossposting? Als je lid wordt van een Forum lees dan de regels

met vriendelijke groeten,

Oeldere

 

[Thankyou]

@ oeldere,

Crossposting is op helpmij.nl toegestaan, anders had ik hier het bericht ook wel geplaatst.
Hoewel het duidelijk mag zijn dat crossposting door veel vrijwilligers niet in dank wordt afgenomen.

Martin

 

[romian]

Sorry voor de crossposting maar ik was er niet van op de hoogte dat Worksheet een
onderdeel was van Hetpmij.
Kan ik nu nog een antwoord verwachten?
romian

 

[Roncancio]

Kan ik nu nog een antwoord verwachten?

Bij deze:

Sub Printen()
Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Range("A1").Value = "P" Then sh.PrintOut
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[romian]

Zeer bedankt Roncancio voor de code.
Ik moet dat nog even in VBA zien te krijgen.
zodra het voor elkaar is meld ik mij en anders ook in de hoop...........
Vriendelijke groet romian

 

[romian]

Roncansio,
Wat een genot,werkt perfect zo.
Vriendelijk bedankt romian