Vaste datum en factuurnummering

[Geep]

Hallo allemaal,

Graag zou ik mij factuurnummer automatisch willen laten genereren.
Als er een invoer in kolom B is, moet er in kolom A een datum komen.
160102 (jjmmdd) en daarachter het volgnummer (bestaat uit 4 cijfers)
en staat altijd 1 regel boven de invoer.
het factuur nummer zou er dan zo uit moeten zien: 1601021234

Wie zou mijn verder kunnen helpen ?

LoesBekijk bijlage autom.fact+datum.xls

 

[Cobbe]

=ALS(B3="";"";TEKST(VANDAAG();"ddmmjjjj")&INDIRECT("E"&RIJ()-1))

Met dien verstande dat het de datum van vandaag() is die ingevoegd wordt.

 

[Geep]

Beste Cobbe,

Dit is wat ik zoek maar het probleem is dat als de datum veranderd ook de datum van de factuur veranderd
en met het bijgevoegde bestandje blijft de datum staan zou het ook in VB kunnen ?

Loes

 

[Cobbe]

Dan zet je dat vast na invullen.

 

[Geep]

Beste Cobbe,

Kan het voorbeeld bestandje ook aangepast worden naar:
- Zou de datum ook jjmmdd kunnen worden ?
- en de volgnummers staan in kolom AC ipv kolom E
- en de invoer staat in kolom M ipv B

Hartelijk dank geweldig

Loes

 

[Cobbe]

Zo dus?

 

[Geep]

COBBE,

Het is helemaal TOP, HEEL ERG BEDANKT

Loes

 

[Geep]

Toch nog een klein dingetje,

Het factuurnummer moet in kolom D komen,
ipv kolom A


Bedankt Cobbe

Loes

 

[Cobbe]

Ik denk dat je de code toch beter vervangt door deze, zo heb je geen formule nodig in je bestand:

Private Sub Worksheet_Change(ByVal target As Range)
' als er iets ingevuld wordt in kolom M(13) en er niet meer dan 1 cel geselecteerd is
 If Not target.Column <> 13 And Selection.Count = 1 Then
' als de doelcel niet leeggelaten wordt vul dan in kolom D(13-9) de datum & het nummer uit de vorige rij in kolom AC(13+16)
' in het gewenste formaat
   If target <> "" Then target.Offset(, -9) = Format(Format(Date, "yymmdd"), "000000") & target.Offset(-1, 16).Value
 End If
End Sub

Niet vergeten kolom D op te maken als tekst.