28. januar 2003 - 23:53Der er
5 kommentarer og 2 løsninger
Overføre data fra mange forskellige (ens) ark til et nyt ark
Jeg har data i 31 éns ark. Disse data vil jeg gerne have lagt over i et nyt ark, men under hinanden, så jeg kan bruge det nye ark til en pivottabel. Kan jeg det uden at skulle lave en masse forholdsvis éns formler i det nye ark. (Jeg kan jo ikke uden videre kopiere, da jeg skal henvise til arknavnet).
Et lille tillægsspørgsmål: Når jeg laver en pivottabel, og putter felter ind i dataområdet, så foreslår excel pr. automatik, at det bliver antallet der vises i sidste række istedet for summen, som jeg oftest ønsker. Ligesom jeg også har et andet ønske til antal decimaler. Er der nogen steder jeg kan rette dette, så forslaget passer bedre til det jeg oftest har brug for? - og kan man undgå på f.eks. en enkelt datakolonne at der vises nogen sum overhovedet?
Jeg skal nok fordele pointene iht. de forskellige spørgsmål.
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Mon ikke denne her løser hovedspørgsmålet (er dog ikke testet) - jeg springer lige over tillægsspørgsmålet!
Public Sub SamlingAfArkData() Dim wksTemp As Worksheet Dim wksNew As Worksheet
Set wksNew = Worksheets.Add(After:=Worksheets.Count)
For Each wksTemp In Worksheets If Not (wksTemp = wksNew) Then wksTemp.UsedRange.Copy wksNew.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End If Next wksTemp
wksNew.Select
' Clean up Application.CutCopyMode = False Set wksTemp = Nothing Set wksNew = Nothing End Sub
Hold da helt op "flemmingdahl". Jeg er jo blot en amatør!!. Hvor og hvordan skal jeg skrive alt det. Når jeg har lavet en makrofil der er fejl i, så ligner det sådanne linier du har skrevet. Når jeg kommer ind i det, så skynder jeg mig at lukke ned igen.
For at køre Flemmings makro skal du trykke Alt-F11. Så kommer du til Makro-editoren. Her vælger du Insert og vælger Module. Kopier så flemmings kode og indsæt den i dette nye modul. Tryk Alt-F11 igen og du er tilbage på regnearket. Gå nu til Funktioner / makroer og Kør makroen der hedder SamlingAfArkData. den opretter selv det nye samlingsark.
Du kunne jo også kopiere som du plejer, men istedet for at vælge Indsæt, så vælg Indsæt Speciel og sæt flueben i Indsæt Kæder. På den måde får du referencen til dine gamle ark med.
Jeg ser lige, at jeg har et gammel uaccepteret spørgsmål liggende. Jeg kunne ikke hitte rede i svaret, men lavede istedet en macro der kopierede og indsatte på et ark for sig selv. Jeg kører macroen de 31 gange. Fungerer fint nok for mig. Da jeg ikke har fået svar på mit "tillægsspørgsmål", tillader jeg mig at beholde halvdelen er pointene selv. Håber det er ok.
Ok. Grunden til at din pivottabel foreslår TÆL istedet for SUM er at dine data ikke er "rene" tal. Hvis der kun er "rene" tal vil den automatisk lave sum. med rene tal menes : ingen I/T, #DIV eller andre fejlmeddellelser i datagrundlag sum sum. ingen tekst i i nogen af cellerne der skal summes
"ingen tekst" kan f.eks. være tomme celler?. Jamen, det var da en forklaring. Så skal jeg ikke tænke mere over 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.
