kopieën maken van kolom afhankelijk van waarde in A1

[jen]

Weet iemand welke code ik moet gebruiken in het volgende voorbeeld:


Op blad 1 staat in cel A1 het getal 1.

Op blad 2 moet van kolom A een kopie gemaakt worden naar B.

Als in A1 op blad 1 het getal 2 staat, dan moet een kopie van A gemaakt worden naar B en C

Het getal dat ingevuld kan worden bij A1 kan oplopen tot 10.

 

[Wigi]

Sub kolommenkopieren()
    
    With Sheets("Blad2")
        .Columns(1).Copy .Range("B1").Resize(, Sheets("Blad1").Range("A1").Value)
    End With
    
End Sub

Wigi

 

[jen]

Wigi,

Dit werkt perfect, heel erg bedankt!

Jen