Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukkethjælp til genm
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
jesper ld Se dropdown
Forum Begynder
Forum Begynder


Medlem: 09.Jun.2020
Land: Danmark
Status: Offline
Point: 8 		Direkte link til dette indlæg Emne: hjælp til genm
    Sendt: 09.Jun.2020 kl. 14:03
jeg har i et årstid brugt denne kode til at gemme ark, men pludselig virker det ikke mere, er der nogle kloge her der kan hjælpe ? 
Sub saveInvwithneName()
Dim NewFN As String
'copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "E:\Dokumenter\1-kartoteker\service 2018\excel\" & Range("f15") & " - " & Range("b5") & " - " & Range("c15") & " - " & Range("f10") & " - " & Range("f11") & " - " & Range("f12").Value & " .xlsx "

ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
nextInvoice
End Sub
Til top



Til top
jesper ld Se dropdown
Forum Begynder
Forum Begynder


Medlem: 09.Jun.2020
Land: Danmark
Status: Offline
Point: 8 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 11.Jun.2020 kl. 09:06
Super det virker Tongue
Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76 		Direkte link til dette indlæg Sendt: 11.Jun.2020 kl. 07:47

Hej 
Nextinvoice kan ikke stå alene enten mangler der noget, eller kalder den en funktion.


,
jeg har fjernet Nexinvoice og nu gemmer programmet filen til disk.



Sub saveInvwithneName()
Dim NewFN As String
'copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "E:\Dokumenter\1-kartoteker\service 2018\excel\" & Range("f15") & " - " & Range("b5") & " - " & Range("c15") & " - " & Range("f10") & " - " & Range("f11") & " - " & Range("f12").Value & " .xlsx "

ActiveWorkbook.SaveAs NewFN, FileFormat:=51
ActiveWorkbook.Close
'nextInvoice



End Sub
Til top
jesper ld Se dropdown
Forum Begynder
Forum Begynder


Medlem: 09.Jun.2020
Land: Danmark
Status: Offline
Point: 8 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 11.Jun.2020 kl. 09:06
Super det virker Tongue
Til top
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76 		Direkte link til dette indlæg Sendt: 11.Jun.2020 kl. 09:33
Det var så lidtSmile
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk