02. september 2004 - 09:17Der er
13 kommentarer og 1 løsning
Excel 2003 - samle linier fra flere mapper i en samlet mappe
Hvordan kan få Excel til at tage linierne i 3 forskellige mapper og samle dem i en 4. mappe?
Det kan laves ved en simpel reference, men hvis der så kommer en ekstra post (linie) på så skal den også tage den med. Funktionen skal samle de linier hvor der er en værdi i søjle J der er =1.
Ideen med dette regneark er, at jeg har 3 distrikter med hver deres mappe som jeg kan indtaste i, med søjlerne A=Id, B=Navn, C=By, D-I=diverse værdier, J=afsluttet. Hvis afsluttet (J) er udfyldt i de enkelte distriktsmapper, så skal den tage den pågældende linie med over i den SAMLET-mappe, hvor jeg kun kan se de forskellige data og sortere på dem. De skal stadig blive i de enkelte distriktsmapper, hvor jeg så stadig kan taste flere og flere poster ind og redigere i de forskellige tal på trods af de har fået status som afsluttet. I samlet mappen skal den under den sidste post hele tiden tælle sammen under følgende søjler D, E, F, J, L, M, og P.
Jeg håber på at der er nogen der kan hjælpe mig med ovenstående.
Public Sub CopyRækker() 'Ret "Ark1" til navnet på det ark du vil have dataerne på 'Ret de andre ark til dine arks navne X = 1 Rw = Worksheets("Ark2").Range("A65536").End(xlUp).Row For i = 2 To Rw If Worksheets("Ark2").Range("J" & i) <> "" Then Worksheets("Ark2").Rows(i & ":" & i).Copy Sheets("Ark1").Cells(X, 1).PasteSpecial Paste:=xlValues X = X + 1 End If Next
Rw = Worksheets("Ark3").Range("A65536").End(xlUp).Row For i = 2 To Rw If Worksheets("Ark3").Range("J" & i) <> "" Then Worksheets("Ark3").Rows(i & ":" & i).Copy Sheets("Ark1").Cells(X, 1).PasteSpecial Paste:=xlValues X = X + 1 End If Next
Rw = Worksheets("Ark4").Range("A65536").End(xlUp).Row For i = 2 To Rw If Worksheets("Ark4").Range("J" & i) <> "" Then Worksheets("Ark4").Rows(i & ":" & i).Copy Sheets("Ark1").Cells(X, 1).PasteSpecial Paste:=xlValues X = X + 1 End If Next
Worksheets("Ark1").Select 'søjler D, E, F, J, L, M, og P.
Jeg så lige at du i J kolonnen skriver 1, hvis du vil have rækken, det er ændret her.
Public Sub CopyRækker() 'Ret "Ark1" til navnet på det ark du vil have dataerne på 'Ret de andre ark til dine arks navne X = 2 Rw = Worksheets("Ark2").Range("A65536").End(xlUp).Row For i = 2 To Rw If Worksheets("Ark2").Range("J" & i) = 1 Then Worksheets("Ark2").Rows(i & ":" & i).Copy Sheets("Ark1").Cells(X, 1).PasteSpecial Paste:=xlValues X = X + 1 End If Next
Rw = Worksheets("Ark3").Range("A65536").End(xlUp).Row For i = 2 To Rw If Worksheets("Ark3").Range("J" & i) = 1 Then Worksheets("Ark3").Rows(i & ":" & i).Copy Sheets("Ark1").Cells(X, 1).PasteSpecial Paste:=xlValues X = X + 1 End If Next
Rw = Worksheets("Ark4").Range("A65536").End(xlUp).Row For i = 2 To Rw If Worksheets("Ark4").Range("J" & i) = 1 Then Worksheets("Ark4").Rows(i & ":" & i).Copy Sheets("Ark1").Cells(X, 1).PasteSpecial Paste:=xlValues X = X + 1 End If Next
Worksheets("Ark1").Select 'søjler D, E, F, J, L, M, og P.
ja... Tror ikke at jeg sætter den ind det rigtige sted . Har forsøgt at sætte den ind både over og under den lange tekst, men uden held, jeg er ikke ret meget ind i det med makro / moduler.
den store kode skal være i et modul, ikke i arkmodulet, Når du højreklikker på fanen af dit samleark og vælg vis programkode Kan du i venstre side se dine arknavne.
Oppe i menulinien vælger du Insert > module
Nu kan du se ovre under arkene til venstre står Module1.
Se nu er Module1 makeret med grå baggrund, det er her den store kode skal være
dobbeltklik på dit samlearks navne, så det bliver med grå baggrund, her skal den lille kode være.
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.
