Stephandejong
Gebruiker
- Lid geworden
- 23 mei 2013
- Berichten
- 8
Hallo,
Ik heb een vraag over hoe ik mijn actieve sheet via VBA kan kopieren in hetzelfde document en opslaan.
Wat ik nu heb is:
Sub VolgFact()
Range("B710").ClearContents
Range("E16:J16").ClearContents
Range("A1").Value = Date - 1
End Sub
Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "G:\Groups\intlog\orderpicken pkv\Overzichten niet gescande orders\2013\Overzichten\Overzicht " & Range("A1").Value & ".xlsx"
ActiveSheet.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub
De sheet moet dus niet in een nieuw document worden opgeslagen, maar worden gekopieerd in het bestaande document en worden opgeslagen
Kan iemand mij helpen?
Ik heb een vraag over hoe ik mijn actieve sheet via VBA kan kopieren in hetzelfde document en opslaan.
Wat ik nu heb is:
Sub VolgFact()
Range("B710").ClearContents
Range("E16:J16").ClearContents
Range("A1").Value = Date - 1
End Sub
Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "G:\Groups\intlog\orderpicken pkv\Overzichten niet gescande orders\2013\Overzichten\Overzicht " & Range("A1").Value & ".xlsx"
ActiveSheet.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub
De sheet moet dus niet in een nieuw document worden opgeslagen, maar worden gekopieerd in het bestaande document en worden opgeslagen
Kan iemand mij helpen?