Discussion:
Afdrukbereik bepalen op basis van inhoud cel
(te oud om op te antwoorden)
Ruud Trietsch
2009-01-01 14:06:37 UTC
Permalink
Wie helpt mij met dit probleempje?

In een werkblad heb ik 250 records staan, die samengesteld worden op basis
van een formule.
In kolom A1:A250 staat een werknemernummer waarbij (bijvoorbeeld) 150 regels
een waarde hebben gekregen en de resterende 100 een #NB.

Hoe kan ik een macro maken die het afdrukbereik bepaalt voor die regels die
een waarde bevatten (het afdrukbereik bevat dus geen regels waar kolom A een
#NB-teken bevat).

Bedankt alvast.

Ruud Trietsch
Wigi
2009-01-01 14:38:01 UTC
Permalink
ActiveSheet.PageSetup.PrintArea = Columns(1).SpecialCells(xlCellTypeFormulas,
7).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wie helpt mij met dit probleempje?
In een werkblad heb ik 250 records staan, die samengesteld worden op basis
van een formule.
In kolom A1:A250 staat een werknemernummer waarbij (bijvoorbeeld) 150 regels
een waarde hebben gekregen en de resterende 100 een #NB.
Hoe kan ik een macro maken die het afdrukbereik bepaalt voor die regels die
een waarde bevatten (het afdrukbereik bevat dus geen regels waar kolom A een
#NB-teken bevat).
Bedankt alvast.
Ruud Trietsch
Ruud Trietsch
2009-01-01 15:08:16 UTC
Permalink
Wigi,

Ik snap niet helemaal wat je bedoeld. Mijn werkblad ziet er als volgt uit:

Kolom A B C D E
Rijnr 1 26378
..
Rijnr 149 79788
Rijnr 150 12345
Rijnr 151 #NB
Rijnr 152 #NB

De macro moet nu kijken welke rijen binnen het afdrukbereik vallen = rij 1
t/m rij 150. Het afdrukbereik wat er nu moet worden aangemaakt bevat A1 t/m
E150.

Alsvast dank voor je hulp!

Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wie helpt mij met dit probleempje?
In een werkblad heb ik 250 records staan, die samengesteld worden op basis
van een formule.
In kolom A1:A250 staat een werknemernummer waarbij (bijvoorbeeld) 150 regels
een waarde hebben gekregen en de resterende 100 een #NB.
Hoe kan ik een macro maken die het afdrukbereik bepaalt voor die regels die
een waarde bevatten (het afdrukbereik bevat dus geen regels waar kolom A een
#NB-teken bevat).
Bedankt alvast.
Ruud Trietsch
Wigi
2009-01-01 20:41:00 UTC
Permalink
Als je van kolom A tot en met E wil hebben:

ActiveSheet.PageSetup.PrintArea = Columns(1).SpecialCells(xlCellTypeFormulas,
7).Resize(,5).Address

Voeg dus Resize tussen met 5 kolommen.
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wigi,
Kolom A B C D E
Rijnr 1 26378
...
Rijnr 149 79788
Rijnr 150 12345
Rijnr 151 #NB
Rijnr 152 #NB
De macro moet nu kijken welke rijen binnen het afdrukbereik vallen = rij 1
t/m rij 150. Het afdrukbereik wat er nu moet worden aangemaakt bevat A1 t/m
E150.
Alsvast dank voor je hulp!
Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wie helpt mij met dit probleempje?
In een werkblad heb ik 250 records staan, die samengesteld worden op basis
van een formule.
In kolom A1:A250 staat een werknemernummer waarbij (bijvoorbeeld) 150 regels
een waarde hebben gekregen en de resterende 100 een #NB.
Hoe kan ik een macro maken die het afdrukbereik bepaalt voor die regels die
een waarde bevatten (het afdrukbereik bevat dus geen regels waar kolom A een
#NB-teken bevat).
Bedankt alvast.
Ruud Trietsch
Ruud Trietsch
2009-01-01 21:19:28 UTC
Permalink
Wigi,

Het zal wel mijn onervarenheid zijn met VB, maar ik heb je stukje script in
een macro opgenomen en het aantal kolommen geresized zoals je aangeeft.
Bij het uitvoeren van de macro ontstaat een fout bij dit stukje script.

Kun je mij aangeven hoe de macro er dan uit moet zien?
In het script heb ik nu staan dat de kolommen A:N moeten worden
geselecteerd, maar ik wil dus alleen rijen hebben waarbij in kolom A geen
waarde #NB staat

Sheets("Output").Select
Columns("A:N").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

B.v.d

Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Resize(,5).Address
Voeg dus Resize tussen met 5 kolommen.
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wigi,
Kolom A B C D E
Rijnr 1 26378
...
Rijnr 149 79788
Rijnr 150 12345
Rijnr 151 #NB
Rijnr 152 #NB
De macro moet nu kijken welke rijen binnen het afdrukbereik vallen = rij 1
t/m rij 150. Het afdrukbereik wat er nu moet worden aangemaakt bevat A1 t/m
E150.
Alsvast dank voor je hulp!
Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wie helpt mij met dit probleempje?
In een werkblad heb ik 250 records staan, die samengesteld worden op basis
van een formule.
In kolom A1:A250 staat een werknemernummer waarbij (bijvoorbeeld) 150 regels
een waarde hebben gekregen en de resterende 100 een #NB.
Hoe kan ik een macro maken die het afdrukbereik bepaalt voor die
regels
die
een waarde bevatten (het afdrukbereik bevat dus geen regels waar kolom
A
een
#NB-teken bevat).
Bedankt alvast.
Ruud Trietsch
Wigi
2009-01-02 00:06:00 UTC
Permalink
Als de formules als waarden geplakt worden, ga je uiteraard een fout krijgen
bij xlCellTypeFormulas aangezien er geen cellen meer zijn met formules. Dan
moet je de cellen met constanten opvragen:

Doe:

ActiveSheet.PageSetup.PrintArea = Columns(1).SpecialCells(xlCellTypeConstants,
7).Resize(,14).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wigi,
Het zal wel mijn onervarenheid zijn met VB, maar ik heb je stukje script in
een macro opgenomen en het aantal kolommen geresized zoals je aangeeft.
Bij het uitvoeren van de macro ontstaat een fout bij dit stukje script.
Kun je mij aangeven hoe de macro er dan uit moet zien?
In het script heb ik nu staan dat de kolommen A:N moeten worden
geselecteerd, maar ik wil dus alleen rijen hebben waarbij in kolom A geen
waarde #NB staat
Sheets("Output").Select
Columns("A:N").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
B.v.d
Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Resize(,5).Address
Voeg dus Resize tussen met 5 kolommen.
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wigi,
Kolom A B C D E
Rijnr 1 26378
...
Rijnr 149 79788
Rijnr 150 12345
Rijnr 151 #NB
Rijnr 152 #NB
De macro moet nu kijken welke rijen binnen het afdrukbereik vallen = rij 1
t/m rij 150. Het afdrukbereik wat er nu moet worden aangemaakt bevat A1 t/m
E150.
Alsvast dank voor je hulp!
Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wie helpt mij met dit probleempje?
In een werkblad heb ik 250 records staan, die samengesteld worden op basis
van een formule.
In kolom A1:A250 staat een werknemernummer waarbij (bijvoorbeeld) 150 regels
een waarde hebben gekregen en de resterende 100 een #NB.
Hoe kan ik een macro maken die het afdrukbereik bepaalt voor die
regels
die
een waarde bevatten (het afdrukbereik bevat dus geen regels waar kolom
A
een
#NB-teken bevat).
Bedankt alvast.
Ruud Trietsch
Ruud Trietsch
2009-01-02 21:12:45 UTC
Permalink
Wigi,

Inmiddels de oplossing van jou (en van Jan) kunnen uitproberen. Draait nu
als een zonnetje.
Ook voor jou: superbedankt voor de oplossing.

Groet en goed weekeind,

Ruud Trietsch
Post by Wigi
Als de formules als waarden geplakt worden, ga je uiteraard een fout krijgen
bij xlCellTypeFormulas aangezien er geen cellen meer zijn met formules. Dan
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeConstants,
7).Resize(,14).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wigi,
Het zal wel mijn onervarenheid zijn met VB, maar ik heb je stukje script in
een macro opgenomen en het aantal kolommen geresized zoals je aangeeft.
Bij het uitvoeren van de macro ontstaat een fout bij dit stukje script.
Kun je mij aangeven hoe de macro er dan uit moet zien?
In het script heb ik nu staan dat de kolommen A:N moeten worden
geselecteerd, maar ik wil dus alleen rijen hebben waarbij in kolom A geen
waarde #NB staat
Sheets("Output").Select
Columns("A:N").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
B.v.d
Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Resize(,5).Address
Voeg dus Resize tussen met 5 kolommen.
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wigi,
Kolom A B C D E
Rijnr 1 26378
...
Rijnr 149 79788
Rijnr 150 12345
Rijnr 151 #NB
Rijnr 152 #NB
De macro moet nu kijken welke rijen binnen het afdrukbereik vallen =
rij
1
t/m rij 150. Het afdrukbereik wat er nu moet worden aangemaakt bevat
A1
t/m
E150.
Alsvast dank voor je hulp!
Ruud Trietsch
Post by Wigi
ActiveSheet.PageSetup.PrintArea =
Columns(1).SpecialCells(xlCellTypeFormulas,
7).Address
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music
Post by Ruud Trietsch
Wie helpt mij met dit probleempje?
In een werkblad heb ik 250 records staan, die samengesteld worden
op
basis
van een formule.
In kolom A1:A250 staat een werknemernummer waarbij (bijvoorbeeld)
150
regels
een waarde hebben gekregen en de resterende 100 een #NB.
Hoe kan ik een macro maken die het afdrukbereik bepaalt voor die
regels
die
een waarde bevatten (het afdrukbereik bevat dus geen regels waar kolom
A
een
#NB-teken bevat).
Bedankt alvast.
Ruud Trietsch
Loading...