Invoertabel maken?

[Damkot]

Hallo,

Ik weet niet zeker of het zo heet, maar ik zou graag een soort van invoertabel maken. en wel met twee kolommen naast elkaar.
Het gaat om het volgende:

Als ik iets koop wil ik deze een naam en een code geven. 2 cellen naast elkaar. Als ik deze ingevoerd heb, wil ik gaan dat ze een aantal cellen onder de invoerplaats in een tabel verschijnen van hoog naar laag. Dus; als ik weer een nieuw artikel in zou voeren staat het meest recente artikel bovenaan met bv. nr 314, dan weet ik dat volgend gekochte artikel nr. 315 krijgt.
In de bijlage een soort van hulpbestandje met hoe ik het ongeveer zou willen.

Ik hoop dat iemand mij hier bij kan helpen!
Alvast bedankt ! Bekijk bijlage Excel hulp.xlsx

 

[Timshel]

Kijk hier eens naar:

 

[Damkot]

Kijk hier eens naar:

Bedankt!
Zou u mij uit kunnen leggen hoe u dit gedaan heeft? Dan kan ik het de volgende keer zelf

 

[Timshel]

Ja en nee.
Uit je vraag maak ik op dat je niet of nauwelijks bekend met macro's en vba.
Om je een indruk te geven kun je de Visual Basic-editor openen met ALT-F11. Hier kun je programma's maken om taken in Excel geautomatiseerd uit te voeren.
De macro die ik gemaakt hebt ziet er zo uit:

Private Sub Worksheet_Change(ByVal Doelwit As Range)
    If Doelwit.Address <> "$F$6" Or Doelwit.Count > 1 Then Exit Sub
    If Doelwit <> "" Then
        Application.EnableEvents = False
        Cells(Rows.Count, 5).End(xlUp).Offset(1).Resize(, 2).Value = Doelwit.Offset(, -1).Resize(, 2).Value
        [E9].CurrentRegion.Sort [E9], xlDescending, , , , , , xlYes
        Application.Goto [E6]
        Application.EnableEvents = True
    End If
End Sub

 

[Damkot]

Ja en nee.
Uit je vraag maak ik op dat je niet of nauwelijks bekend met macro's en vba.
Om je een indruk te geven kun je de Visual Basic-editor openen met ALT-F11. Hier kun je programma's maken om taken in Excel geautomatiseerd uit te voeren.
De macro die ik gemaakt hebt ziet er zo uit:

Private Sub Worksheet_Change(ByVal Doelwit As Range)
    If Doelwit.Address <> "$F$6" Or Doelwit.Count > 1 Then Exit Sub
    If Doelwit <> "" Then
        Application.EnableEvents = False
        Cells(Rows.Count, 5).End(xlUp).Offset(1).Resize(, 2).Value = Doelwit.Offset(, -1).Resize(, 2).Value
        [E9].CurrentRegion.Sort [E9], xlDescending, , , , , , xlYes
        Application.Goto [E6]
        Application.EnableEvents = True
    End If
End Sub

Ik begin er ondertussen steeds meer handigheid in te krijgen. Heb de code overgenomen naar het bronbestand maar ik krijg het niet werkend.
Ik denk dat het misgaat bij het gedeelte doelwit.address en doelwit.count.
Hoe geeft ik in die cellen aan dat dat mijn doelwit is?

 

[Timshel]

Gelieve niet onnodig te quoten.
Er kunnen meerdere redenen zijn dat de code in het bronbestand niet werkt.
De coderegel

...If Doelwit.Address <> "$F$6" Or Doelwit.Count > 1 Then Exit Sub...

betekent: voer de volgende coderegels alleen uit als de inhoud van cel F6 is veranderd en er bovendien maximaal 1 cel is geselecteerd. De $-tekens zijn verplicht in deze context.
Staat de code wel in de module van het werkblad? Als je de code in een gewone module plakt werkt het ook niet.
Als je er nog steeds niet uitkomt, plaats dan het bronbestand met de code, eventueel ontdaan van gevoelige info.

 

[Damkot]

Het is gelukt, bedankt!