Alles onder elkaar in Cel JZ18

Status
Niet open voor verdere reacties.
S

samui

Verenigingslid
Lid geworden
26 mei 2012
Berichten
207
Hallo,

Ik heb een heleboel kolommen waar gegevens in staan, of gegevens in kunnen staan in de toekomst ( Alle blauwe cellen ) vanaf AS62 t/m IV150

Nu zou ik graag al deze gegevens onder elkaar zien vanaf cel JK62 (Niet zoals de titel zegt JZ18 :eek:)

Heeft iemand daar een mooi macrootje voor?

Alvast bedankt voor de reacties weer.

mvg, Frank
 

Bijlagen

  • Onder-elkaar.xlsm
    148 KB · Weergaven: 27
Laatst bewerkt:
Goedemorgen Frank,

Probeer deze eens:

Code: 
Sub SjonR()
arr = Range("AS62:IV150")

ReDim arr2(UBound(arr) * UBound(arr, 2), 1)

For i = 1 To UBound(arr, 2)
    For j = 1 To UBound(arr)
        If arr(j, i) <> "" Then
            arr2(n, 0) = arr(j, i)
            n = n + 1
        End If
    Next
Next

Range("JK62").Resize(UBound(arr) * UBound(arr, 2), 1) = arr2
End Sub
 
snb zei:
Wel erg veel lege vakken/dozen....

Is gebaseerd op toekomst, moet nog verder gevuld worden.
Maar beiden oplossingen zijn precies zoals het zo moeten.
Beiden bedankt weer voor de hulp.
Vraag wordt gesloten
@SjonR zal mijn lidmaatschap volgend jaar verlengen :thumb::thumb:
Klik om te vergroten...
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan