Voorraad beheer maar macro krijg ik niet aangepast

[joppyjer]

Hallo,

Ik heb een klein probleempje.
Ik heb op het WWW en voorbeeld voorraad beheer bestandje gevonden.
Maar hier ziet een macro in verwerkt.

Nu zou ik der graag een kolom aan toe willen voegen tussen A en B Met de tekst "Artikel Nummer"
Dat gaat wel. Echter alleen werkt dan de sheet niet meer. En raakt deze helemaal in de stress.

Nu ben ik al een uurtje aan het zoeken geslagen. Maar ik kan maar niet vinden waar de fout zit.
Is der misschien iemand die eens met me mee kan kijken???

Als je hem nu opent heb ik hem al ingevuld. Als je nu op "verwerk" klikt dan gaat hij optellen en aftrekken.
Maar als je "Eerst de kolom toevoegt dan werkt dat NIET meer.


Alvast bedankt
Bekijk bijlage voorraad_test.xls

 

[radar]

Ben niet bedreven in macro's; weet niet of je dit anders kunt, maar:
De opdracht in macro is "absoluut", dus..
Open de macro en vervang de aan kolom gerelateerde letters door "een letter hoger", opslaan
Voeg vervolgens in bestand kolom toe tussen A en B, klik dan eens op de knop en je zult zien dat de berekening weer uitgevoerd wordt als vanouds.

 

[pasan]

heb je macro aangepast met de nieuwe kolom B ingevoegd zoals radar al aangaf

Sub Verwerken()
    Dim x As Long, i As Long
    x = Cells(Rows.Count, 1).End(xlUp).Row 'telt het aantal cellen in kolom A.
    For i = 2 To x 'vanaf de 2e rij t/m laatste rij (=x)
        Range("C" & i) = Range("C" & i) - Range("D" & i)
        Range("E" & i) = Range("E" & i) - Range("F" & i)
    Next i
    'maakt C en E schoon voor verder gebruik.
    Range("D2:D" & x).ClearContents
    Range("F2:F" & x).ClearContents
End Sub

 

[joppyjer]

Hallo,

Bedankt,

Maar nu de grote vraag. Hebben jullie hem daarna getest.
Want inderdaad zoals radar aangaf een kolom toevoegen was niet het moeilijkste.
En de Macro aanpassen zoals Hierboven beschreven had ik ook gedaan.
maar als je hem daarna ging gebruiken wilde hij bij mij niet meer werken zoals hij doet al voor we de aanpassingen deden.



Maar in ieder geval wel al bedankt voor het mee denken, en zoals de macro aanpassing gedaan is had ik het ook gedaan dus zit ik wel al op een juist spoor. Of wij beide op het verkeerde spoor

 

[pasan]

ik heb het nogmaals getest en bij mij werkt het na de aanpassingen nog steeds
krijg je een foutmelding ?
of wordt er niks meer bijgewerkt?
heb je de code exact zo aangepast als ik heb gedaan? want bij mij werkt het wel
kun je anders jou aangepaste bestand nog een keer hier neer zetten?

 

[joppyjer]

Oke ... Ik begrijp der niets van

Bedankt Pasan.

Ik heb nogmaals gedaan wat ik vanmiddag ook al gedaan had al voor ik dit bericht plaatste.
Alleen deed ik vanmiddag visual basic editor niet sluiten en heb ik nu wel gedaan. En wat schets mijn verbazing.
Het werkt gewoon.

Nog 1 vraagje. Is der een simpele manier om de codes door te copyen...
Het gaat nu maar tot cel 27 maar ik heb veel meer items toe te voegen.
Misschien wel een stuk of 200 zeg maar.

 

[pasan]

zolang jij in kolom "A" een naam onderaan toevoegt zal het blijven werken
onderstaande code kijkt naar het aantal ingevulde cellen in kolom A. de 1 staat voor 1e kolom

x = Cells(Rows.Count, 1).End(xlUp).Row

 

[joppyjer]

Top Pasan.

Werkt inderdaad al.
Alleen de horizontale zwarte streep blijft wel staan.
deze zakt niet mee kan ik daar nog iets mee?

 

[pasan]

zo bedoel je?
In het blad heb ik een kleine uitleg bijgeschreven
Het antwoord op de vraag over de randen heb hier gevonden
http://answers.microsoft.com/en-us/office/forum/office_2007-excel/create-borders-using-vba/a2c1cd44-dd5e-47ac-90da-c2f47673ea0e

 

[joppyjer]

zo bedoel je?
In het blad heb ik een kleine uitleg bijgeschreven
Het antwoord op de vraag over de randen heb hier gevonden
http://answers.microsoft.com/en-us/office/forum/office_2007-excel/create-borders-using-vba/a2c1cd44-dd5e-47ac-90da-c2f47673ea0e

Super bedankt..

Ik was even op weekje op vakantie maar ga der van de week weer mee aan de slag.
Hopelijk kan ik het nu weer zelf verder oplossen hahahaha

Nogmaals bedankt voor dus ver