Avatar billede Lallenkalaf Nybegynder
27. november 2013 - 09:33 Der er 17 kommentarer

Auto gem kopi

Hej

Er ved at lave ordresedler med kontinuerlig ordre nr.

"Private Sub Workbook_Open()
    Range("g2").Value = Range("g2").Value + 1
End Sub"

Det virker jo "like a charm" - men det store spørgsmål er så, om det er muligt at lave det således at den gemmer en kopi (på en eller anden destination). Forstået på den måde at når jeg trykker "Gem" så gemmer den en kopi der evt. kan hedde 1500 (det kan være navntet bliver defineret udfra et felt ((g2)) - eks. ordre nr. feltet) og når jeg så åbner "masteren" (som kan hedde master) som er udgangspunktet og gemmer igen, så hedder den næste kopi 1501. på den måde vil jeg kunne have en mappe fyldt med "kopier"... giver det menning?

Jeg ser frem til at høre fra jer
P.S: Jeg er bestemt ikke nogen ørn til makro o.lign - men siden her har været en kæmpe hjælp (så lige en tak til jer der bidrager)
Avatar billede ebea Ekspert
27. november 2013 - 10:33 #1
Prøv at uploade dit ark til gupl.dk - det gør det lidt nemmere at indsætte en løsning i din eget arbejde.
Avatar billede jens48 Ekspert
27. november 2013 - 18:07 #2
Prøv med (stien skal nok rettes):

Sub Macro1()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\Temp\Faktura nr. " & Range("G2") & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\Temp\Autogem.xls"
End Sub
Avatar billede Lallenkalaf Nybegynder
28. november 2013 - 15:04 #3
Hey

Sry, for den lange respons tid - den kom lige noget i vejen. Filen er lagt op på gupl.dk (http://gupl.dk/704675/) navn: "Ordremakro" - Jens 38: jeg har prøvet at sætte din kode ind (ændrede selvfølgelig på stien), men jeg kan ikke få det til at virke - kan det i det hele taget lade sig gøre?

Stiller jeg mons tro for store krav til Excel?
Avatar billede ebea Ekspert
28. november 2013 - 15:13 #4
For øjeblikket virker gupl.dk ikke, så kan ikke se dit eks.

ja, det kan godt lade sig gøre at lave.
Du er også velkommen til at sende mig det på min email (kig under min profil).
Avatar billede Lallenkalaf Nybegynder
28. november 2013 - 15:22 #5
Jeg kan nu godt komme ind på gupl - men du får det lige pr. mail
Avatar billede Lallenkalaf Nybegynder
28. november 2013 - 15:23 #6
Der er ikke nogen mail under din profil (ikke oplyst)
Avatar billede jens48 Ekspert
28. november 2013 - 15:29 #7
Jeg har prøvet makroen af og den virker. Makroen skal ligge under This workbook for at fungere.
Avatar billede ebea Ekspert
28. november 2013 - 15:45 #8
post@ebe.dk
Avatar billede Lallenkalaf Nybegynder
28. november 2013 - 16:04 #9
Jens48 - jeg er sikker på at det er mig der gør noget forkert, ingen tvivl, ikke mindst når du siger at du kan få det til at virke.
Min kode ser nu således ud i "ThisWorkbook" (inkl.kontinuerlig ordre nr.)

Private Sub Workbook_Open()
    Range("g2").Value = Range("g2").Value + 1
End Sub

Sub Macro1()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Kent\Dokumenter " & Range("G2") & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Users\Kent\Autogem.xls"
End Sub
Avatar billede jens48 Ekspert
28. november 2013 - 16:11 #10
Hedder din workbook "Autogem.xls"? Det var hvad jeg kaldte min. Du skal naturligvis skrive dit eget filnavn.
Avatar billede Lallenkalaf Nybegynder
28. november 2013 - 16:31 #11
Ja min workbook hedder Autogem - Er vi ikke enige i, at den skal gemme kopier i mappen dokumenter?
Avatar billede Lallenkalaf Nybegynder
28. november 2013 - 16:37 #12
sry, den hedder Ordremakro
Avatar billede jens48 Ekspert
28. november 2013 - 16:46 #13
Prøv med nedenstående. Du har nok en nyere version end den jeg lavede det på (xlsm i stedet for xls):

Private Sub Workbook_Open()
    Range("g2").Value = Range("g2").Value + 1
End Sub

Sub Macro1()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Kent\Dokumenter " & Range("G2") & ".xlsm"
ActiveWorkbook.SaveAs Filename:="C:\Users\Kent\Autogem.xlsm"
End Sub
Avatar billede ebea Ekspert
30. november 2013 - 10:35 #14
Hvordan gik det med det jeg sendte dig. Fik du det til at virke?.
Avatar billede Lallenkalaf Nybegynder
03. december 2013 - 18:06 #15
Hey Ebea og Jens48, tak for jeres tid og beklager jeg ikke har været til stede (har været på jagt i tyskland)

Ebea, tak for det du har tilsendt og det lader til at virke, men jeg har ikke formået at "lære" noget af det og jeg kan ikke helt gennemskue din makro - jeg vil også gerne lære lidt, til en anden gang (giv en mand en fisk og han er mæt for en dag -lær ham at fiske og han kan klare sig selv)

Jens48, umiddelbart så burde det du har skrevet jo virke, men jeg tror jeg har sat ligehedstegn imellem filens navn og workbook - altså at det har været det samme i min verden.

Jeg må jeg nok krybe til korset og sige, at jeg tror jeg har slået for stort et brød op - skulle nok lige have lidt basic knowledge i makro. Skal jeg lukke? eller er besidder I en pædagogs tålmodighed?
Avatar billede ebea Ekspert
03. december 2013 - 19:15 #16
Hej! Og forhåbentlig gik det bedre med jagten :-). Dit spørgsmål gik jo på om det var muligt at lave det du efterspurgte, og det var det.
Jeg har ikke lavet det som en makro, men lavet som VBA, og med funktionen du efterspurgte.

Om du helt forstår hvad der sker i koden ?. ja, kig den igennem, og prøv at følge "slagets gang" i kodelinierne, så tror jeg at du forstår det. Udgangspunktet, er den knap jeg har indsat, og som du trykker på, hvorved der udføres det du ønskede.
Avatar billede jens48 Ekspert
04. december 2013 - 22:01 #17
Lad os prøve om vi ikke kan få ram på problemet. Hvilken version Excel kører du? Bliver filerne gemt som XLSM filer? Er dit sikkerhedsniveau sat så du kan gemme filer med makro? Gemmer du filen i en folder hedder C:\Users\Kent\? Virker makroen der opdaterer G2? Altså, bliver G2 forøget hver gang du åbner filen? Prøv at fjerne linien "Application.DisplayAlerts = False
". Så vil du kunne se fejlmeddelelser. Og hvilken fejl melder den?
En masse spørgsmål, men uden svarene bliver det svært at hjælpe.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester