Array vraag

[drommels]

Ik wil het volgende maken, zie bijgevoegde Excel:
De informatie uit Cellen B4-J36 en verder naar beneden heb ik.
Deze informatie heb ik al gesorteerd op Boardnummer (Kolom C) en Boardterminal (kolom F)
Nu wil ik voor verdere verwerking alle gegevens van Board 02/01 in 1 rij hebben Cellen N4-ES4, op dit moment heb ik met de hand de verwijzingen gemaakt, maar er zou toch een makkelijkere manier moeten zijn om dit te doen.
Ik zat te denken aan een Array, deze heb ik aangemaakt met de naam "Info". Als ik nu Cel N4 een formule kan zetten welke uit het Array Info rij 1 tm 16 pakt, en deze informatie achter elkaar op één rij zet.
Hierna zou in cel N5 de informatie uit array Info rij 17 tm 32 moeten komen en zo verder.

Enkel is mijn Array kennig niet zo groot dat ik dit snel uit kan voeren, hebben jullie ideeen?

Alvast bedankt.

 

[snb]

Ik heb kolom A verwijderd

Sub tst()
With Blad1.Cells(1, 1).CurrentRegion
.AutoFilter 2, "BOARD 02/01"
.Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheets(2).Range("A1")
.AutoFilter
For Each rw In Sheets(2).Range("a1").CurrentRegion.Rows
c0 = c0 & "|" & Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rw)), "|")
Next
sheets(2).cells.clearcontents
Sheets(1).Cells(Rows.Count, 13).End(xlUp).Offset.Resize(, UBound(Split(c0, "|"))) = Split(c0, "|")
End With
End Sub

 

[drommels]

Waar zet ik dit neer?

 

[snb]

Het is een macro.
Kijk in de hulpfunktie van Excel voor meer informatie.

 

[Roncancio]

Waar zet ik dit neer?

- Ga naar Extra - Macro - Visual Basic Editor (of Alt-F11)
- Ga naar Invoegen - Module
- Plak daar de code in.

Je kunt vervolgens de code starten in dit scherm via F5
In Excel kan je de macro starten via Extra - Macro - Macro's en de naam van de macro (tst).

Met vriendelijke groet,


Roncancio

 

[drommels]

Het is gelukt hoor, scheelt mij weer een hoop typwerk.