autonummering per cel

[Kaway]

Beste lezers

Heb bijna hetzelfde idee alleen wil ik de auto nummering naar een cel verwijzen. Dus als ik de volgende keer het bestand opent dan moet mijn factuurnummering +1.

Volgens mij mist ik nog een VBA Code

Heb de volgende VBA code al

Sub Macro1()
'
ActiveWorkbook.SaveAs Filename:= _
Range("M3") & Format(Now, "mm") & Format([AQ2], "00") & ".xls"
Range("AQ2").Value = Range("AQ2").Value + 1
[M4].Value = Range("M3") & Format(Now, "mm") & Format([AQ2], "00")

 

[Roncancio]

Het is eigenlijk niet de bedoeling om in te breken in een vraag van een andere TS...
Maar zet onderstaande code in ThisWorkbook.

Private Sub Workbook_Open()
With Worksheets(1).[a1]
    .Value = .Value + 1
End With
End Sub

De waarde van cel A1 van het 1e werkblad wordt steeds met 1 verhoogd als het bestand wordt geopend.

Met vriendelijke groet,


Roncancio

 

[puppie]

ik vind het ook niet netjes.
Daarom maar even een eigen plaats gegeven.
Kun je hier rustig verder gaan met vragen.