Dynamisk data hentning til pivot tabel

Hejsa

Hvis du bruger Excel 2010 eller nyere kan du lægge dine data i en navngiven tabel og så få pivoten til at hente alt indhold fra tabellen.
Så vil den ikke længere kigge på størrelsen af tabellen, men på alt indholdet.

Med venlig hilsen

Henrik

Jo da

Alt foregår i kode så hvordan ?

Prøv at ændre

Nedenstående

"Ark2!R1C1:R3948C3"

til

"Tabelnavnet"

altså til det navn som tabellen har.

Yes
det vil sige jeg skal lave en kode der finder ud af hvor stor tabellen er
og markerer denne , for derefter at navngive den
er dette korrekt ?

Det område hvor du har dine data skal formatteres som en tabel.
Når du gør det, får tabellen automatisk tildelt et navn, som du vil kunne se oppe i menu-linien i venstre side når du har klikket på "Tabel-værktøjer" i toppen af menu-linjen.
I din Pivot-kode skal du så, som vist, skrive navnet på tabellen ind i stedet for at skrive noget med størrelse.
Tabellen vil nemlig indrette sig efter hvor meget du fylder i den og pivot-tabellen vil opdatere alle det a der ligger i tabellen ligegyldigt hvor mange eller få rækker der måtte være på det givne tidspunkt.

Du kan altså forstille dig at tabellen er en spand og indholdet er vand, og når du opdaterer pivot-tabellen henter den alt det vand der ligger i spanden hvad enten det er en hel eller en halv liter vand...

Håber at ovenstående giver mening...

Ok
Har nok ikke formeleret mig korrekt , siden du bliver ved med at skrive hvad der står i menu linje m.v.

ALT ALT bliver lavet i kode , lige fra at hente data til slut finish

Altså tryk på en knap og det færdige resultat er der !!!!!!!!!!!

Ok... har du mulighed for at kopiere hele den kode der bruges fra den henter data ind og til pivoten er færdig?

Eller måske selve excel-arket?

Se problemet ligge ri at finde ud af hvor stor data er
den del har jeg fundet ud af , men får hele tiden i koden
den absolutte adresse altså med $

Så spørgsmåler er når jeg når beder den om at gå til sidste celle i arket
kan den så leverer adressen i R1C
således jeg kan ændrer R til noget andet



"Ark2!R1C1:R3948C3",

Hvis jeg forstår det korrekt så henter din kode først data ind i et ark og ud fra disse data dannes derefter en pivot-tabel?

Hvis dette er korrekt skal du ændre tabel-navnet i koden der hvor der hentes data ind i arket udefra og det samme tabel-navn skal så sættes ind i koden der dannet pivot-tabellen som vist i en tidligere tråd.

Derefter vil du slet ikke have brug for RC-kodningen længere.

Så igen... har du mulighed for at sende koden til mig, så jeg kan markere hvor det er du skal lægge ændringerne ind?

Har denne kode , inden Pivot tabel

i = 1
Range("a1").Select
Do While Not ActiveCell.Offset(0, i).Value = "Jur"
i = i + 1
Loop
i = i + 1
Columns(i).Select

Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
Worksheets(1).Activate
i = i + 2
Columns(i).Select
Selection.Copy
Worksheets(2).Activate
Range("b1").Activate
ActiveSheet.Paste
Range("a5").Activate
ActiveWorkbook.Worksheets(2).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(2).Sort.SortFields.Add Key:=Range("A5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(2).Sort
        .SetRange Range("A2:B200000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
  Range("c2").FormulaLocal = "=LOPSLAG(B2;'O:\bogholderi\salg\[sagstyper.xlsx]Ark1'!$g:$h;2;FALSK)"
 
  p = 1
  Do While Range("b" & p).Value <> ""
  p = p + 1
  Loop
  p = p - 1
 
  Range("C2").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("C2:C" & p)
  o = 1
  Do While Not Range("a" & o).Value = ""
  Range("a" & o).Value = Trim(UCase(Range("a" & o).Value))
  o = o + 1
  Loop
  Range("c1").Value = "Gennemsnit"

Som jeg læser det skal du danne pivot-tabellen ud fra data i Worksheet(2).

En løsning kunne derfor være, at du i worksheet(2) lægger nedenstående kode ind, som vil konvertere alle dataene i dette faneblad til en tabel og derefter lægger du dette tabelnavn ind i den kode der danner din pivot-tabel.

bemærk at du skal oprette to variabler

Dim Bund as long
dim Kol as long

    'Starter fra celle (A1) og finder nederste række med indhold.
    Cells(1, 1).Select
    Selection.End(xlDown).Select
    'Tildeler variablen Bund nummeret på den nederste række der skal være med i tabellen
    Bund = ActiveCell.Row
    'Starter fra celle (A1) og finder sidste kolonne med indhold.
    Cells(1, 1).Select
    Selection.End(xlToRight).Select
    'Tildeler variablen Kol nummret på den sidste kolonne der skal være med i tabellen
    Kol = ActiveCell.Column
    Cells(1, 1).Select
    'Opretter tabellen og tildeler den navnet "Tabel1" (dette navn kan du selv ændre
    ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(Bund, Kol)), , xlYes).Name = _
        "Tabel1"
    'Vælger den formattering som tabellen skal have. (Husk at hvis du vil ændre tabelnavnet skal det også ændres herunder)
    Range(Cells(1, 1), Cells(Bund, Kol)).Select
    ActiveSheet.ListObjects("Tabel1").TableStyle = "TableStyleMedium2"
   
    Cells(2, 1).Select

--------------------------------------------------

Herefter er alle data i en navngiven tabel og du kan nu blot henvise til dette navn i din Pivot-kode hvorefter alle data kan pivoteres efter ønske.

Håber at det giver mening og ellers vender du bare retur så jeg kan forsøge igen. Mine pædagogiske evner er ikke de bedste såå...