Opslaan op naam en maand

[Kaway]

Beste lezers,

graag wil mijn factuur opslaan op naam en datum. via de forumhttp://www.helpmij.nl/forum/showthread.php/450107-Excel-2003-factuurnr-automatisch-ophogen?highlight=2003

voorbeeld:
maand augustus is 08
factuurnr 01

moet zijn 0801 maar ik krijg nu steeds 081

 

[robdgr]

De link werkt bij mij niet. Ik neem aan dat dat factuurnummer op je factuur staat. Je kunt dan werken met [B5].value voor het factuurnummer en even stoeien met format.

 

[Kaway]

Rob,

De link heb ik even aangepast. juist het stoeien lukt mij niet echt.

 

[robdgr]

Heb er even naar gekeken:

Sub Opslaan()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show <> -1 Then MsgBox "Geen directory geselecteerd! Probeer opnieuw...": Exit Sub
        mydir = .SelectedItems(1)
    End With
    ActiveWorkbook.SaveCopyAs mydir & "\" & Format(Now, "mm") & Format([B2], "00") & ".xls"
    [B2].Value = [B2].Value + 1
End Sub

Ik zou er zelf nog een klantnummer of een naam aan hangen. Lijkt me veel overzichtelijker worden, maar het is jouw methode.

 

[Kaway]

Beste lezers

Graag wil ik in een cel nog het factuurnummer vermelden. dus het nummer waarop het is opgeslagen.

Is dit het juiste VBA code? zal iemand het kunnen aanvullen.

[B1].Value = Right(???)

 

[robdgr]

Volgens het eerdere verhaal zou [B2] het factuurnummer zijn en dat staat er al in.