HWV
Terugkerende gebruiker
- Lid geworden
- 19 feb 2009
- Berichten
- 1.183
Beste,
Ik ben bezig met ons offerteregistratie om dit automatisch te laten nummeren.
Met onderstaande code dacht ik het opvolgend te krijgen maar krijg te tekst ONWAAR.
Nu ik de vraag toch stel hoe krijg ik dit opvolgend maar dan wil ik dit eigenlijk per dag laten opnummeren
0116012018 = 01 + 16-01-2018
0216012018 = 02 + 16-01-2018
0316012018 = 03 + 16-01-2018
0117012018 = 01 + 17-01-2018
0217012018 = 02 + 17-01-2018
0317012018 = 03 + 17-01-2018
0417012018 = 04 + 17-01-2018
0118012018 = 01 + 18-01-2018
0218012018 = 02 + 18-01-2018
0318012018 = 03 + 18-01-2018
0418012018 = 04 + 18-01-2018
enz. enz,
Ik hoop dat dit duidelijk is en dat er een oplossing voor te krijgen is.
HWV
Bekijk bijlage Offerte registratie.xlsm
Ik ben bezig met ons offerteregistratie om dit automatisch te laten nummeren.
Met onderstaande code dacht ik het opvolgend te krijgen maar krijg te tekst ONWAAR.
Code:
Sub Offertenummer()
ActiveSheet.Range("A2").End(xlDown).Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 = "=SUM(R[-1]C+1)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Nu ik de vraag toch stel hoe krijg ik dit opvolgend maar dan wil ik dit eigenlijk per dag laten opnummeren
0116012018 = 01 + 16-01-2018
0216012018 = 02 + 16-01-2018
0316012018 = 03 + 16-01-2018
0117012018 = 01 + 17-01-2018
0217012018 = 02 + 17-01-2018
0317012018 = 03 + 17-01-2018
0417012018 = 04 + 17-01-2018
0118012018 = 01 + 18-01-2018
0218012018 = 02 + 18-01-2018
0318012018 = 03 + 18-01-2018
0418012018 = 04 + 18-01-2018
enz. enz,
Ik hoop dat dit duidelijk is en dat er een oplossing voor te krijgen is.
HWV
Bekijk bijlage Offerte registratie.xlsm
Laatst bewerkt: