ingewikkeld??? optellen

[Marl1]

Ingewikkeld??? optellen.
Of toch niet?
Wie kan mij helpen?
.
Het is de bedoeling dat ik vanuit het invoerblad aantallen kan invullen die worden aangepast in de actuele voorraad.
Met andere woorden: als ik het in het invoerblad het aantal wijzig (nl. zijnde een aanvulling van de voorraad) moet dat ingevoerde getal automatisch opgeteld worden bij de goede regel in de actuele voorraad.
Het beste open je even het bestandje: ik vind het moeilijk uitleggen

 

[grema]

hoi Marl1,


boeiende vraag.

Ken nog niet veel van VB
Maar toch een poging je te helpen.

plaats in "gegevens" blad misschien een kolom met initielle vertrek( basis ) aantallen ;
waardoor je later een link kan maken met meer of mindere artiekels door bij te voegen of af te trekken zodanig dat je stok op pijl blijft. )

waardoor je intitiele voorraad met volgende formule is aangepast maar nog niet is bijgeteld met de nieuwe aantallen die je inbrengt =INDEX(Gegevens!F2;D6)


Hiervoor moeten we eerst weten waar je definitieve waarden van stok nu moeten komen te staan . In blad " gegevens op een ander blad .

Als je dat weet kunnen we even verder zoeken

Grema

 

[grema]

bijstand nodig

ben nog aan het puzzelen gegaan maar geraak er niet uit

We zullen hulp in moeten roepen van onze specialisten . !! :thumb: :thumb:


grema

 

[GiMe]

Marl2

Is het zoiets dat je zocht ?

GiMe

 

[Marl1]

wauwie

dat ziet er goed uit, zeg!
Dank je wel.
Wigi: ben je het er ook mee eens?

 

[Wigi]

Wigi: ben je het er ook mee eens?

Sorry dat ik het moet zeggen, maar euh... niet echt eigenlijk nee

Als ik het bestandje open krijg ik een kringverwijzing...

Wijzig ik iets in de eerste listbox dan moet ik Excel afsluiten wegens een kritieke error.

De code is gegenereerd door de macro recorder (geen verwijt, niet iedereen kan programmeren en de macro recorder is meer dan goed genoeg om "je eerste code te schrijven").

...

Wigi

 

[Marl1]

voor wigi

He Wigi,

zou jij er dan ook eens naar willen kijken?
Het originele bestandje heb ik vrijdag-avond toegevoegd.
Al vast heel erg bedankt

 

[Wigi]

He Wigi,

zou jij er dan ook eens naar willen kijken?
Het originele bestandje heb ik vrijdag-avond toegevoegd.
Al vast heel erg bedankt

Dat laat ik voorlopig aan anderen over. Er zijn nog veel andere dingen die ik eerst moet doen in mijn vrije tijd. Sorry.

 

[GiMe]

Aan Wigi en Marl1,

In de probeersels (modules 1 en 2) van de voorgangers, stond inderdaad een kringverwijzing.
Mijn fout was, deze gewoon te laten staan en ze te negeren..
Volgens mij staat er in mijn stukje code in module 3 geen fout en functioneert dit perfect.
Heb de modules 1 en 2 verwijdert en bestandje opnieuw gepost.

Groeten

GiMe

 

[Wigi]

Bedankt GiMe.

De .Select moet je zoveel mogelijk vermijden in code:

Sub Macro7()
    Application.ScreenUpdating = False
    With Sheets("Actuele Voorraad")
        With .Range("M3")
            Range(.Range("A1"), .End(xlDown)).Copy
        End With
        .Range("C3").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    End With
    Sheets("Invoerblad").Range("C19").ClearContents
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Het duidelijkste is dat in deze regel:

Sheets("Invoerblad").Range("C19").ClearContents

Wigi

 

[GiMe]

Wim, hartelijk dank !

Hier leer ik nog iets van :thumb: :thumb:

GiMe

 

[Wigi]

Marl1, zet de vraag op opgelost, wil je? Bedankt.