27. maj 2019 - 10:27Der er
13 kommentarer og 1 løsning
Save as
Jeg har denne vba kode til at gemme mit ark med, og det fungere. Nu kunne jeg godt tænke mig at forfine den lidt sådanne at jeg i i celle G3 i arket "Bestilling" kunne skrive en sti hvor jeg kunne gemme filen.
På forhånd tak
Klaus w
Private Sub CommandButton3_Click()
Dim x As String x = Range("g3") ActiveWorkbook.SaveAs Filename:="C:\PBM mønstring\" & x & ".xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Hej Jan det vil den ikke jeg tror jeg skal rette mere op. Blandt andet fordi jeg finder fil navnet i celle B2, og den kan jeg ikke ringet få puttet ind.
Hej Jan det kan jeg som sædvanlig ikke få til at hænge sammen Dim x As String x = Sheets("Bestilling").Range("G3").Value & Sheets("Bestilling").Range("B2").Value & ".xlsm", FileFormat _ ActiveWorkbook.SaveAs Filename:="\Bestilling\" & x & ".xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False De 2 sidste linier kommer der fejl der stopper koden med at virke :-( Hjæææææææææææææælp
Dim x As String x = Sheets("Bestilling").Range("G3").Value & Sheets("Bestilling").Range("B2").Value & ".xlsm" ActiveWorkbook.SaveAs Filename:=x , FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
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.
