Hallo,
Ik heb een vraag over opslaan.
ik sla nu middels een macro als volgt een sheet op:
Dit werkt in principe perfect, maar ik zou graag willen dat hij in een andere map opslaat.
Nu wordt het bijvoorbeeld opgeslagen op : V:/.....(variënd)/...(variënd)/2. Projectducumenten uitvoering/ en deze moet 1 map terug naar V:/.....(variënd)/...(variënd)/7. Testrapporten/
Is dit mogelijk omdat de voorgaande mappen ieder bestand variërend zijn?
Thanx
Ik heb een vraag over opslaan.
ik sla nu middels een macro als volgt een sheet op:
Code:
Sub Planning_opslaan()
If MsgBox("U gaat nu het tabblad als nieuw bestand opslaan!" & vbCr & vbCr & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Let op!") = vbCancel Then Exit Sub
Application.DisplayAlerts = False
ar = ThisWorkbook.Sheets("Planning").Range("A2:M350")
Dim c00 As String, c01 As String
c00 = ThisWorkbook.Path & "\" & Replace([D1], "\", "") & "\"
c01 = [B1]
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(c00) Then .CreateFolder c00
End With
Sheets("Planning").Copy
With ActiveWorkbook
.Sheets(1).Range("A2:M350").Value = ar
.SaveAs c00 & c01 & ".xlsx", 51
End With
Application.DisplayAlerts = True
End Sub
Dit werkt in principe perfect, maar ik zou graag willen dat hij in een andere map opslaat.
Nu wordt het bijvoorbeeld opgeslagen op : V:/.....(variënd)/...(variënd)/2. Projectducumenten uitvoering/ en deze moet 1 map terug naar V:/.....(variënd)/...(variënd)/7. Testrapporten/
Is dit mogelijk omdat de voorgaande mappen ieder bestand variërend zijn?
Thanx