JKlerks
Gebruiker
- Lid geworden
- 15 aug 2017
- Berichten
- 54
Goedemiddag allemaal en alle goeds voor 2023!
Ik ben een bestand aan het creëren, waarmee een administratie snel en eenvoudig zaken kan vastleggen. De betreffende macro deed de eerste keer perfect wat ik wilde, maar slaat alle vervolgbestanden op in de eerste doelmap die is aangemaakt. Ziet iemand waar het fout gaat?
NB heb het ook zonder de tweede
geprobeerd, maar dat werkte ook niet.
Voor de volledigheid: hij maakt dus wel de nieuwe doelmap goed aan obv de waarde in cal AA1. In AA3 staat de bestandsnaam en AA5 is een controle of alle benodigde gegevens zijn ingegeven
Mijn dank is enorm
Ik ben een bestand aan het creëren, waarmee een administratie snel en eenvoudig zaken kan vastleggen. De betreffende macro deed de eerste keer perfect wat ik wilde, maar slaat alle vervolgbestanden op in de eerste doelmap die is aangemaakt. Ziet iemand waar het fout gaat?
Code:
Sub AA_A_AANMAAK_NIEUWE_MEDEWERKER()
If Sheets("JAAROVERZICHT").Range("AA5").Value = 3 Then
ZZ_Y_ALLES_ZICHTBAAR
AA_B_CONTROLE_EN_AANMAAK_DOELMAP
AA_C_OPSLAAN_EXCELBESTAND_ONDER_NAAM
Else
MsgBox ("Niet alle benodigde gegevens zijn ingevoerd. Graag aanvullen en opnieuw proberen")
End If
End Sub
Sub AA_B_CONTROLE_EN_AANMAAK_DOELMAP()
Dim DoelMap As String
DoelMap = "G:\FA\Urenregistratie\2023\" & Sheets("JAAROVERZICHT").Range("AA1").Value
With CreateObject("Scripting.Filesystemobject")
If Not .FolderExists(DoelMap) Then
.CreateFolder (DoelMap)
End If
End With
End Sub
Sub AA_C_OPSLAAN_EXCELBESTAND_ONDER_NAAM()
Dim DoelMap As String
DoelMap = "G:\FA\Urenregistratie\2023\" & Sheets("JAAROVERZICHT").Range("AA1").Value
ActiveWorkbook.SaveAs Filename:=Sheets("JAAROVERZICHT").Range("AA3").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
NB heb het ook zonder de tweede
Code:
Dim DoelMap As String
Voor de volledigheid: hij maakt dus wel de nieuwe doelmap goed aan obv de waarde in cal AA1. In AA3 staat de bestandsnaam en AA5 is een controle of alle benodigde gegevens zijn ingegeven
Mijn dank is enorm
Laatst bewerkt: