VBA formule

[excelh]

Goedemorgen,

Ik ben opzoek naar een functie om een waarde in een variabele cel op te hogen met een ingevoerde waarden.
Op het beginscherm(vba formulier) geef ik een vaste waarde in en een aantal.
De bedoeling is dat hij dan gaat kijken waar de vaste waarde staat en in die regel het aantal ophoogt in kolom K met de waarde ingevuld in het beginscherm.

ik hoor graag van jullie

groet

 

[VenA]

Plaats het bestand even. Zo is het wel erg gokken hoe de elementen in het formulier heten en waar gezocht moet worden. In basis is het niet zo moeilijk.

Sub VenA()
  With Sheet1
    r = Application.Match(zoekwaarde, .Columns(1), 0)
    If IsNumeric(r) Then .Cells(r, 11).Value = .Cells(r, 11).Value + aantal
  End With
End Sub

 

[excelh]

reactie

dankjewel voor de reactie.
Excuses voor het late antwoord
in de bijlage het bestand
De bedoeling is dus als ik het formulier invul dat het aantal van uitgegeven omhoog gaat met het aantal ingevuld in het formulier.
Dit gebeurt dan bij het juiste part nr.

Groet

 

[VenA]

Waar is het formulier en heb je iets met de suggestie in #2 gedaan? Als je VBA gebruikt dan moet het bestand opgeslagen worden als .xlsm of .xlsb. Zorg er ook voor dat het bestand qua indeling identiek is aan het originele bestand. Je hebt het in de vraag over kolom K dat blijkt niet uit de bijlage.

 

[excelh]

bestand

beste

excuses
bijgevoegd nieuw bestand
Kwam niet uit de formule

 

[VenA]

Volgens mij klopt het voorbeeld niet met de vraag. Wie of wat is WMS? Is dat de naam of het part nr? In #2 staat geen formule en waar kwam je niet uit dan?

 

[excelh]

Sorry geen formule maar de code.

WMS is de verwijzing van part nr inderdaad.
Dit is onduidelijk gedaan door mij.
De bedoeling is dus dat ik bij het part nr bv 2 invul en dan aantal 1
Dan moet die bij uitgegeven 1 optellen in de rij van part nummer 2
Duidelijk?
Ben beginnend in VBA en heb al veel op het internet gevonden maar krijg deze formule niet ontleed

 

[VenA]

Zowel de uitgave als inname in 1 formulier.

 

[excelh]

Top dank

Is het ook mogelijk om een tekstvak te nemen en eigen waarde in te vullen ipv dropdown menu?
Nu is het namelijk 1 tm 5 maar in de werkelijkheid gaat dit over lange part nummers

 

[VenA]

in de combobox kan je ook typen en heeft als voordeel dat je geen onbekende waarden kan invullen.

 

[excelh]

Oke dank!
Nu hoef ik alleen aantal uit te doen. Dus deze optie heb ik niet nodig.

Hoe haal ik deze uit mijn formule zodat hij alleen bij uitgifte typt

 

[VenA]

Dan moet je een beetje onderzoek doen naar de code.

 

[excelh]

Ben al een stuk verder.
Nu staat er:
With sheets ("blad1").listobjects (1).databodyrange
Is dit part nr kolom waarin die zoekt?
Kan ik deze ook vervangen voor bijvoorbeeld Blad1 en dan kolom E

Aanvulling:
Ik zie dat het wms nummer inderdaad het rijnummer is.
nu zijn de part nr niet 1,2,3 etc maar zijn dit verschillende door elkaar staande nummers
een mogelijk tot zoeken in kolom e naar het nummer wat gelijk is zou hier een uitkomst voor zijn.
Echter heb al de formule proberen om te bouwen zonder resultaat.
hoe kan ik vertikaal zoeken in kolom e erin bouwen ipv combobox waarde

 

[emields]

Als je liever geen tabel gebruikt kan het ook zo.

 

[excelh]

Dankjewel
Nu doet die echter bij het invoeren bij WMS dit als regelnummer geven
Ik wil eigenlijk dat deze zoekt door de part nr lijst en bij de eerste die hij tegenkomt met dezelfde waard als WMS dat die daar de afboeking doet