15. oktober 2004 - 21:31Der er
13 kommentarer og 1 løsning
Kopier celler til anden Excelfil via makro
Jeg har en skabelon til produktion af fakturaer. Der gemmes en fil (Excel-projektmappe) for hver faktura.
Jeg kunne godt tænke mig, at der fra hver enkelt faktura flyttes værdien af bestemte celler (kundenr, fakturanr, dato og beløb)til den næste ledige række i en bogføringsfil (én Excel-projektmappe). Denne flytning kunne ske ved aktivering af en knap.
Bogføringsfilen importeres ved faste intervaller til økonomisystemet.
Jeg har forsøgt forskellige makroer og kodninger. Håber at der er nogen, der kan hjælpe. Se følgende kode - som ikke virker. Det med at vælge næste ledige række fungere vist ikke, ligeledes heller ikke gem-funktionen:
Sub Gem() Sheets("Data").Select Range("A1:D1").Select Selection.Copy Workbooks.Open Filename:="C:\bogføring.xls" ActiveSheet.Paste Sheets("Bogføring").Select Rw = Range("A999").End(xlUp).Row + 1 Range("A" & Rw).PasteColumns("A:D").EntireColumn.AutoFit ActiveWorkbook.Save ActiveWindow.Close Application.CutCopyMode = False Sheets("Nota").Select Range("B5").Select End Sub
Håber at nogen kan hjælpe!!
På forhånd tak. (tidligere spurgt på dette uden held. Har givetvis ikke formuleret det godt nok)
Dette er en proces der skal laves gentagne gange af forskellige brugere. Hvis det var én gang om dagen med én bruger - så har du ret. Dette er ikke tilfældet.
Derudover er det særdeles relevant om processen kan løses via en makro, og hvorledes den i givet fald kan løses.
>jkrons Det virker perfekt. Tusind tak. Jeg blev opmærksom på at cellen "A1" ikke kunne være en dato. Det kan dog løses ved at placere dato i én af de andre celler. Brugeren kan også se, at Bogføringsfilen bliver åbnet og lukket (kan man gøre dette uden 'visning'). Ikke, at det er et problem. Vil du ligge et svar;o)
Efter at have lagt det ind i en mere kompliceret fil får jeg fejlen "Runtime error 1004" med teksten "Metoden Activate for klassen Range mislykkes". Jeg har forsøgt at sikre at der er ens formatering i celler fra den fil til den anden, dog uden held. (A1=Kundenr, B1=Dato, C1=Faktnr; D1=Beløb)
>jkrons Jeg har fundet ud af, at det er fordi jeg gemmer makroen i en comandoknap. Derved starter den med 'Private Sub....'. Hvis den afvikles som 'Sub ...' så ser det ud som om det virker. Jeg kikker på det senere i dag. Foreløbig tak.
Den er ok nu. Efter fjernelse af 'Private..' så virker det. Ærgerligt at jeg ikke fandt ud af, at få den til at fungere i en kommandoknap. Det lykkes heller ikke for mig, at kombinere 'ActiveSheet.Paste' med 'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False'. Det må komme. >Jkrons. Vil du ligge et svar - så spørgsmålet kan afsluttes. Og Tak.
Hvis du lægger den i en knap, tror jeg du måske skal erstatte ActiveWorkbook med ThisWorkbook, men jeg har ikke afprøvet det.
Synes godt om
Ny brugerNybegynder
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.
