15. december 2007 - 02:17Der er
6 kommentarer og 1 løsning
Opsummerings ark
Hej,
jeg har oprettet en fil, hvor i jeg har en masse ark. Der kommer dog ofte nye til (og nogle gange fra)
Jeg har så et ark (Udskrift), som gerne skulle vise arket's navn (Også overskriften, som står i "B1") og derefter tre værdier, som står i "G12", "G13" og "G14". Kan dette laves, så alle arkene automatisk bliver repræsenteret på Udskriftsarket med de 3 værdier, så jeg ikke skal ind og taste hver gang jeg opretter et nyt ark. De nye ark bliver i forvejen oprettet via en makro-knap!
Set sh = Sheets("Udskrift") For Each ws In ActiveWorkbook.Worksheets If ws.Name <> sh.Name Then x = x & ws.Name & ":" & ws.[B1] & ":" & ws.[G12] & ":" & ws.[G13] & ":" & ws.[G14] & ":" & ":" End If Next y = (ActiveWorkbook.Worksheets.Count - 1) * 6 + 1
Jeg er ikke helt klar over, om dette er hvad du ønsker, men prøv og vend tilbage:
Sub ListArk() Dim i As Long, so As Object Sheets(1).Range("A:A").ClearContents i = 0 For Each so In Sheets i = i + 1 Sheets(1).Cells(i, 1).Value = so.Name Sheets(1).Cells(i, 2).Value = so.Range("B1") Sheets(1).Cells(i, 3).Value = so.Range("G12") Sheets(1).Cells(i, 4).Value = so.Range("G13") Sheets(1).Cells(i, 5).Value = so.Range("G14") Next End Sub
Det virker begge 2 efter hensigten. Jkrons har ramt det lige som jeg havde tænkt det. Dog opretter den felterne på det første ark og ikke på "Udskrifts"-arket, som blot hedder Udskrift. Hvordan ændrer man lige det?
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.
