27. august 2010 - 14:48Der er
6 kommentarer og 1 løsning
Autosave det rigtige sted
Har en faktura skabelon jeg arbejder i som har makro kørende til forskellige opgaver. I mit ark står navn på kunde i B8. Fakturanummer står i G7. Ved større arbejdsopgaver skriver jeg ind i faktura løbende og skal gemme den i en midlertidig mappe jeg kalder "prøvefaktura". Når jeg så har lavet den sidste indtasning, kobler jeg fakturanummeret på med makro, og udskriver faktura. Samtidigt gemmer jeg en kopi på pc i en mappe der hedder "færdige fakturaer" Jeg kunne godt tænke mig, at når jeg gemmer filerne bliver de gemt på "fakturanummer" "navn" (12568 John Pedersen)(eksempel). Hvis ikke fakturanummer skrives, skal filen gemmes i "prøvefaktura". Og hvis begge dele er skrevet skal det gemmes i "Færdige fakturaer". Er det muligt i evt makro at lave denne operation,når jeg trykker på F12 (gem som)? Har jeg ikke forklaret det godt nok, vil jeg prøve at uddybe.
Jeg har forsøgt at lede på nettet om disse macroer, men det har ikke lykkedes mig at finde noget relevant. Og dek kan være det er en kompleks opgave den skal udføre, så det gør den svær at lave. Jeg vil gerne sende filen hvis det giver et bedre overblik. For uden macroer, kører der også noget loopslag mellem de forkellige ark. Håber jeg høre fra en der vil prøve at løse opgaven her.
Man kan også forstille sig at denne "gem som" makro kunne tildeles en knap til at køre den fra. Jeg har i forvejen en knap til at hente faktura nummer, som fungerer ved hjælp af en tekstfil. Men kan det lade sig gøre, når der er flere kriterier og steder den skal gemme filen?? Jeg ved der er nogle skrappe hjælpere på dette punkt herinde, og håber jeg får hjælp til denne makro.
Skal forbindes med en knap (har ikke kunne finde den indbyggede kommando/makro, der tidligere kunne modificeres)
Sub gemSom() Const filstiNavn = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\Faktura220661" 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øvefaktura\" & navn & ".xlsm" Else ActiveWorkbook.SaveAs filstiNavn + "\færdige fakturaer\" & fakturaNr & " " & navn & ".xlsm" End If End Sub
Const filstiNavn = Mappe hvor undermappe Prøvefaktura og Færdige fakturaer ligger?
Har prøvet med forskellige stier, men når jeg ikke skriver faktura nummer, får jeg en fejl der hedder rødt kryds og 400? Er navn og nummer udfyldt vil den gemme som det rigtige navn og i den rigtige mappe. Hvad kan være galt?
Har fundet det der var galt. Min mappe til "prøvefaktura" hedder Prøvefakturaer, så derfor fik jeg fejlen. Tak for hjælpen. Har fundet ud af og tilknytte en knap på arket, så det køres herfra Super.
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.
