Print Macro van bepaalde tabbladen afhankelijk van waarde in een vaststaande cel

[Platwaterken]

Hoi,

Ik heb een workbook met ongeveer 48 tabbladen. Elke tabblad heeft onderstaande koptekst die vast is qua lay-out en cellen :thumb: :


Beschermd persoon: x
Dossiernummer: x
A.R. nr (rolnummer): x
Periode beheersrekening: xx/xx/xxxx - xx/xx/xxxx

2.3. Pensioen (gewoon, brug- of aanvullend) 12.918,33 €
datum Omschrijving bedrag

De "12.918,33 €" in dit voorbeeld is de som van de maandelijkse pensioen inkomsten., die vanaf lijn 9 worden opgesomd. Het gaat hier altijd om een vaste cel, namelijk "E7"

Zoals ik al schreef heb ik zo 48 tabbladen (soorten inkomsten / uitgaven), die soms van toepassing zijn (soms uitkering, soms loon, soms pensioen).
Ik zou een print button willen plaatsen op de eerste pagina die volgende macro uitvoert:

print alle tabbladen die een getal verschillend van nul tonen in cel E7.
Indien er enkel pensioen is, dan moeten de tabbladen "uitkering" (cel E7 van dat tabblad = 0) en "loon" (E7 = 0) niet afgedrukt worden. E7 is het resultaat van een som en geen 'hardcoded' getal...

Qua print lay-out moet het portrait zijn en scaling is 1 page wide... soms gaat het om 1 lijn, soms 30 lijnen,...

Ik weet dat ik veel vraag , maar kan iemand mij helpen met een eerste insteek?

Alvast bedankt.

Kenny

 

[robdgr]

Kenny,

Ik ben bang dat je zonder een simpel voorbeeld met neutrale gegevens lang moet wachten.

 

[Platwaterken]

Rob,

Wat bedoel je? Een voorbeeld van de Macro of het excel bestandje?
Ik dacht dat mijn voorbeeldje in de vraag reeds vrij duidelijk was of niet?

bedankt.

 

[robdgr]

Een bestandje met de macro

 

[Platwaterken]

Neen, antwoord staat nog steeds open, maar heb nog geen tijd gehad om zelf al een de Macro te beginnen...

 

[TP1]

Kijk hier eens http://answers.microsoft.com/nl-nl/...-als-pdf/2fb2e4da-ee20-4ea4-acc3-84f003d31ae5


groet

Theo

Hoi,

Ik heb een workbook met ongeveer 48 tabbladen. Elke tabblad heeft onderstaande koptekst die vast is qua lay-out en cellen :thumb: :


Beschermd persoon: x
Dossiernummer: x
A.R. nr (rolnummer): x
Periode beheersrekening: xx/xx/xxxx - xx/xx/xxxx

2.3. Pensioen (gewoon, brug- of aanvullend) 12.918,33 €
datum Omschrijving bedrag

De "12.918,33 €" in dit voorbeeld is de som van de maandelijkse pensioen inkomsten., die vanaf lijn 9 worden opgesomd. Het gaat hier altijd om een vaste cel, namelijk "E7"

Zoals ik al schreef heb ik zo 48 tabbladen (soorten inkomsten / uitgaven), die soms van toepassing zijn (soms uitkering, soms loon, soms pensioen).
Ik zou een print button willen plaatsen op de eerste pagina die volgende macro uitvoert:

print alle tabbladen die een getal verschillend van nul tonen in cel E7.
Indien er enkel pensioen is, dan moeten de tabbladen "uitkering" (cel E7 van dat tabblad = 0) en "loon" (E7 = 0) niet afgedrukt worden. E7 is het resultaat van een som en geen 'hardcoded' getal...

Qua print lay-out moet het portrait zijn en scaling is 1 page wide... soms gaat het om 1 lijn, soms 30 lijnen,...

Ik weet dat ik veel vraag , maar kan iemand mij helpen met een eerste insteek?

Alvast bedankt.

Kenny

 

[Platwaterken]

Theo,

bedankt, ik ga het eens bekijken en uittesten.

Ik hou jullie op de hoogte.

thx

 

[Platwaterken]

Het is opgelost dankzij de tip van Theo.

Ik heb een (hidden) tabblad aangemaakt ("printblad") waar automatisch aangeduid wordt of een tabblad mag afgedrukt worden of niet.
Indien er in een bepaalde cel van dat tabblad (naam in kolom A) een getal staat verschillend van nul, dan verschijnt er "ja", indien deze cel een nulwaarde bevat verschijnt er "neen". De "ja" of "neen" verschijnt in kolom B.

Op basis van onderstaande macro en bovenstaand overzicht worden dan de tabbladen geselecteerd (actief gemaakt) en afgedrukt.

**********************************
Sub WerkbladenSelecteren()
Dim aTmp As Variant
Dim ITmp As Long
Dim sTmp As String
Dim rCelTabel

Set rCelTabel = Sheets("Printblad").[a1]
For ITmp = 1 To WorksheetFunction.CountA(rCelTabel.EntireColumn) - 1
If rCelTabel.Offset(ITmp, 1) = "ja" Then
sTmp = sTmp & rCelTabel.Offset(ITmp, 0) & "|"
End If
Next
sTmp = Left(sTmp, Len(sTmp) - 1)
aTmp = Split(sTmp, "|")
Worksheets(aTmp).Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


**************************************

Hopelijk kan bovenstaande oplossing ook anderen helpen.

End Sub