Avatar billede drako Nybegynder
26. oktober 2007 - 08:53 Der er 7 kommentarer og
1 løsning

Gemme dato + svar i "historisk arkiv"

Jeg er ved at lave et regneark, hvor man ugentlig skal svare på nogle spørgsmål angående medarbejdertilfredshed. Når dette er gjort skal man trykke på en knap, hvormed svarene overføres til et nyt ark (historisk arkiv) med dato ud for. Det historiske arkiv skal således få en ny række indsat hver gang der svares, så man kan følge med i udviklingen. Jeg skal altså bruge en makro, som kan hente svar + dags dato og så indsætte dette som tekst i  en ny række. Værdien dags dato skal være en "død" værdi, når den er indsat, så den ikke kan opdateres.

- Jeg håber nogle har mod på at hjælpe mig!
Avatar billede jkrons Professor
26. oktober 2007 - 09:32 #1
Du kan bruge noget i denne stil. Læg koden på din knap:

    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Ark2").Select
    Range("B65536").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -1).Range("A1").Value = Date

Den overfører de berugte celler fra A-rækken i arket med knappen til den første ledige række i Ark2. Her indsættes fra og mwed kolonne B, og datoen for overførslen skrives i A-kolonnen.
Avatar billede drako Nybegynder
26. oktober 2007 - 10:39 #2
Tak for dit svar!
Det ser ud som om at den kopiere hele skemaet fra arket med knappen, i stedet for kun den ene række.
- Arket har i række startende med B4, hvor der er følgende celler: spørgsmål, uge nr. dato, 16 celler med svar (point), som linker til andre ark og til sidst i celle U4 en opsummering af pointene. Det kunne det være rart hvis den kunne kopiere hele række, og samtidig fjerne alle links ("døde" celler)...

- Hvis det er muligt kunne det også være rart hvis man måske kunne gøre kopieringen automatisk, således at excel selv gjorde det f.eks. hver fredag klokken 15.00. Jeg skal nok sætte flere point på højkant, hvis det skal til for at få en løsning!
Avatar billede jkrons Professor
26. oktober 2007 - 11:09 #3
Den kopierer hele skemaet. Jeg havde forstået, at der kun var den samme række i det.

Ret Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
til
Range("B4:U4").Select ¨så du kun de celler, du har data i.

Hvad mener du med "døde" celler? Du skriver, at de indeholde links, så jeg går ud fra at disse links, resulterer i Data.  Er det, du mener, at det kun er værdierne fra cellerne, du vil overføre til det historiske ark?

I så fald ændres linien

ActiveSheet.Paste

til

    Selection.PasteSpecial Paste:=xlPasteValues
Avatar billede drako Nybegynder
26. oktober 2007 - 11:16 #4
Tusind tak for dit svar!
- Det virker perfekt...

Er det muligt at gøre det hele automatisk?
Avatar billede jkrons Professor
26. oktober 2007 - 11:22 #5
Omkring automatisk afvikling er der nogle muligheder, men ingen af dem er nemme og ingen af dem er helt sikre.

Du kan i Excel lægge kode ind, der får en makro til at køre x antal tid efter at en hændelse har fundet sted, fx efter at regnearket er åbnet. Prolbmet er, at hvis du nu siger, at denne hændelse skal ske, fx 30 sekunder efter åbning af regnearket, sker det, hver gang regnearket åbnes, og det er jo ikke meningen. Man kan såc lægge en test ind, der sikrer at det kun sker, hvis klokken er 15 når timeren udløber, men er regnearket så ikke åbent pæcis klokken 15, udføres kopieringen ikke den dag.

Man kan selvfølgelig få et program, der kører i baggrunden, fx Windows scheduler til at åbne regnearket, kl. 14.59.30, men hvis det så tager længere end 30 sekunder, kører kopieringen ikke, for så er klokkebn mere end 15. Åbner du regnearket kl. 14:59:00, og det åbner på under 30 sekunder kører makroen heller ikke, for så er klokken ikke 15 endnu, når de 30 sekunder er gået.

Så der er ingen ideel løsning på præcis det problem.
Avatar billede jkrons Professor
26. oktober 2007 - 11:25 #6
Chip Peason har en del om tid på sin hjemmeside, herunder også om timere, så måske er der noget der, du kan bruge: http://www.cpearson.com/excel/OnTime.aspx
Avatar billede drako Nybegynder
26. oktober 2007 - 12:04 #7
Tusind tak for hjælpen, det har været dejligt med så hurtig respons!
Avatar billede jkrons Professor
26. oktober 2007 - 12:13 #8
Velbekomme .-)
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