Formulier laten herhalen d.m.v. pulldown selectie

[wezep]

Ik heb een tabel in Excel staan dat ingevuld moet worden.

Ik wil graag een pulldown met 1 t/m 10, als ik 5 selecteer dan moet het tabel 5 x verschijnen op mijn werkblad.

Ik kan aardig goed overweg met formules alleen van VBA heb ik totaal geen kaas gegeten!

Check bijlage. Ik hoop dat mijn vraagstelling een beetje duidelijk is.

bijlage werkt niet, probeer deze link http://www.puttenstein.com/test1.rar

http://www.puttenstein.com/test1.rar

 

[Warme bakkertje]

Plaats onderstaande in de bladmodule waarop de tabel staat. Wijzig in de macro C1 naar de cel waarin de validatielijst staat.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        For i = 1 To Target.Value
            Range("G7:Q10").Copy
            Range("G100").End(xlUp).Offset(3).PasteSpecial xlPasteAll
        Next
    End If
    Application.CutCopyMode = False
End Sub

 

[wezep]

Wow super bedankt!!

 

[wezep]

Hmm iets te vroeg gejuicht .

Op dit moment worden de onderstaande cellen overschreven. Is het ook mogelijk om de gekopieerde selectie te laten invoegen?

Zie deze bijlage:

http://www.puttenstein.com/test2.rar

Alvast bedankt! :d

 

[Warme bakkertje]

Je laatste link naar je bestand is corrupt.

 

[wezep]

Oja, gefixed!

 

[wezep]

Hmm ik heb zelf ook nog geknooid, maar helaas zonder resultaat. Waar staat bijvoorbeeld Range("G100") voor?

 

[Warme bakkertje]

Test deze eens.

 

[wezep]

Hmm, volgens Excel zit er in fout in If [CPP]Target.Address = "$M$5" And Target <> "" Then[/CPP]

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$M$5" Then
        If Target <> "" Then
        For i = 1 To Target.Value * 5
            Rows(13).Insert
        Next
        For j = 1 To Target.Value
            Range("Materialen_Productie").Copy
            Range("Start").End(xlUp).Offset(3, -1).PasteSpecial xlPasteAll
        Next
        End If
    End If
    If Target.Address = Range("Aantal_Bouw").Address Then
        If Target <> "" Then
        For i = 1 To Target.Value
            Range("Materieel_Bouw").Copy
            Range("L200").End(xlUp).Offset(3).PasteSpecial xlPasteAll
        Next
        End If
    End If
    Application.CutCopyMode = False
End Sub