graag wil ik een submap maken bij opslaan, wanneer in cel I12 iets word gezet.
het moet altijd als submap hebben P14.
Ik zal het omschrijven;
P14 is klant naam, I12 is het onderdeel bv toilet, of badkamer, keuken, enz...
dus wanneer er meerdere opties bij een klant zijn wil ik dus eerst een hoofdmap van de klant.
het moet altijd als submap hebben P14.
Ik zal het omschrijven;
P14 is klant naam, I12 is het onderdeel bv toilet, of badkamer, keuken, enz...
dus wanneer er meerdere opties bij een klant zijn wil ik dus eerst een hoofdmap van de klant.
Code:
'Stuk voor opslaan
If Sheetnaam = "Offerte" Or Sheetnaam = "Voorlopig" Then
FolderLocatie = DefaultFolder & Year(Now()) & "\offertes\" & Sheets("InvoerSheet").Range("P14").Value & "_" & Range("I12").Value
If Dir(FolderLocatie, vbDirectory) = "" Then MaakFolder FolderLocatie 'als folder niet bestaat maak dan folder aan
BestandsNaam = "Offerte " & Sheets("InvoerSheet").Range("P14").Value & "_" & Range("I12").Value