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

• #16727 Excelbarat tag Kobe #16725

  Új Válasz 2013-02-14 22:35:37 #16727

  Ú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

  

  Excelbarat

  tag

  válasz Kobe #16725 üzenetére

  Jól sejted csak a forrást kell átírnod így:
  így kezdődjön:
  Range("A3").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  ujforras = Sheets("Munka1").[A6].CurrentRegion.Address(ReferenceStyle:=xlR1C1)

  Majd a forrásnál így hivatkozz:
  SourceData:= "Munka1!" & ujforras

  A makró végére pedig be kell írni ezt:
  Sheets("Munka4").PivotTables(1).RefreshTable

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