Zoeken op productnummer en vervangen in de tabel

[TheRebel]

Beste mensen,

Ik heb eerst het forum doorgebladerd maar hij staat er echt niet bij... vandaar hier mijn vraag, ik hoop dat jullie er een antwoord op hebben.

Ik heb een tabel voor voorraadbeheer, in de 1e kolom staan productnummers (bijv A14) in de 6e kolom het aantal wat in voorraad is.
Ik wil op een centrale plaats, (bijvoorbeeld bovenaan de sheet lijkt me het makkelijkst) een zoekfunctie hebben waar ik het productnummer invoer(cel A3), in de cel A4 wil ik het aantal van dit product aangeven wat in voorraad gekomen is.
Het is de bedoeling dat deze bij de voorraad opgeteld wordt.

Een antwoord wat ik gevonden heb is dat je er een kolom naast kan maken en daar de wijzigingen invoert. Als je dan een som doet krijg je een totaalplaatje. Dit is alleen geen optie...

Bij mijn voorraad wisselt veel, er gaan soms wekelijks van een product 3 orders weg en komt er een binnen. Met een extra kolom blijf ik dan nog handmatig rekenen.

Met behulp van vertikaal zoeken kan ik wel het productnummer uit de tabel apart krijgen met in de cel ernaast het actuele aantal. Maar hoe krijg ik automatisch in de tabelmatrix het de voorraadverandering opgeteld?

Mijn tabelmatrix is (A7:F300)
invulzoekcel productnr = A3
invulcel wijziging = A4
Productnummer = coll 1
voorraad = coll 6


Ik hoop dat jullie een goeie ingeving hebben, in ieder geval alvast bedankt voor de moeite!!


Groeten, Pieter

 

[LucHeyndrickx]

Hoi Pieter,

Dat zal gaan met dit macrootje:

Sub VulAan()
With Range("A7:A300").Find(Range("A3").Value)
.Offset(0, 5).Value = .Offset(0, 5).Value + Range("A4").Value
End With
End Sub

Geeft wel een fout indien de waarde uit cel A3 niet gevonden wordt.

Luc

 

[TheRebel]

Beste Luc,

Het is fantastisch, hartelijk dank voor je hulp!!
Ik ga er ff een mooie knop voor maken en dan is het helemaal voor mekaar.

Nogmaals bedankt en succes met alles wat jullie doen!

 

[TheRebel]

Beste Luc of anderen,

Nu ben ik bezig met invoeren, het werkt bijna perfect.

Ik heb alleen 1 probleem, ik heb bijv. onderdeelnummer CP216 en P216.

Als de macro de waarde p216 opzoekt wordt de voorraadwijziging van cp216 afgetrokken omdat deze eerder in de tabel voorkomt.

Met de functie verticaal zoeken kan ik "ONWAAR" aangeven waardoor de waarde "p216" exact opgezocht wordt en dus CP216 genegeerd wordt.

Hoe kan ik dit in de macro wijzigen?

Alvast bedankt voor je hulp!




Groeten, Pieter

 

[LucHeyndrickx]

zo dus:

Sub VulAan()
With Range("A7:A300").Find(Range("A3").Value, , , xlWhole)
.Offset(0, 5).Value = .Offset(0, 5).Value + Range("A4").Value
End With
End Sub

Luc

 

[TheRebel]

Bedankt Luc, ik ben helemaal geholpen. Voortaan zal het een stuk sneller werken met de voorraad.

Goeie dag nog allemaal!!:thumb: :thumb: