Sortere data til mange ark

Hvad hedder dit Data ark, og i hvilken kolonne er oplysninger om opgaveansvarlige. ?

Data arket hedder "samlet". Jeg kan ikke lige huske hvad kolonne det er i, men logger lige på arb. og har svaret om 2 minutter.

SK

Den ansvarlige er i kolonne D.

Hvis den opgaveansvarliges ark hedder det samme, som det der skal findes i Arket("Samlet"), er det forholdsvis nemt.

Den ansvarlige vist ved initialer på 2 eller 3 tegn, og output arket har de samme initialer.
Jeg er ikke i tvivl om at det er nemt for dig, men det er pænt svært for mig lige nu....

Denne skal sættes i et Modul.


Public Sub CopyRækker(Ark As String)
Dim RW As Integer
RW = Worksheets(Ark).Range("A65536").End(xlUp).Row
  Worksheets(Ark).Rows("2:" & RW).ClearContents ' tømmer den opgaveansvarliges ark
X = 2
RW = Worksheets("samlet").Range("A65536").End(xlUp).Row
For i = 2 To RW
If Worksheets("samlet").Range("D" & i) = Ark Then
Worksheets("samlet").Rows(i & ":" & i).Copy
Sheets(Ark).Paste Destination:=Worksheets(Ark).Cells(X, 1)
X = X + 1
  End If
Next
End Sub

Denne skal i arkmodulet for hver ansvarlig

Private Sub Worksheet_Activate()
CopyRækker (ActiveSheet.Name)
End Sub

Der er plads til overskrifter i de ansvarliges ark, de vil ikke blive slettet ved opdatering.

Opdateringen sker automatisk, når man kommer fra et andet ark og går ind på den ansvarliges ark, det sørger den lille kode for.

Når du skriver at de skal indsættes i et modul, hvor er det så lige du mener?

den store kode skal være i et modul, ikke i arkmodulet,
Når du højreklikker på fanen af et ark 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 nu på hver af de opgaveansvarliges ark  navne, så det bliver med grå baggrund, her skal den lille kode være, i dem alle

Pas på du må ikke sætte den i arket samlet

Det den store kode gør at finde initialerne i kolonne D og så kopier hele rækken over i deres ark.

Så initialerne og navnet på deres ark skal være ens

Så skulle det være på plads, og den fører tallene om til de rigtige ark. Der er lige en vigtig ting jeg glemte at skrive. De første 4 linier er overskrifter, og skal bare være ens på alle ark.

der hvor der står X = 2 retter du til X = 5

og denne
Worksheets(Ark).Rows("2:" & RW).ClearContents ' tømmer den opgaveansvarliges ark
rettes til

Worksheets(Ark).Rows("5:" & RW).ClearContents ' tømmer den opgaveansvarliges ark

Så skal du lige selv sætte de 4 øverste rækker ind manuelt

Lige en ting, koden tæller i kolonne A på arket samlet, så der skal være data i den sidste række,i kolonne A, for at det funker.

Så er det gjort, og det virker næsten perfekt. Det macroen sætter ind bliver i skrift størrelse 10, mens alt det andet er i 8.

Nu vil jeg til at lege med at sortet data i kolonerne, så det kan være at jeg opretter et spm. om det senere.

Smider du et svar?

hvis det er størrelse 8 på arket samlet, vil det også være 8 på den ansvarliges ark

Er hastigheden blevet bedre. ?

Vær opmærksom på at de ansvarliges ark, bliver opdateret hver geng du går ind på deres ark, så sorteringen skal kobles på opdateringen, for at det virker ok.

Så er størrelsen 8 på hele samlet arket. Der var nogle rækker nederst, hvor størrelsen var 10.

Den er blevet noget hurtigere at arbejde med, og nu fylder den kun 1/10 af tidligere.

Kan jeg forresten lige få dig til kort at forklare hvad de enkelte dele af koden gør, da jeg meget gerne vil lære at lave macroer.

Public Sub CopyRækker(Ark As String)
Dim RW As Integer
RW = Worksheets(Ark).Range("A65536").End(xlUp).Row ' finder sidste række på den opgaveansvarliges ark

  Worksheets(Ark).Rows("5:" & RW).ClearContents ' tømmer den opgaveansvarliges ark
X = 5 ' første række den skriver i på den opgaveansvarliges ark

RW = Worksheets("samlet").Range("A65536").End(xlUp).Row ' finder sidste brugte række i arket samlet
For i = 2 To RW' begynder at læse fra række 2, da der som regl er en overskrift
If Worksheets("samlet").Range("D" & i) = Ark Then' finder opgaveansvarliges  initialer
Worksheets("samlet").Rows(i & ":" & i).Copy' kopierer rækken hvis den skal
Sheets(Ark).Paste Destination:=Worksheets(Ark).Cells(X, 1), sætter den ind på næste række i den opgaveansvarliges ark

X = X + 1' lægger 1 til rækken
  End If
Next ' leder videre efter den næste der skal kopieres
End Sub

Og tak for point. ;-))

Tak for det.

Hvordan mener du at det er bedst at lære at lave macroer? Ved at sidde og bøvle med det, eller skal jeg på et kursus for at lære de grundlæggende ting ordentligt? Arb. har "pålagt" mig at lære at lave macroer, så jeg skal ikke selv betale omkostnignerne.

Sæt din makro til at optage en makro, lav nogle enkelte handlinger, stop den og se hvad den skriver, ret i det for at se om det stadig virker, ved at køre makroen, lær af det.

Gør dem sværer og sværer.

Og følg med på eksperten, både i Excel og Visual basic VB6, de er meget ens.

Ok, jeg prøver at lege med det. Jeg har ikke brugt macro optageren ret meget, men det kunne da godt ske at jeg også skulle se lidt på den.

Jeg har søgt en del her på eksperten, og har også lært lidt af det, selv om det er svært at følge med nogle gange, når man ikke har det grundlæggende på plads.

Endnu en gang tak for hjælpen.

Gør som mig, Lav et Excel ark, Kald den Makrokoder, find spændende makroer, måske her på eksperten, kopier dem ind på cellerne i et ark, husk indsæt specielt og vælg tekst.

Kopier også linket til spørgsmålet ind i en celle ved siden af, så kan du altid se forklaringen.

Engang når du får tid, leg med makroerne ved at sætte dem ind i modulet, og se hvad de kan.