datumveld opslaan via macro met alleen notitie jjmm

[rombouts1974]

Ik ben bezig om een automatisch formulier te maken in EXCEL en heb dit nu bijna af maar om het als uniek bestand op te slaan is er bepaald dat van de huidige datum eerst de laatste cijfers van het jaartal en aansluitend twee cijfers van de maand in de bestandsnaam moeten komen.

Als ik nu via een macro deze gegevens uit een datum veld haal dan slaat het bestand op met de volledige datum notatie.

Zie hier onder:

Sub opslaan()
Dim stPath As String
With Sheets("blad1")
stPath = "G:\Verkoop\CERTIFICATEN REGISTRATIE\VALBEVEILIGING KEUREN\"

End With
ActiveWorkbook.SaveAs Filename:=stPath & "cert. " & Range("D13") & Range("E13").Value & ".xls"
End
End Sub

D13 is de datum cel.

Kan mij iemand hier mee helpen ben geen ster in VIB.

 

[edmoor]

Die D13 heb je niet nodig als het om de huidige datum gaat. Dat With en End With gebruik je ook niet, dus dat kan weg. Het pad gebruik je maar 1 keer en dan is het zonde om daar een variabele voor te declareren.

Sub opslaan()
    ActiveWorkbook.SaveAs Filename:="G:\Verkoop\CERTIFICATEN REGISTRATIE\VALBEVEILIGING KEUREN\" & _
    "cert. " & Format(Date(), "YYMM") & Sheets("Blad1").Range("E13") & ".xls"
End Sub

 

[rombouts1974]

Hartelijk voor de snelle reactie, zal hem later dit weekend eens gebruiken en als het werkt deze ook weer als behandeld zetten

 

[rombouts1974]

Bedankt

Hallo,

bedankt voor de snelle reactie en heb het net aangepast in het VIB bestand werkt nu dus kan nu gaan testen en kijken of het een beetje "****** proof" is.