Lave oversigtsliste ark, med data fra 3 ens input ark.

Tror du kan finde inspiration i nedenstående spørgsmål, hvor der er ihvertfald tre mulige løsninger:
- bruger xl consolidator
- bruge xl pivot med multiple input
- =indirect formel med henvisning til de enkelte sheets

http://www.eksperten.dk/spm/802399

Vend tilbage om der er nogen du er i tvivl om.

Hilsen  Luffe

Hej Luffe,
Tak for din henvendelse.

Jeg har brugt lidt tid på konsolidering, men der er nogle opdateringsmæssige issues ligesom der bliver smidt en sum/produkt/min osv. alt efter valg, i listen. Jeg ønsker bare en ren liste der til enhver tid holdes opdateret og tilføjet nye opgaver når nye opgaver/linier indtastes i et af de 3 ark.

Jeg har ligeledes tidligere kikket på det spørgsmål som du henviser til fra anden bruger, men forskellen på det og mit, er at jeg har forskellig data i alle kolonner og vil gerne have alle linier listet under hinanden (ikke adderet). Det henviste spørgsmål går på at summere salg ud fra en altid identisk liste af produkter i alle den omtalte brugers faneblade, sådan som jeg forstår det.

Via VBA kan det lade sig gøre - giv signal hvis du er interesseret..

Det er rigtigt at manden skulle have summeret sine bananer i spørgsmålet, men samtidig også skulle have detaljerne tilgængelige - derfor jeg tænkte på det spørgsmål.
Personligt tror jeg jeg ville gå efter en pivottabel til at opsummere data. Er de først samlet her er det også mere fleksibelt efterfølgende hvis man skal summere antal projekter eller andet. Og man kan jo fravælge summeringer om det bare skal være en liste.
Jeg ville dog lige i de enkelte sheets tilføje en kolonne med navnet, således det kunne komme med i pivottabellen. De enkelte ranges i pivot'en kunne blot defineres til at række over 1000 rækker, idet de blanke rækker blot ville summere til en linje i pivot'en. Jeg går udfra at kombinationen navn, nr og beskrivelse vil være unik og man derfor kan summere materialet med den detaljeringsgrad. Jeg ville have navn, nr, beskrivelse som rows og uger i data summeret med en sum.
Alternativt må man gå efter noget VBA kode der kopierer de enkelte dele over i et samlet sheet.

Vend tilbage om ovenstående er uklart eller du er i tvivl om noget.

/ Luffe

VBA-forslag er udarbejdet.

Hej begge,

Tak for interessen. Ja, det kan være svært at forklare, men min resultatliste skal på ingen måde indeholde summering. Den skal blot afspejle alle projekter/opgaver i en lang liste som hentes fra de individuelle ark.

Jeg er ikke lige fortrolig med VBA, men er det nemt at inkoorporere i arket direkte er jeg da meget interesseret i dit forslag supertekst.

/Thomsen

Hvis du sender en mail til: pb@supertekst-it.dk
så sender jeg min model.

Blot lige for at forklare det med summering i en pivot. Om dine kombinationer af navn, nr og beskrivelse er unik, vil en summering på dette detaljeniveau give lige netop en linje fra datamaterialet; således forstået at har du 100 records i dine tre datasheets, vil du få 100 summerede linjer i din pivottabel, hver bestående af et ciffer, nemlig antal dage i den pågældende uge.

Er selv begejstret for pivottabeller og den flekibilitet den giver ... og ikke nogen ørn til VBA ;o)

// Luffe

Supertekst, jeg har modtaget din model og det er lige nøjagtig det jeg skal bruge. Mange mange tak....hvordan er det lige jeg får givet de point ?

Også tak til dig luffe, jeg er selv lidt pjattet med pivot, men kan ikke rigtig få dem til at give det ønskede resultat.

Vh/Thomsen

Kode, der er indlagt i arket: Opgaveliste

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$A$2" Then
        svar = MsgBox("Opdatering af medarbejdere", vbYesNo)
            If svar = 6 Then
                opdater
            End If
    End If
End Sub
Private Sub opdater()
Dim rækOpgListe, navn, sag, beskriv
Const antalMedarbejdere = 3          'Antal MEDARBEJDERE p.t. = 3 tilpasses   
    rækOpgListe = 3
   
    For ark = 1 To antalMedarbejdere
        With ActiveWorkbook.Sheets(ark)
            navn = .Name
            For ræk = 3 To 65000
                If .Cells(ræk, 1) = "" Then
                    Exit For
                Else
                    sag = .Cells(ræk, 1)
                    beskriv = .Cells(ræk, 2)
                                       
                    With ActiveWorkbook.Sheets(4)
                        .Cells(rækOpgListe, 1) = navn
                        .Cells(rækOpgListe, 2) = sag
                        .Cells(rækOpgListe, 3) = beskriv
                       
                        For u = 1 To 52
                            uge = ActiveWorkbook.Sheets(ark).Cells(ræk, u + 2)
                            If IsEmpty(uge) = False Then
                                .Cells(rækOpgListe, u + 3) = uge
                            End If
                        Next u
                    End With
                    rækOpgListe = rækOpgListe + 1
                End If
            Next ræk
        End With
    Next ark
End Sub

Mange tak for hjælpen Supertekst.

Har prøvet at klikke accepter, men bliver bare smidt til toppen af posten uden at give dig en accept...prøver en gang til, hvis ikke det virker prøver jeg lidt senere idag.