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

• #51271 13128814 tag Fferi50 #51270

  Új Válasz 2023-08-05 14:51:58 #51271

  Ú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

  

  13128814

  tag

  válasz Fferi50 #51270 üzenetére

  Utána az AI:AR utolsó sora ami szintén sum függvényekből áll bemásolódik a következő helyre:
  
  [link] (utolsó sor)
  [link] (ide másolódik)

  Ami izgi, az az, hogy utána generálódik még egy pivot, viszont ott már azokat a kártyákat vizsgáljuk ahol a változás "1":

  [link]

  Biztos van szofisztikáltabb megoldás ezekre, én is csak örököltem ezt a feladatot, csak mivel simán elmegy 1 - 1,5 óra rá hetente, gondoltam megpróbálom lemakrózni. Az más kérdés hogy már annyi munkaórám van benne, mintha fél évig manuálisan töltögettem volna. De ez a "tudás" már az enyém!

  Végül is úgy oldottam meg, hogy bekapcsoltam a szűrőket, és utána húztam végig a képleteket:
  
  With PSheet.PivotTables("PIVOT").PivotFields("változás")
            .Orientation = xlPageField
            .Position = 2
            .PivotItems("0").Visible = True
            On Error Resume Next
            .PivotItems("(blank)").Visible = False
            .PivotItems("1").Visible = False
            On Error GoTo 0
        End With
        
        With PSheet.PivotTables("PIVOT").PivotFields("Elérhető")
            .Orientation = xlPageField
            .Position = 3
            .PivotItems("1").Visible = True
            .PivotItems("2").Visible = True
            ' Hide other items if present
            On Error Resume Next
            .PivotItems("(blank)").Visible = False
            .PivotItems("0").Visible = False
            On Error GoTo 0
        End With
  
  Bár ettől függetlenül nagyon zavar hogy ilyen lett, mert így nem tetszik. Kicsit tróger megoldásnak érzem.

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