• 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.

splitsen tabel / verdelen in 2

Status
Niet open voor verdere reacties.
M

moensk

Gebruiker
Lid geworden
23 jun 2013
Berichten
712
Daar het nogal complex is om neer te schrijven een kort voorbeeld in bijlage gedaan

ik heb een tabel in kolom B-C-D
ik wil deze splitsen en in 2 verdelen zodat er minder rijen worden gebruikt.
mag wel niet vrij splitsen, tabel moet in 2 gekapt worden en onderste deel er naast geplakt worden.
dit moet automatisch gebeuren, dus niet met eenvoudig manueel knippen en plakken.

graag jullie advies

Bekijk bijlage voorbeeld.xlsx
 
Code: 
Sub hsv()
Dim sv, i As Long, j As Long, x As Long
sv = Cells(1, 2).CurrentRegion.Resize(, 6)
 n = 3
         sv(2, 4) = sv(2, 1)
         sv(2, 5) = sv(2, 2)
         sv(2, 6) = sv(2, 3)
          
  For i = 2 To UBound(sv)
    x = x + 1
     If x > UBound(sv) \ 2 Then
         For j = 4 To 6
             sv(n, j) = sv(i, j - 3)
             sv(i, j - 3) = ""
           Next j
        n = n + 1
     End If
   Next i
 Cells(15, 7).Resize(UBound(sv), 6) = sv
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan