blad vullen - cellen herverdelen

[sateliet]

van cel A1 tot cel A28850 staan er getallen.
als ik dit zou afprinten dan krijg ik vele pagina's
nu had ik graag bekomen dat hij kolommen B - C - D - ... automatisch vulde zodat ik papier spaar.
ik kan dit doen met handmatig te knippen en plakken doch dan ben ik wel even bezig
bestaat er een manier om dit automatisch te laten gebeuren

 

[Haije]

moeten de cellen na het afdrukken weer allemaal onder elkaar komen?

 

[sateliet]

neen - zij mogen zo blijven staan

 

[Haije]

en hoeveel regels passen er op een bladzijde?

 

[gelens]

Hallo,

Het kan met het volgende :

=INDIRECT("a"&RIJ()+(KOLOM()-1)*60)

Plaats deze formule in B1 en kopier tot en met regel 60 en daarna naar rechts hoever nodig is.
Hierdoor krijg je 60 regels op een A4. Kolom zijn afhankelijk van de inhoud van de cellen.

 

[sateliet]

gerard,

dan nummert hij zelf...
de waardes in de cellen van A1 to A28850 mogen niet veranderen
hij moet dus cel A60 tot A119 nemen en kopieren in B1 tot B60
dan A120 tot A179 kopieren naar C1 tot C60 enz ...

 

[gelens]

Hallo Sateliet,

Bij neemt hij de gegevens van de cellen over.
Ik heb er gewoon tekst in staan en dat werkt prima.

 

[gelens]

Hallo sateliet

Zie bijlage .

 

[Haije]

sateliet,

zet dit in een module:

Sub hs()
pag = InputBox("Hoeveel regels op één pagina?") + 1
regels = Range("A1").CurrentRegion.Rows.Count
For x = 1 To regels / pag
Range(Cells(pag, x), Cells(regels, x)).Cut Cells(1, x + 1)
regels = regels - pag
Next x
MsgBox "Klaar"
End Sub

 

[sateliet]

thanks allen - het werkt ...

 

[gelens]

Sateliet,

Graag gedaan.

Zet je de vraag dan als opgelost ?