Opslaan volgens de waarde vanuit een cel?

[kaan]

Beste,

Ik ben bezig met een registratie bestand aan het maken, echter zonder de hulp van masters kom ik niet ver.

Het volgende om mee te beginnen, ik heb een sheet en dat wil ik met een knoop aan de hand van een macro een kopie laten maken en dat opslaan. Dus een klik op de knoop en er is een kopie gemaakt en opgeslagen.

Allen de naam van de kopie moet vanuit de cel waarde bestaan, in F3 heb ik de maand F3 de naam van de map (als er nieuwe maand is dat er nieuwe maand aan gemaakt word) G3 de dag en H3 de jaar als voor beeld: April-2007\11-April-2007.xls

Alvast veel dank voor alle hulp.

 

[hotjhp]

klein stukkie vba voor je

Hallo,

Ik denk dat dit je een eind op weg helpt.

de macro achter de knop en de basisdir aangemaakt hebben en off you go.

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 18-4-2007 door henk.
'

'
Dim fname As String
Dim dir As String

jr = Range("H3").Value
mnd = Range("F3").Value
dag = Range("G3").Value

basisdir = "C:\je basis directory van de alle sheets\"
dir = basisdir & mnd & "-" & jr & "\"
fname = dir & dag & "-" & mnd & "-" & jr & ".xls"

ActiveWorkbook.SaveAs Filename:= _
fname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub


Succes

 

[kaan]

Henk,

Als eerste wil ik jou bedanken voor je reactie.

Je code werkt maar hij slaat de openstaande bestand op met de naam van wat we hebben aangegeven.

Dat is niet echt waar ik opzoek naar ben, het zal mooi zijn als je Registratie.xls open heb en op het moment dat je op opslaan klikt dat hij een kopie maakt vanaf A3:A70 R3:R70 en dat opslaat zo als aangegeven. Ik weet dat het kan maar zelf ben ik nog niet zo ver om dat te kunnen.

Wie kam mijn hier bij helpen?

Dank je wel

 

[Wigi]

Zo simpel is het niet hoor...

Kijk eens hier bij Chip Pearson hoe je nieuwe mappen ineens kan aanmaken.

Bv. als je bestand X.xls wilt opslaan in C:\Wigi\WigiSubmap\Bestanden\2007\April, dan kan dit enkel als alle mappen al bestaan! Elke map moet je aanmaken met MkDir in VBA, als die nog niet bestaat. De code van Chip waaraan ik refereerde, maakt alle mappen ineens aan.

Wigi