automatische nummering

[sofiake]

Beste,

ik heb een bestandje (prijslijst) dat een nummer heeft.
En ik zou graag hebben dat dat nummer telkens ik het bestand open optelt.

Kan dit ?
Indien ja, hoe ?

Ik ben een totale leek he, dus reactie navenant aub

Alvast bedankt !

 

[Roncancio]

Beste,

ik heb een bestandje (prijslijst) dat een nummer heeft.
En ik zou graag hebben dat dat nummer telkens ik het bestand open optelt.

Kan dit ?
Indien ja, hoe ?

Ik ben een totale leek he, dus reactie navenant aub

Alvast bedankt !

Kan je een voorbeeld bestand sturen zonder gevoelige gegevens uiteraard.

Met vriendelijke groet,


Roncancio

 

[sofiake]

voorbeeldbestandje
Het gaat dus om die "68" bij tarief

 

[Roncancio]

Ik heb een coderegel toevoegd aan het bestand.
De regel wordt automatisch doorlopen bij het openen van het bestand en verhoogd het getal bij Tarief met 1.
Dus je opent het bestand en bij Tarief staat nu 69.

Met vriendelijke groet,


Roncancio

 

[poi]

Kun je uitleggen waar en hoe je dat doet die coderegel.
Voor mij is dit nl ook erg handig, voor facturen die ik steeds handmatig op moet nummeren.
En wat gebeurd er als ik een bestaande factuur wederom open? Dan zou ie NIET moeten opnummeren

 

[sofiake]

Het lukt idd in het bestandje dat je aangepast hebt, maar nu weet ik dus nog niet hoe ik het nu in mijn bestandje moet aanpassen he

 

[Roncancio]

Het lukt idd in het bestandje dat je aangepast hebt, maar nu weet ik dus nog niet hoe ik het nu in mijn bestandje moet aanpassen he

Dat is waar.
Oké, daar komt ie:

- Ga naar Extra - Macro - Visual Basic Editor. (óf ALT-F11)
- Selecteer Beeld - Projectverkenner. (óf CTRL-R)
- Dubbelklik op ThisWorkbook.

(er verschijnt nu rechts een codescherm)

Plak daar onderstaande code in:

Private Sub Workbook_Open()
Worksheets(1).Range("[B][COLOR="Red"]B3[/COLOR][/B]").Value = Worksheets(1).Range("[B][COLOR="red"]B3[/COLOR][/B]").Value + 1
End Sub

Pas eventueel de rode vetgedrukte celreferenties aan.
Nu verwijst de code naar cel B3.

Als er nog vragen zijn, dan hoor ik het wel.

Met vriendelijke groet,


Roncancio

 

[poi]

Als je het document hebt opgeslagen en later weer open klikt, is weer het nummer opgehoogd, kan dat voorkomen worden?

 

[Roncancio]

Als je het document hebt opgeslagen en later weer open klikt, is weer het nummer opgehoogd, kan dat voorkomen worden?

Ja, maar dat wat toch de bedoeling?:shocked:
Je zou de code kunnen aanpassen zodat gevraagd wordt of het nummer verhoogd moet worden.

Met vriendelijke groet,


Roncancio

 

[poi]

Precies wat ik bedoel, maar ik ben geen held in codes, dus ehhhhh.... ik durf het bijna niet te vragen.........

 

[Roncancio]

Precies wat ik bedoel, maar ik ben geen held in codes, dus ehhhhh.... ik durf het bijna niet te vragen.........

Bij deze:

Private Sub Workbook_Open()
vraag = MsgBox("Wil je het getal verhogen?", vbQuestion & vbYesNo, "Getal verhogen")
If vraag = vbYes Then
    Worksheets(1).Range("B1").Value = Worksheets(1).Range("B1").Value + 1
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[poi]

Je bent geweldig, ik ga het vanavond gelijk uitproberen, bedankt! :thumb:

 

[poi]

Heb het nu uitgeprobeerd en werkt helemaal zoals ik wil!
Super bedankt nogmaals

 

[sofiake]

Man, hier zitten slimme mensen

Het werkt ! Hartelijk bedankt !!!!

 

[Wigi]

Hoi Sofiake, graag nog eventjes de vraag op opgelost zetten aub (rechts onder op de pagina).