Keuzelijst maken

[lightning]

Ik heb een besturingselement (keuzelijst) ingevoegd op het werkblad Algemeen. De gegevens worden gehaald uit het tweede werkblad Producten. Zie bijage lijst.zip.

Telkens worden de gegevens geschreven naar een regel. Alle producten worden dus ingevoerd in één cel C4.

De vraag is hoe je met dit besturingselement telkens een product kunt schrijven naar een nieuwe regel in het werkblad Algemeen. Het eerst product komt dus in C4, het volgende product in C5, dan C6, enz.

 

[CorVerm]

Je kunt het best de zoekformule die je gebruikt om de geselecteerde waarde te zoeken onder de keuzelijst zetten. In dit voorbeeld C2 dus. Zet deze code onder een knop en klik daar op zodra je een keuze gemaakt hebt.

Sub aansluiten()
  Range("C2").Select
    Selection.Copy
    Range("C65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

 

[Wigi]

Ik zou deze code gebruiken:

Sub aansluiten()
    Sheets("Producten").Range("A" & Range("A1") + 2).Resize(, 3).Copy
    Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
    Range("A1").Select
End Sub

De keuzelijst is gelinkt met A1.

Zie bijlage.

Neem ook minder rijen voor de listbox. Maak bijvb. dynamisch.

Wigi

 

[lightning]

SCHITTEREND ! Bedankt voor de zeer vlotte bediening !:thumb: