Bevare koder, men uden der sker en automatisk opdatering
Hej alleJeg har et problem som jeg ikke kan forestille mig har en løsning, men prøver aligevel.
Jeg har en temmelig stor fil med en del ark, som vi bruger til at beregne et tilbud. Selve tilbudet bliver gemt på et ark, men genereres i en userform.
Når jeg vil gemme tilbudet kan jeg selvfølgelig gemme hele filen, men det vil hurtigt kræve rigtig meget plads, da filen er på 1245 kb. Derfor vil jeg gerne at jeg kun gemmer arket med de gemte data. Det kan jeg også sagtens, mit "problem" opstår hvis jeg ønsker at redigere tilbudet efter kunden er vendt tilbage. Hvis jeg kopier og kun sætter værdier ind, overskrives alle koder i det ark i filen som jeg åbner for at lave en redigering i userformen. Hvis jeg kopier og sætter alt ind, overskrives de enkelte celler, i det øjeblik jeg laver et nyt tilbud i userformen.
Jeg bruger en makro til at gemme med. Den er som følger:
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "P:\Kalkulation_døre\Tilbud\" & Worksheets("Ark1").Range("F2").Text & " " & Worksheets("Ark1").Range("H2").Text & ".xls"
MsgBox "Døren er nu gemt"
Grunden til at jeg ikke "bare" kan nøjes med at sætte værdier ind er, at jeg gerne vil kunne hente arket ind igen, og lave ændringer i userformen der startes op med de ting der er tastet ind, så skal "mán" ikke starte helt forfra hver gang.
Håber det er til at forstå, OG håber selvfølgelig på en genial løsning ;-)
MVH
Ups34
