Kan dit wel ?

[Fabiangreat]

Ben pas nieuw dus allemaal de groeten van mij.
Wat ik wil proberen in excel, ik heb daar een factuur gemaakt die vervolgens bij het openen de factuurnummer met 1 verhoogt. En als ik hem automatisch sluit zet hij hem ook zo weg dus Factuur-1. Maar ik wil hem wegzetten met Factuur- 001 zodat deze op de computer altijd op nummer gerangschikt blijft en niet na de 9 de 10 onder de 1 komt te staan.

Dit is de code van mij:
Private Sub Workbook_Open()
Sheets(1).Range("c23").Value = _
Sheets(1).Range("c23").Value + 1
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Naam As String
Dim Pad As String
Dim Weeknr As String
Dim Bestandsnaam As String
Naam = Sheets(1).Range("c23").Value & " " & "Wk-" & Sheets(1).Range("c27") & " " & Format(Now, "ddd dd-mmm-yyyy") & " .xlsm"
Pad = "C:\Facturen\Factuur - "
Bestandsnaam = Pad & Naam
Me.SaveAs Pad & Naam
End Sub


Bedank al vast voor uw hulp.

 

[Roncancio]

Welkom

Private Sub Workbook_Open()
Sheets(1).Range("c23").Value = _
Sheets(1).Range("c23").Value + 1
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Naam As String
Dim Pad As String
Dim Weeknr As String
Dim Bestandsnaam As String
Naam = [B][COLOR="red"]Format([/COLOR][/B]Sheets(1).Range("c23").Value[B][COLOR="Red"],"000") [/COLOR][/B]& " " & "Wk-" & Sheets(1).Range("c27") & " " & Format(Now, "ddd dd-mmm-yyyy") & " .xlsm"
Pad = "C:\Facturen\Factuur - "
Bestandsnaam = Pad & Naam
Me.SaveAs Pad & Naam
End Sub

Met vriendelijke groet,


Roncancio

 

[Ginger]

Fabiangreat, Welkom op dit forum.

Je kan dit oplossen door je waarde uit cel C23 in een 'Format' te gieten.

Naam = Format(Sheets(1).Range("c23").Value, "000") & " " & "Wk-" enz....

Groet, Leo

EDIT: Maar ik zie nu dat Roncancio dat óók al had gemeld... ;-)

 

[Fabiangreat]

Het werkt hartelijk dank groetjes

 

[Fabiangreat]

Fabiangreat, Welkom op dit forum.

Je kan dit oplossen door je waarde uit cel C23 in een 'Format' te gieten.

Naam = Format(Sheets(1).Range("c23").Value, "000") & " " & "Wk-" enz....

Groet, Leo

EDIT: Maar ik zie nu dat Roncancio dat óók al had gemeld... ;-)

Het werkt hartelijk dank voor je reactie