Werkbladen printen

[Manke]

Ik heb een Excel bestand bestaande uit zo’n 200 werkbladen.
In elk werkblad staat bovenin cel A1 aangegeven of het betreffende werkblad al dan niet uitgeprint moet worden (“1” is nee, “0” is “ja”).

Is er een VB script die ik aan een button kan koppelen waarmee ik in 1 keer alle werkbladen print waarvan de waarde van het werkblad in A1= 1?

Ik hoop dat iemand mij hiermee kan helpen!

Marco

 

[Wigi]

Marco

Ik heb een Excel bestand bestaande uit zo’n 200 werkbladen.

:shocked: :shocked: Qua slecht spreadsheetdesign kan dit wel tellen (al kan het niet altijd eenvoudiger, maar HEEEL dikwijls wel.) Zie ook hier en hier.

Is er een VB script die ik aan een button kan koppelen waarmee ik in 1 keer alle werkbladen print waarvan de waarde van het werkblad in A1= 1?

Hier is het:

Sub werkbladenprinten()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook
    If wsh.Range("A1") = 0 Then wsh.PrintOut
Next
End Sub

Werkt het voor jou?

Wigi

PS: normaal gezien is 0 een neen en 1 een ja...

 

[Manke]

Hoi
Bedankt voor je snelle reactie, alleen ik krijg de melding:

Fout 438 tijdens uitvoering.
Deze eigenschap of methode wordt niet ondersteund door dit object.

Ik had onderstaande gekoppeld aan de button:

Private Sub CommandButton1_Click()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook
If wsh.Range("A1") = 1 Then wsh.PrintOut
Next
End Sub


(je had gelijk ik had de 0 en 1 omgedraaid).
De fout wordt aangegeven bij For Each....

Groet,

Manke

 

[Wigi]

Nog een klein stukje was op weg naar jouw ergens onderweg achter gebleven:

For Each wsh In ThisWorkbook[B].Sheets[/B]

Wigi

 

[Manke]

Wigi.... je bent geweldig!!
Het werkt als een trein en je hebt me enorm geholpen!!

Bedankt

Manke

 

[Wigi]

Wigi.... je bent geweldig!!

I know, I know

Grapje... Altijd bescheiden blijven hé.

Spendeer nog aandacht aan de links in een van mijn posts hierboven. 200 bladen is veel te veel.

Blij dat je geholpen bent.

Zet de vraag op opgelost aub.

Wigi