Onderstaand zie je de code die ik gebruik om een tabblad te kopiëren in een nieuw Excel document.
Dit werkt prima, maar ik wil eigenlijk alleen dat die de waarden kopieert en niet al die verwijzingen die in het tabblad staan meeneemt.
nu heb ik de code gevonden die hier mee te maken heeft, maar kan hem nog niet toepassen in mijn script hieronder.
( PasteSpecial xlPasteValues )
wie kan mij helpen?
Dit werkt prima, maar ik wil eigenlijk alleen dat die de waarden kopieert en niet al die verwijzingen die in het tabblad staan meeneemt.
nu heb ik de code gevonden die hier mee te maken heeft, maar kan hem nog niet toepassen in mijn script hieronder.
( PasteSpecial xlPasteValues )
wie kan mij helpen?
Code:
Private Sub CommandButton1_Click()
Dim strFileName As Variant
Dim strPath As String
strFileName = "Bestandsnaam" '& Format(Date, " dd-mm-yyyy") 'Range("A2").Value
strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _
FileFilter:="Excel Files (*.xlsx), *.xlsx, Excel 2007 Files (*.xlsm), *.xslm", _
FilterIndex:=1, _
Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
If strFileName = False Then
Else
Application.DisplayAlerts = False
Sheets("Blad1").Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=strFileName, FileFormat:=xlOpenXMLWorkbook
MsgBox "Gelukt! Dit tabblad is opgeslagen als: " & strFileName
ActiveWorkbook.Close True
Application.CutCopyMode = False
Application.DisplayAlerts = True
Sheets("Blad1").Activate
End If
End Sub
