• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kolom verdelen over meerdere kolommen om de pagina's te verminderen

Status
Niet open voor verdere reacties.
S

Sure

Nieuwe gebruiker
Lid geworden
19 nov 2017
Berichten
2
Geachte forumleden,

Graag zou ik een oplossing vinden voor het volgend probleem. Ik heb een bestand waarbij alleen de eerste kolom wordt gebrukt. Deze data wil ik verdelen over meerdere kolommen om bij het uitprinten van deze lijst het aantal geprinte pagina's te verminderen. Ik heb reeds gezocht op het internet, maar zie steeds de oplossing 'tekst naar kolommen'. Is er hiervoor een snellere manier dan knippen en plakken?
 
"tekst naar kolommen" niet snel genoeg?
 
Ik zie niet hoe. Ik wil van 5000 regels naar zo'n 1680. Waarbij eerst de eerste kolom alleen gebruikt werd, zou ik deze naar drie kolommen willen brengen.
 
Met de door jou opgegeven aantallen hard gecodeerd:
Code: 
Sub vp()
    cln = 2
    rwn = 1
    For i = 1681 To 5000
        If i = 3361 Then cln = 3: rwn = 1
        Cells(rwn, cln) = Cells(i, 1)
        rwn = rwn + 1
    Next i
    Rows("1681:5000").EntireRow.Delete
End Sub

Uiteraard doe je dit in een kopie van het originele document.
 
Soft.
Code: 
Sub hsv()
Dim sv, i As Long, j As Long, x As Long
sv = Cells(1).CurrentRegion
ReDim arr(UBound(sv), 2)
  For i = 1 To UBound(sv)
         arr(x, j) = sv(i, 1)
         x = x + 1
       If x > UBound(sv) \ 3 And j < 2 Then
         j = j + 1
         x = 0
       End If
     Next i
 Cells(1).Resize(UBound(arr), 3) = arr
End Sub
 
Laatst bewerkt:
Ik deed het hardcoded voor het begrip voor TS :)
 
Je leest wel "Soft", maar doet geen afbreuk aan jouw code Ed. :)
 
Dat begreep ik wel ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan