• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Map aanmaken in macro

Status
Niet open voor verdere reacties.

Roughneck

Gebruiker
Lid geworden
29 mei 2007
Berichten
83
Ik zoek een macro die a.d.h.v. een celwaarde kijkt of een map met deze naam (celwaarde) al bestaat op schijf G:\, zo niet een map met die naam aanmaken, en bestand als "bestand voor de maand (maand-lange notatie) jaar(jjjj)" wegschrijven in die nieuwe map.
 
Laatst bewerkt:
Zoiets?
Code:
Sub tst()
  On Error Resume Next
    MkDir "G:\" & Range("A1").Value
  ActiveWorkbook.SaveAs "G:\" & Range("A1").Value & "\" & Format(Range("B1").Value, "mmmm-yyyy") & ".xlsm"
End Sub
 
Harry,

kwam met jouw suggestie en een stukje van wat ik elders geleend heb tot de volgende werkende code:


Code:
Sub map()

Const Werkdir = "G:\Test\"
Dim Sysmonth
Dim Sysyear
  Dim tel As Integer, Letter As String
    Dim lastSaved As Date, antw As Integer
  Sysmonth = Format(Date, "mmmm")
  Sysyear = Format(Date, "yyyy")

    Bestandsnaam$ = [C3]
    If Dir(Werkdir & Bestandsnaam$) = "" Then

    
    MkDir (Werkdir & Bestandsnaam$)
    
    ActiveWorkbook.SaveAs Werkdir & Bestandsnaam$ & "\" & "maandelijks verhaal " & Sysmonth & " " & Sysyear & ".xls"

            
    End If
End Sub

Misschien dat het compacter kan, maar het werkt wel.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan