Heb Dringent Hulp Nodig!!!!!!!!!!!!

[T-J]

Ik heb een factuur, maar nu wil ik dat in de factuur automatische de factuur nummer oploopt.

Een voorbeeld:
Ik open een factuur en er staat Factuurnummer: 1
daarna print ik die of doe er iets anders mee.
Dan open ik hem op nieuwe als een lege factuur.
Er moet dan Factuurnummer: 2 staan!

Is dit mogelijk? zo ja, plz help mij!!!

Ik heb de factuur als bijlage er bij gezet!

 

[r.vink]

als ik jou was zou ik de factuursjabloon die standaard in Excel zit gebruiken dan heb je wat knaps tenminste. Dan kun je het nummer zelf aanpassen. Als je Office 2000 hebt dan zit daar een factuursjabloon in (standaard) ook erg fraai overigens, moet je wel de fl. in € veranderen(celeigenschappen) en daar zit wel het vernuftige fenomeen in dat het factuurnummer veranderd. Zit trouwens een hele database aan die allerhande handige info opslaat. Hoe men het voor elkaar kreeg het facnummer automatisch te laten veranderen? Ik ben er nooit achter gekomen

 

[fihod]

ziezo of zo zie, zoals je wil...

 

[T-J]

het werkt niet tog bedankt! ik zal moeten wachten!

 

[fihod]

het werkt zeker, maar je moet je factuur opslaan en dan terug openen.
Het factuurnummer zal met 1 eenheid toegenomen zijn.

 

[r.vink]

Misschien heeft hij de macrobeveiliging op hoog staan (Extra>Opties>Beveiliging>Macrobeveiliging) even op laag zetten dan werkt het.

Maaruuuh Fihod..maak me wijzer...hoe werkt het??

 

[fihod]

Het is een eenvoudige routine die je onderbrengt in ThisWorkbook

Private Sub Workbook_Open()
'de subroutine wordt uitgevoerd bij het openen van je bestand

Cells(5, 2).Select
'selecteer de cel op rij 5 en kolom 2

nr = ActiveCell.Value
'nr krijgt hier de waarde van de actievecel

nr = nr + 1
'bij die waarde wordt 1 opgeteld

ActiveCell.Value = nr
'de actieve cel krijgt hier de waarde van nr

End Sub

Dus bij het openen van het bestand wordt de waarde in cel B5 (waar het factuurnummer staat) ingelezen.
Die waarde wordt toegekend aan de variabele nr
Daar wordt 1 bij opgeteld.
Dit getal wordt de nieuw waarde van cel B5

 

[r.vink]

hmm ik heb een nederlandse versie....waar vind ik die optie dan?

 

[jpvs]

Het vorige werkt wel degelijk

Probeer deze eens :
Hier moet je niet telkens je bestand sluiten, maar gewoon op de knop drukken voor een nieuw nummer.

Sub NieuweFaktuur()
Range("B4,A818").ClearContents
Range("A1").Select
Worksheets("Blad1").Range("B5").Value = Worksheets("Blad1").Range("B5").Value + 1
End Sub


Pierre

 

[fihod]

René,

Als je Alt + F11 indrukt kom je in het VBA gedeelte terecht.
In het linker venster klik je dan op ThisWorkbook de code staat dan in het rechter venster.

 

[r.vink]

Bedankt zover...ik ga er mee stoeien...kan het toepassen in een bestaande factuur van mij...verfraaid de boel weer een beetje..

Mvgr, René.