31. marts 2015 - 11:24Der er
3 kommentarer og 1 løsning
kommandoknap til at komme frem med prompten: Gem som
Hej. I min projektmappe har jeg en kommandoknap som udskriver 2 ark i projektmappen. Findes den en kode som kan få "gem som" kommandoen til at åbne, således at jeg selv kan navngive den nye fil samtidig med at den udskriver.... Jeg har pt. denne kode i min workbook:
Har du ikke dette navn stående i ark/projektmappen du skal gemme som? Jeg har en faktura skabelon som jeg har en gem som knap i. Koden til dette er:
Sub gemSom() Const filstiNavn = "Destination på hovedmappe sim sti" Dim navn As String, fakturaNr As String
navn = Range("B8") fakturaNr = Range("G7")
Rem Er der faktura-nr i G7 If fakturaNr = "" Then ActiveWorkbook.SaveAs filstiNavn + "\prøvefakturaer\" & navn & ".xlsm" Else ActiveWorkbook.SaveAs filstiNavn + "\færdige fakturaer\" & fakturaNr & " " & navn & ".xlsm" End If End Sub
Står der navn i B8 gemmes mappen i prøvefaktura Er der tillige tilføjet et faktura nummer gemmes i færdig faktura.
Ved ikke om der er ideer derfra du kan bruge?
For efterfølgende at udskrive 2 kopier har jeg lavet denne makro knap: Sub Macro2() ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True End Sub
som dog kun lige udskriver det aktive vindue. Min faktura skabelon har 5 ark til faktura, en til prisliste og en til timeberegner.
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.