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

• #14569 csferke senior tag

  Új Válasz 2012-08-07 10:30:04 #14569

  Ú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

  Szia Delila,
  nemrégen volt téma, hogy hogyan tüntessem el a Pivot táblából a nem szükséges sorokat. Ezzel a kóddal működik is.
  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

  Felmerült azonban egy új eset is. Ha az aktuális sor D oszlopában lévő szám negatív előjelű ez a sor meg kellene, hogy maradjon, látszódjon a Pivot-ban.

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