Bestand opslaan met als naam datum vanuit een cel

[davylenders123]

Heb de volgende code

Private Sub CommandButton1_Click()

ActiveSheet.Protect Password:="1302", DrawingObjects:=True, Contents:=True, Scenarios:=True
 ChDir "T:\Mag-Data\Mit pc\davy\uren magazijn"
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren magazijn\Uren Magazijn " & Format(Date, "dd-mm-yyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Deze slaat het betsand op in de volgende map.
T:\Mag-Data\Mit pc\davy\uren magazijn\
Met als naam uren magazijn met de datum van wanneer je de button gebruikt.
Vb uren magazijn 24-02-2011

Is het moggelijk dat hij bij het opslaan de datum neemt die in tabblad 1 in cel b2 staat in plaats van de datum van de dag dat je de button gebruikt.

In bestand in tabblad 1 in cel B2 staat Maandag 07-02-2011.

Bij het gebruik van de buton zou hij het moeten opslaan als
Uren magazijn 07-02-2011

 

[oeldere]

Davy, probeer deze eens (let op de punt (.))

Private Sub CommandButton1_Click()

ActiveSheet.Protect Password:="1302", DrawingObjects:=True, Contents:=True, Scenarios:=True
 ChDir "T:\Mag-Data\Mit pc\davy\uren magazijn"
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren magazijn\Uren Magazijn " & [COLOR="darkorange"].[b2][/COLOR] & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[davylenders123]

Wat bedoel je hier juist mee (let op de punt (.))
Moet ik daar nog iets aan aanpassen ?
Ja sorry maar met codes ben ik echt niet goed ze.

 

[oeldere]

Beste Davy,

copieer mijn code en plak hem in je module.

of

wijzig je code in je module en voeg dan toe .[b2] en laat datum ed vervallen

bij het invoegen dien je dan wel de punt in te voeren.

Laat je weten of het je is gelukt?

 

[davylenders123]

Heb u code geplakt en het werkt niet.
Krijg volgende foutcode "Compileer fout ongeldige of niet geklasificeerde verwijzing"
Heb al wel een kleine wijziging moeten doen het was niet b2 maar b1 dit heb ik al aangepast.

Bekijk bijlage vd bestand davy7777777.xls

Zal een vb bestandje toevoegen.

 

[HSV]

Zonder die punt werkt het beter Oeldere.

 

[oeldere]

ga nu weg, kom hier nog op terug.

misschien dat anderen dit intussen voor je oplossen.

 

[davylenders123]

Zonder die punt werkt het beter Oeldere.

Harry,

Heb het punt weg gelaten en dan krijg in een fout venster

" fout 1004 tijdens uitvoering:
Er kan geen toegang worden verkregen tot het bestand T:\Mag-Data\Mit pc\davy\uren magazijn\Uren Magazijn 10\11.Er zijn verschillende mogelijke oorzaken:
* De naam van het bestand of het pad bestaat niet.
* Het bestand wordt gebruikt door een andere programma.
* De werkmap die u probeert op te slaan heeft dezelfde naam als een"

En als naam kiest hij ook alleen maar de dag en de maand en het jaar staat er niet bij.

 

[HSV]

Bij mij werkt het prima als ik het even naar mijn eigen Pc doe.
Dus ergens zou je wel in je bestandenpad-richting moeten zoeken.

Private Sub CommandButton1_Click()

ActiveSheet.Protect Password:="1302", DrawingObjects:=True, Contents:=True, Scenarios:=True
 ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Uren Magazijn " & [b1] & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[davylenders123]

Sorry bij mij blijft hij de foutmelding geven.
Heb de code van u ook eens geplakt zoadt hij het op mijn pc zouden doen het opslaan op de schijf D maar probleem blijft.

 

[HSV]

Vreemd.

Werkt zowel in 2003 als 2007 versie.

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    ActiveSheet.Protect Password:="1230", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren magazijn\Uren Magazijn " & Format(DateValue([uren!B1]), "dd-mm-yyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[davylenders123]

Allemaal hartelijk dank voor jullie tijd en geweldige hulp.

De code van Rudi daar werkt het nu goed mee THANKS :thumb::thumb:

 

[huijb]

@davylenders123
Wanneer je direct reageert na een reactie van een helper is het niet nodig om te quoten. Onnodige quotes derhalve verwijderd.

 

[huijb]

@burley
Graag een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers en de oorspronkelijke vragensteller.

 

[huijb]

Ik kan het natuurlijk mis hebben, maar ben je aan het helpen of ben je je eigen probleem aan de orde aan het stellen??

 

[burley]

Ik kan je geen pm sturen, dus dan nog maar een keer hier.


Ik ben bezig met de hier geposte code, dus relevant.


Maar, als collega mod, hoeveel moeite is het om (bij een nieuwe gebruiker) een nieuwe thread gestart indien toepasselijk?
Er zijn vanuit vbulletin toevoegingen voor het forum die bij verwijdering van een post de reden opgeven, wel zo makkelijk.

Of je had gewoon een berichtje kunnen sturen. Allemaal niet zo moeilijk, best wel normaal en zeker wel zo vriendelijk...

Maar mijn excuses voor eventuele overlast, verwijder alle bovenstaande offtopic posts maar.