Dankzij dit forum ben ik er zonder programmeerskills in geslaagd een macro te maken waarbij mijn bestand automatisch op wordt geslagen met vermelding van klantnaam (i1) en 'datum van vandaag' (n1).
Ik loop er nu echter tegenaan dat hij dit doet in een default map, blijkbaar waar ik voor het laatst iets in heb opgeslagen.
Welke crack kan onderstaande macro aanpassen zodat mijn bestanden in dit pad terechtkomen? \\Nlfsprdcn00002.services.branches.nl.eu.aa.com\data06\Sdep\0000118019\17. Medewerkers\TAD\Call Prep
Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 1-2-2010 door KL2037.
'
'
Range("A1:M48").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blad1").Select
Application.CutCopyMode = False
Sheets("Blad1").Copy
ActiveWorkbook.SaveAs (ActiveWorkbook.Worksheets(1).Range("i1").Value & " " & ActiveWorkbook.Worksheets(1).Range("n1").Value & ".xls")
ActiveWindow.Close
End Sub
Ik loop er nu echter tegenaan dat hij dit doet in een default map, blijkbaar waar ik voor het laatst iets in heb opgeslagen.
Welke crack kan onderstaande macro aanpassen zodat mijn bestanden in dit pad terechtkomen? \\Nlfsprdcn00002.services.branches.nl.eu.aa.com\data06\Sdep\0000118019\17. Medewerkers\TAD\Call Prep
Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 1-2-2010 door KL2037.
'
'
Range("A1:M48").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Blad1").Select
Application.CutCopyMode = False
Sheets("Blad1").Copy
ActiveWorkbook.SaveAs (ActiveWorkbook.Worksheets(1).Range("i1").Value & " " & ActiveWorkbook.Worksheets(1).Range("n1").Value & ".xls")
ActiveWindow.Close
End Sub
Laatst bewerkt: