Automatisch rekeningnummer

[Liissaaa8]

Hallo,

ik heb een format gemaakt voor een bedrijfsrekening.
Nu vraag ik me af of het ook mogelijk is om het rekeningnummer automatisch door te nummeren.
Dus zodra er een nieuw bestand geopend wordt, het rekeningnummer doorgaat.

Graag hoor ik van iemand

Bijlage:
Bekijk bijlage #rekening tellled leeg.xlsx

 

[crash]

Waarom dit bij de afdeling Word staat en niet bij Excel is me een raadsel, daarom maar verplaatst.

 

[Liissaaa8]

Excuus, ik was in de veronderstelling dat het een wordbestand is

 

[Joske2000]

Hi Lisa,

Hierbij hetgeen je vraagt.

Private Sub Workbook_Open()
    Sheets("Offerte").Cells(5, 6).Value = Cells(5, 6) + 1
End Sub

Bekijk bijlage Kopie%20van%20#rekening tellled leeg.xlsm

Joske

 

[Liissaaa8]

Kun je me vertellen hoe je dit gedaan hebt Jos?
Dan kan ik dit in de toekomst ook gebruiken!

Alvast bedankt!

 

[Liissaaa8]

Ik vind het super handig gemaakt. Enkel zijn de begingetallen van het rekeningnummer 8512.
Daarna moet de reeks beginnen met 85121. Hoe moet ik dit verwerken in de code?

 

[Liissaaa8]

Mijn vraag is nog steeds niet opgelost. Ik heb nu wel gevonden hoe ik de macro kan toepassen, nu is alleen mijn vraag hoe ik deze nummerin kan laten beginnen vanaf 8512.
Het getal 8512 moet ALTIJD voorop blijven staan. Dus eigenlijk moet de nummering beginnen met 85121-85129 en dan niet verder gaan met 8513 maar met 851210. Is dit duidelijk genoeg omschreven?

Groetjes lisa

 

[cow18]

zoals joske voorstelde in een bepaalde cel je oplopend nummer onthouden en als je je bedrijfsnummer nodig hebt, dan voeg je daar die 8512 voor zoals in de msgbox

Private Sub Workbook_Open()
  With Sheets("Offerte").Cells(5, 6)
    .Value = .Value + 1                                    'gewoon bij de vorige 1 optellen
    MsgBox "mijn nieuw bedrijfsnummer is : " & vbLf & "8512" & .Value  'je vaste tekst "8512" en daar achteraan je oplopend nummer
  End With
End Sub