Avatar billede -anders- Juniormester
29. april 2018 - 16:01 Der er 2 kommentarer og
1 løsning

Gem aktivt ark (fane) som ny Excel fil, kun udvalgte kolonner

Kære Eksperter

Jeg 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.
Avatar billede Dan Elgaard Ekspert
29. april 2018 - 19:02 #1
Umiddelbart før denne linje:
ActiveWorkbook.SaveAs Filename:=strFileName

...indsætter du denne linje:
ActiveSheet.Range("C:XFD").Delete

Dette virker fordi det 'ActiveSheet' nu er blevet det nye sheet, i stedet for original sheet.
Avatar billede -anders- Juniormester
29. april 2018 - 19:14 #2
Hej Dan

Tak for indlægget. Din løsning virker perfekt. Du skal have mange tak for hjælpen.

Hilsen
Anders.
Avatar billede Dan Elgaard Ekspert
29. april 2018 - 22:07 #3
Velbekomme :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester