saggitarius
Gebruiker
- Lid geworden
- 8 jan 2011
- Berichten
- 34
De eerste keer dat ik een bestand wil opslaan (kopie) dat ik dat met de onderstaande code (dir aanmaak en opslaan onder de naam van C5)
Sub opslaan()
Dim s_dir As String
s_dir = "--:\-----\----" & Range("C5").Value
If Dir(s_dir, vbDirectory) = "" Then MkDir s_dir
ActiveSheet.Copy
ActiveWorkbook.SaveAs s_dir & "" & Range("I2").Value & ".xls"
Application.Quit
End Sub
Vervolgens als ik deze kopie (boven aangemaakt) bewerk en daarna weer wil opslaan (onder de naam in C5) doe ik dat met de onderstaande code
Sub opslaan 2()
ActiveWorkbook.Save
Application.Quit
End Sub
Is het mogelijk om de eerste en de tweede code te combineren; als ik de eerste code gebruik om de aangemaakte copie (bestand nr 2) op te slaan gaat het niet goed
Sub opslaan()
Dim s_dir As String
s_dir = "--:\-----\----" & Range("C5").Value
If Dir(s_dir, vbDirectory) = "" Then MkDir s_dir
ActiveSheet.Copy
ActiveWorkbook.SaveAs s_dir & "" & Range("I2").Value & ".xls"
Application.Quit
End Sub
Vervolgens als ik deze kopie (boven aangemaakt) bewerk en daarna weer wil opslaan (onder de naam in C5) doe ik dat met de onderstaande code
Sub opslaan 2()
ActiveWorkbook.Save
Application.Quit
End Sub
Is het mogelijk om de eerste en de tweede code te combineren; als ik de eerste code gebruik om de aangemaakte copie (bestand nr 2) op te slaan gaat het niet goed