Gem aktivt ark (fane) som ny Excel fil, kun udvalgte kolonner
Kære EksperterJeg arbejder i Excel 2010
Jeg har lavet noget kode som gemmer et valgt ark (fane), som en ny Excel fil. Filen jeg gemmer fra er en xlsm fil. Nedenstående kode virker fuldstændigt efter hensigten:
Sub GemValgtArk()
Dim fd As FileDialog
Dim strFileName As String
Set fd = Application.FileDialog(msoFileDialogSaveAs)
strFileName = ActiveSheet.Name & ".xlsx"
With fd
.InitialFileName = strFileName
.InitialView = msoFileDialogViewDetails
.Title = "Gå til den placering hvor du vil gemme filen"
If .Show = -1 Then
ActiveSheet.Copy
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strFileName
ActiveWindow.Close
End If
End With
Set fd = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Problem
Jeg ville gerne have koden til at gemme det valgte ark (fane), men kun med de data der er i kolonne A, og kolonne B. Er der nogen som har et bud på hvordan dette kan sættes ind i ovenstående kode, eller skal det gøres en helt anden måde?
På forhånd tak for hjælpen.
Hilsen
Anders.