meer dan 265 rijen kopieren transpo plakken, probleem maar 265 kolommen beschikbaar!

[nout]

Met het kopieren/plakken van data loop ik tegen het probleem aan dat excel(2003) maar 265 kolomen heeft. Ik zou deze data dan moeten verdelen over meerder bladen. Kan iemand mij helpen hij moet eerst de range tellen en dan plakken naar meerder bladen of niet.

BV
range kopieren is A1 t/m A500 , deze wil ik transpose true plakken.

huidige regel
Range("G15:G" & Cells(Rows.Count, 7).End(xlUp).Row).Copy
DoelSheet.Range("F2").PasteSpecial Transpose:=True

Bij voorbaat dank,

Nout

 

[TomP]

Bekijk bijlage test.xlsm

Zie bijlage.
Voor elke 250 regels een nieuwe tabblad aanmaken en de beperkte range naar die nieuwe tabblad transponeren en plakken.
Dat zou er zo uit kunnen zien.

Helpt dit je in de goede richting?
Gr. Tom

x = 0
While x < Sheets("blad3").Cells(Rows.Count, 1).End(xlUp).Row

    Sheets("blad3").Range(Sheets("blad3").Cells(x + 1, 1), Sheets("blad3").Cells(x + 250, 1)).Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Range("A1").PasteSpecial Transpose:=True
    x = x + 250

Wend