Map/bestandnaam aanmaken met macro met naam van cel

[JDR001]

Ik zou graag een macro willen hebben waarbij ik het excelbestand kan opslaan. De map waarin ik het bestand wil opslaan moet de naam hebben van een cel uit het bestand. Hij moet dus automatisch een map aanmaken of indien deze al gemaakt is geen error geven. De bestandsnaam van het bestand wil ik weer hetzelfde hebben als een cel uit het bestand.
Dus bijvoorbeeld:
Cel A2 heeft waarde 200
Cel A3 heeft waarde 300

De map wil ik dus hetzelfde als A2 hebben dus bv. c:/test/200
De bestandnaam wil ik hetzelfde hebben als A# dus bv. c:/test/200/300.xsl

bedankt

 

[Wigi]

Met de zoekfunctie van het forum en Google had je ook wel dit kunnen vinden:

Sub MapMakenEnBestandOpslaan()

    Const sHoofdmap As String = "C:\test\"
    
    If Len(Dir(sHoofdmap & [A2], vbDirectory)) = 0 Then MkDir sHoofdmap & [A2]
    ActiveWorkbook.SaveAs sHoofdmap & [A2] & "\" & [A3] & ".xls", 56

End Sub

 

[Warme bakkertje]

Ik zou er voor alle veiligheid nog een With...End With structuur met de bladnaam aan toevoegen want indien je de macro uitvoert en het blad met de gebruikte cellen is op dat moment niet het actieve blad, loopt alles in het honderd.
Wijzig Blad1 nog wel in de juiste bladnaam.

Sub MapMakenEnBestandOpslaan()

    Const sHoofdmap As String = "C:\test\"
    With Sheets("Blad1")
    If Len(Dir(sHoofdmap & .[A2], vbDirectory)) = 0 Then MkDir sHoofdmap & .[A2]
    ActiveWorkbook.SaveAs sHoofdmap & .[A2] & "\" & .[A3] & ".xls", 56
    End With
End Sub

 

[JDR001]

Bedankt het werkt.