lijst aanvullen met macro

[Theophiel]

Bekijk bijlage Macro aanvullen.xlsmHallo beste forumleden,

Ik ben op zoek naar een macro die een variabele lijst moet aanvullen tot 16 gegevens.
De gegevens moeten gehaald worden van blad1 te beginnen vanaf rij 2 en aangevuld worden op blad 2 onder aan de lijst.
Kan iemand me op de goede weg helpen?

Alvast bedankt op voorhand!

 

[edmoor]

Je bedoeld zoiets?
Bekijk bijlage Macro aanvullen.xlsm

 

[Theophiel]

Hartelijk dank voor de snelle reactie,

Dit is bijna wat ik zoek maar de lijst op Blad2 mag niet groter worden dan 16 gegevens.
mijn aangebrachte macro filterd eerst wie op 1 staat, daarna wordt de lijst aangevuld met het resterende te beginnen van bovenaan

 

[edmoor]

Als je even leest wat er gebeurt kan je dat maximum van 16 er eenvoudig zelf in zetten.

 

[Theophiel]

Ok, hartelijk dank voor de tip

 For i = 2 To 17

Dat was'em zeker?

als de macro volledig is zoals ik hem wil post ik deze even

 

[edmoor]

Dat is inderdaad 1 van de mogelijkheden

 

[VenA]

Lijkt mij niet te kloppen met de vraagstelling tenzij er nog niets in Blad2 staat.

Sub VenA()
Dim lr
With Sheets("Blad2")
    lr = .Cells(Rows.Count, 2).End(xlUp).Row
    .Cells(lr, 1).Offset(1).Resize(17 - lr, 2) = Sheets("Blad1").Cells(2, 1).Resize(17 - lr, 2).Value
End With
End Sub