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

• #14650 csferke senior tag

  Új Válasz 2012-08-16 06:51:01 #14650

  Ú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

  

  csferke

  senior tag

  Delila!
  Ezeket a makrókat Tőled kaptam . Jól is működnek, elvégzik a feladatukat.
  Private Sub Worksheet_Activate()
  ActiveSheet.PivotTables("PivotNenapFakt").PivotCache.Refresh
  Elrejt
  End Sub

  Sub Elrejt()
  Dim sor%, usor%
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  sor% = usor%
  For sor% = usor% To 5 Step -1
  If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
  Next
  End Sub

  A gondom a következő. Excel Pivot táblája elrejtett sorokkal amikor frissül akkor és újra Elrejt akkor nem jeleníti meg a pontos adatokat. A Grand Total az stimmel csak hiányzanak sorok a Pivot-ból. Arra gondolok, hogy a Hidden sorok miatt kutyulja össze magát.
  Amikor nincsenek eltüntetve a sorok akkor jól frissül a Pivot.

  Kérlek írj egy új makrót is (Mutat) amelyet meghívnák mielőtt frissítődik a Pivot.
  Reményeim szerint akkor jól mutatná az összegzési sorokat is.

  köszönöm

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