Invoegen waarde Via textbox na selectie combobox

[tomzyde]

Bekijk bijlage stocktest.xls
Ik zit in volgend bestand met een probleem, waar ik niet aan uitgeraak.
Mijn 'beperkte' kennis van vba laat me in de steek.

In volgend voorbeeld tabblad form met button om de form te starten, 2de tabblad met de gegevens.

het is dus de bedoeling om de form te starten, in de combobox een artiekel te selecteren, en in het tekstvak waar nu waarde 0 staat (kolomD) een stockwaarde in te vullen en deze weg te schrijven naast het juiste Artiekel en dit willekeurig.

Voel me dom dat ik dit niet vind, hopelijk kan iemand mij helpen.
thx tom

 

[OctaFish]

Bij mij deed-ie het ook niet, maar dat kwam omdat ik variabelen moest declareren. Daarna ging het (qua code) goed. Niet qua procedures:

Dim lRow As Integer, i As Integer
    With Sheets("blad")
        lRow = .Range("E32").End(xlUp).Row
        .Cells(lRow, 1) = TextBox82.Value
        For i = 82 To 82
            .Cells(lRow, i - 80) = Me("TextBox" & i).Value
        Next
    End With

Met lRow = .Range("E32").End(xlUp).Row pak je altijd dezelfde rij, dus je overschrijft de laatste record. Lijkt mij niet handig.

        lRow = .Range("E32").End(xlUp).Row + 1

 

[tomzyde]

Textbox niet juist weggeschreven

OctaFish

Idd deze foutje zitten erin, heb ik aangepast.
Maar het grootste probleem is dat hij de waarde die ik de textbox invoer niet op de juiste plaats wegschrijft.

Als ik bv MARLBORO RED 100 19 (10 x 19) selecteer in de combobox en dat ipv 0 4 invul en opsla, zet hij de waarde 4 in cel a6 en b6 terwij deze waarde in cel D3 moet komen.

Directe verwijzing naar D3 is geen oplossing want dit varieert naar gelang de selectie in de combobox.

Hopelijk kan je me verder helpen.

dank