nummer automatisch ophogen

Ingrid

unread,

Jan 19, 2004, 3:24:24 PM1/19/04

to

Hallo,

Ik wil voor facturen die in Excel gemaakt worden het
factuurnummer voor elke nieuwe factuur automatisch ophogen
met 1 cijfer. Voor elke factuur wordt een nieuwe werkmap
gemaakt. Is dit automatisch ophogen mogelijk met een
macro? Zo ja, hoe dan? Heeft iemand een idee?

Met vriendelijke groet,
Ingrid van 't Erve

Luc.Heyndrickx

unread,

Jan 19, 2004, 3:36:05 PM1/19/04

to

Ingrid,

http://users.skynet.be/onderland/Excel.htm#Lessen
5- Autonummering en records toevoegen

of:
http://info.bcentral.nl/nieuws/financien_administratie/facturerenmetexcel2.asp

Luc

"Ingrid" <anon...@discussions.microsoft.com> schreef in bericht
news:0a9301c3deca$3a6407a0$a501...@phx.gbl...

Ben

unread,

Jan 21, 2004, 3:39:21 PM1/21/04

to

Luc,

ik heb je bestand faktuur2 gedownload en getracht in te passen in mijn
toepassing.

In mijn faktuur staat het nr op E15, in mijn database staan de faktuurnrs in
kolom B.

Ik heb het als volgt aangepast:

Sub NieuweFaktuur()

Dim intNummer As Integer

intNummer = Worksheets("Faktuur").Range("E15").Value

Worksheets("Reeks").Activate
Range("B2").CurrentRegion.Select

ActiveCell.Offset(Selection.Rows.Count, 0).Activate
With ActiveCell
.Value = intNummer

End With

Worksheets("Faktuur").Activate
Range("E15").Value = intNummer + 1

Range("E17").Select

End Sub

Na het draaien van de macro krijg ik in de database in kolom A waar de datum
staat nu, 0-1-1900

Waar doe ik het fout?

M.vr.gr.,

Ben

Luc.Heyndrickx

unread,

Jan 21, 2004, 4:15:15 PM1/21/04

to

Ben,

U plaatst in de A kolom de faktuurnummer (opgemaakt als datum)
Het is niet omdat je de macro in cel B2 start dat hij ook vanuit deze cel
verder telt.

Het zal dus ongeveer zoiets zijn (Wel niet getest, maar ik ben er vrij zeker
van)

Sub NieuweFaktuur()

Dim intNummer As Integer

intNummer = Worksheets("Faktuur").Range("E15").Value

Worksheets("Reeks").Activate
Range("A1").CurrentRegion.Select

ActiveCell.Offset(Selection.Rows.Count, 1).Activate

With ActiveCell
.Value = intNummer

End With

Worksheets("Faktuur").Activate
Range("E15").Value = intNummer + 1

Range("E17").Select

End Sub

En om de andere kolommen te vullen moet je de waardes na Offset -tussen de
haakjes- wijzigen, zoals in mijn voorbeeld.

Om dit alles beter te begrijpen zou je dit eens moeten lezen:
http://users.skynet.be/onderland/Excel.htm#Lessen
12- Navigeren in VBA-Excel

Luc

"Ben" <gip...@verwijderdithotmail.com> schreef in bericht
news:u19tr6F4...@TK2MSFTNGP12.phx.gbl...

Ben

unread,

Jan 21, 2004, 4:24:05 PM1/21/04

to

Luc,

aanpassing gemaakt zoals je voorstelde, krijg nu echt in de eerste lege rij
in mijn database op L20 o,oo

Zal sowieso je les lezen, maar ik snap er nu even niks van.

M.vr.gr.,

Ben

Luc.Heyndrickx

unread,

Jan 21, 2004, 4:37:47 PM1/21/04

to

Dat kan ik vanaf hier natuurlijk niet zien.
Maar die les die ik je voorstelde zou veel duidelijk moeten maken (Ik denk
toch dat ik het duidelijk heb uitgelegd)
Allicht kan je daarna zelf uw problemen oplossen.

Het zal wel weer iets met die Offset te maken hebben.

Luc

"Ben" <gip...@verwijderdithotmail.com> schreef in bericht

news:euJsrTG...@TK2MSFTNGP11.phx.gbl...