automatisch verhogen van factuurnummer

[ECORNELISSEN]

Wie kan mij helpen?
In de bijlage zit een factuur en daarin heb ik een macro gemaakt met de naam tst.

Ik wil graag hebben dat cel E8 met één nummer verhoogd wordt als cel B11 gewijzigd wordt.
Dit werkt niet maar als ik op uitvoeren druk in "macro", dan wordt cel E8 wel met één verhoogd.
Ik denk dat er iets fout zit met "gewijzigdecel = Target.Address"maar ik begrijp het niet.

Kan iemand mij adviseren wat ik moet doen?

alvast bedankt, @

 

[edmoor]

Je hebt de Private Sub Worksheet_Change in een module gezet. Daar hoort 'ie niet. Hij moet achter Blad1(factuur).

Daarnaast is het voldoende om die Sub op deze manier te schrijven:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$11" Then [E8].Value = [E8].Value + 1
End Sub

 

[HSV]

De code hoort niet in module1, maar in blad-module "factuur".

Edit: Te laat. :thumb:

 

[ECORNELISSEN]

Sorry maar ik begrijp dit niet.
de formule moet achter blad 1 factuur????
Is het mogelijk dat je dit invult in de sheet en als bijlage bijvoegt?

thnx

 

[Gerard2348]

Volgens mij had je hier al de oplossing.

http://www.helpmij.nl/forum/showthread.php/841721-vertikaal-zoeken-op-tekst

 

[edmoor]

Sorry maar ik begrijp dit niet.
de formule moet achter blad 1 factuur????

Hier dus:



Wellicht dat je je eens moet verdiepen in de verschillen tussen Sub, Function en Event routines.

 

[ECORNELISSEN]

hartelijk dank allemaal, inderdaad, ik had al eerder de oplossing maar als ik die formule in een andere sheet kopieerde dan werkt het niet.
Nu begrijp ik pas waarom.
allen erg bedankt.

groet @

 

[VenA]

Volgens mij is de logica van jouw vraag niet goed. Een factuur is een uniek document met een aantal belangrijke kenmerken zoals de datum van opstellen, en het factuurnummer. Op het moment dat je alle gegevens hebt ingevuld en op opslaan als pdf hebt geklikt mag het nummer met 1 opgehoogd worden.