03. december 2004 - 08:38Der er
7 kommentarer og 1 løsning
Excel, et oversigtsark og bestemte værdier
Problemet er som følgende:
Jeg har et regneark med X antal underark, så vil jeg gerne kunne lave et underark mere som kaldes "Samleark". I det ark vil jeg gerne have listet række nr. 100 op, fra de øvrige underark.
Navnet på de forskellige under ark er ikke den samme fra gang til gang.
Public Sub CopyFørsteRække() 'Ret "Ark1" til navnet på det ark du vil have dataerne på X = 1 Antal = Worksheets.Count For Each Ws In Worksheets If Ws.Name <> "Ark1" Then Worksheets(Ws.Name).Rows("100:100").Copy Sheets("Ark1").Paste Destination:=Worksheets("Ark1").Cells(X, 1) X = X + 2 End If Next Worksheets("Ark1").Select Range("A2").Select Application.CutCopyMode = False Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub
Hvis der ikke er st bestemt system i de navne du har kaldt underarkene, kan du lave kolone A manuelt. Så skal du fx skrive i A1 =xarket!a100 A2 =Navn!a100 A3 =endnuetnavn!a100 osv Ax =detsidsteark!a100
Kopier så kolonne a til de øvrige.
Hvis der er en smule system i de navne du har givet arkene, kan det måske gøres smartere.
til forskel fra hans, tager den værdier og ikke formler
Public Sub CopyFørsteRække() 'Ret "Ark1" til navnet på det ark du vil have dataerne på Dataark = "Ark1" X = 2 Antal = Worksheets.Count For Each Ws In Worksheets If Ws.Name <> Dataark Then Worksheets(Dataark).Rows(X) = Worksheets(Ws.Name).Rows("100:100").Value X = X + 1 End If Next Worksheets(Dataark).Select
Fordi jeg gerne vil kunne bruge arket en anden gang hvor alle underarkenes navn er nogle andre. Så skulle jeg gerne kunne indsætte en formel som vil gøre det lettere end det Klid kommer med.
Prøv at se et af mine andre spørgsmål: "en formel, som søger efter et navn, fra en celle, i flere ark."
Efter din metode skal jeg lave om i formlerne hver eneste gang.
Det er nok mig som ikke har forklaret mig godt nok.
Jeg har fundet en løsning, fra et af mine andre spørgsmål se "en formel, som søger efter et navn, fra en celle, i flere ark."
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.