Voorraadbeheer

[Tewelo]

Ik heb deze excel gevonden op deze website.

Maar ik krijg hem niet gedebug. Kan iemand hier naar kijken?

https://dl.dropboxusercontent.com/u/42555799/Voorraadbeheer.xlsm

 

[spaarie]

Wat krijg je voor fout dan? Want ik krijg niks...

 

[Tewelo]

https://dl.dropboxusercontent.com/u/42555799/screenshot.jpg

Deze melding krijg ik al dingen wilt invoeren of uitvoeren

 

[spaarie]

Klik op 'Debug'
Deze regel zal geel worden

.Find([D18], , xlValues, xlWhole).Offset(, 2) = .Find([D18], , xlValues, xlWhole).Offset(, 2) - [E18]

pas hiervan de 2 aan naar een 3 en hij doet het...

.Find([D18], , xlValues, xlWhole).Offset(, 3) = .Find([D18], , xlValues, xlWhole).Offset(, 3) - [E18]

 

[Tewelo]

Dank je wel.. dat is gelukt.

Alleen ik heb nu een vraagje. Bij Artikelnr. wil ik "00001" maken maar hij pas zicht automatisch aan naar "1". Hier kan ik dat verandere?

 

[spaarie]

Correct.
Zet de celeigenschappen naar aangepast en zet bij Type: 00000

 

[Tewelo]

 .Find([D18], , xlValues, xlWhole).Offset(, 3) = .Find([D18], , xlValues, xlWhole).Offset(, 3) + [E18]

Dan krijg ik hier nu een gele melding dat die niet werkt. Door die aanpassing

 

[spaarie]

Je moet ook niet alléén de eigenschappen van de te zoeken artikel aanpassen, maar alle celeigenschappen van alle artikelen.
Anders vind ie hem niet en dat is de reden van de foutmelding.

Mocht dat niet werken kan je dit ook eens proberen

.Find(Format([D18], "00000"), , xlValues, xlWhole).Offset(, 3) = .Find(Format[D18], "00000"), , xlValues, xlWhole).Offset(, 3) + [E18]

 

[Tewelo]

Nee, kan hem nog steeds niet invoeren.. heb de dropbox link geupdate.

 

[Tewelo]

Ik heb nog steeds het probleem