Új hozzászólás Aktív témák

• #16725 Kobe veterán

  Új Válasz 2013-02-14 19:36:51 #16725

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Kobe

  veterán

  sziasztok

  volna egy excel makrós kérdésem. Van egy listám, ami mindig ugyanabból az oszlopokból áll, ám a sorok száma mindig változik. Egy olyan makrót akarok összehegeszteni, ami a lefuttatáskor beszúr 2 oszlopot a meglévők mellé, az oszlopokban pedig egy függvény által visszaadott értéket ír be, majd az egész táblából (az eredeti + 2 hozzáadott oszlop) csinál egy pivot táblát.

  Mivel a sorok száma ugye dinamikusan változik (a kapott adatok egy adatbázis letöltésből származnak), ezért legelőször abba a problémába ütköztem, hogy a rögzített makró csak meghatározott számú sorba rakta bele a kalkulált értékeket, tehát meghatározott egy ranget pl Range(A1:A40) és később végig erre hivatkozott, de mikor pl 60 soros volt a lista, akkor is csak az első 40 sorba rakta be az adatokat, és a pivot táblában is csak azokat szerepeltette, vette figyelembe.

  Ezt kiküszöbölendő, a makrü legelején definiáltam egy változót:

  Dim LR As Long
  LR = Range("A" & Rows.Count).End(xlUp).Row

  Ezekután a kódban kicseréltem azokat a részeket, ahol a konkrét rangere hivatkozott, a változóra, pl Activesheet.Range("A1:A" & LR").Select lett az Activesheet.Range("A1:A40").Select helyett

  Így már rendesen feltölti az összes, változó számú sorba a kiegészítő adatokat, viszont a pivot táblánál még mindig csak az első 40 sorral kalkulál. Próbáltam ugyanígy updatelni a pivot tábla forrására vonatkozó részt, de akkor emg hibára futott a makró sajna

  ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  "Munka1!R1C118C3", Version:=xlPivotTableVersion14).CreatePivotTable _
  TableDestination:="Munka4!R3C1", TableName:="Kimutatás1", DefaultVersion _
  :=xlPivotTableVersion14
  Sheets("Munka4").Select

  a kiemelet részt próbáltam így updatelni: "Munka1!R1C1 & LR C C18" updatelni.....az oszlopok száma mindig 18, a sorok számába kéne bebűvölni a korábban meghatározott változót. gyanítom csak valami szintaktikai hiba
  any idea hogy kellene ezt beleírnom a pivot os részbe ?

Új hozzászólás Aktív témák