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

• #38105 Delila_1 veterán Ptech #38104

  Új Válasz 2018-05-25 18:36:02 #38105

  Ú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

  

  Delila_1

  veterán

  válasz Ptech #38104 üzenetére

  Előtte a képleteket értékként saját magukra kell illeszteni.

• #35988 Fferi50 Topikgazda Ptech #35981

  Új Válasz 2017-08-16 22:50:36 #35988

  Ú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

  

  Fferi50

  Topikgazda

  válasz Ptech #35981 üzenetére

  Szia!

  "az egyetlen baj, hogy nem minden pivotban 'Status' a PivotField neve, itt akadtam el igazából."

  Akkor nincs más lehetőséged, mint legalább egyszer végignézni "kézzel" a Pivottáblákat, hogy megállapíthasd, melyik Pivotfielddel kell dolgozni. Ezt beleteheted pl. feltételbe:
  Dim PTF as PivotField
Select Case PT.Name
Case "Elso"
Set PTF = PT.Pivotfields("EZ")
Case "Masodik"
Set PTF = PT.Pivotfields("AZ")
'.ide írod a többi lehetőséget
'.
End Select
With PTF
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With
  Esetleg listába teszed a PivotField neveket:
  Dim Nevek as String,PTF as Pivotfield
Nevek="Elso,Masodik....."
For Each PTF in PT.Pivotfields
If Instr(Nevek,PTF.Name)>0 Then
With PTF
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With
Exit For
End If
Next

  Persze ne feledkezz meg a külső ciklusról se.

  Üdv.

• #35974 Fferi50 Topikgazda Ptech #35970

  Új Válasz 2017-08-15 11:26:52 #35974

  Ú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

  

  Fferi50

  Topikgazda

  válasz Ptech #35970 üzenetére

  Szia!

  Ciklussal végig kell menni a pivottáblákon, úgy ahogyan a pivotitemmel teszed.

  Dim PT As PivotTable
Dim PvI As PivotItem

For each PT in Worksheets("Summary").PivotTables
With PT.PivotFields("Status")
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With
Next

  Üdv.

• #35137 Fferi50 Topikgazda Ptech #35136

  Új Válasz 2017-05-09 11:16:29 #35137

  Ú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

  

  Fferi50

  Topikgazda

  válasz Ptech #35136 üzenetére

  Szia!

  Az a baj ezzel, hogy nem abból a sorból veszed az értéket, amelyikben a keresendő érték van.
  A B2 mellé a C2 cellát kell rendelni, ha megtalálja az A oszlopban az értékét, nem pedig a C5 celláét, amit a Te képleted adna. (AAC367 helyett DDY998)

  Üdv.

• #35133 Fferi50 Topikgazda Ptech #35132

  Új Válasz 2017-05-09 11:06:31 #35133

  Ú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

  

  Fferi50

  Topikgazda

  válasz Ptech #35132 üzenetére

  Szia!

  Szerintem ez annál trükkösebb.

  =HA(HIBÁS(HOL.VAN(B2;A:A;0));"";C2)

  lesz a jó.

  Üdv.

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