Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Bitdefender Total Security ș...

casa verde 2024

Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne
 Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii
 Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...
 Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor
 

Sortare dupa data in pivot table ,report filter vba

- - - - -
  • Please log in to reply
2 replies to this topic

#1
natzuc

natzuc

    New Member

  • Grup: Members
  • Posts: 2
  • Înscris: 07.07.2011
salut,


Incerc sa fac niste filtrari intru-un pivot, in functie de data, pe care o selectez cu ajutorul unui "Inputbox", de fiecare data cand  rulez programu am nevoi de alta zi
Am folosit mai multe variante ....dar nu aplica filtru , am 2variante  mai jos, daca are cineva alte idei, am incercat chiar sa modific formatul datei din sursa pivotului.

Columns("A:A").Select
    Selection.NumberFormat = "dd.mm.yyyy"
Dim W1ziua As String

W1ziua = Application.InputBox("Ziua de Prelucrat")
Dim pf As PivotField
Dim pi As PivotItem
Set pf = ActiveSheet.PivotTables("PivotTable2").PivotFields("Date")
For Each pi In pf.PivotItems
On Error Resume Next

    Select Case pi
  
    Case "W1ziua"
  
    pi.Visible = True
    Case Else
    pi.Visible = False
  
    End Select

Next
End Sub


si varianta 2

Dim W1ziua As String
    num = InputBox(Prompt:="Date", Title:="Ziua prelucrata")
    Sheets("Sheet5").PivotTables("PivotTable2").PivotFields("Date")_
    .CurrentPage = "W1ziua"

#2
Comy

Comy

    Member

  • Grup: Members
  • Posts: 289
  • Înscris: 21.12.2001
Daca am inteles eu bine ce vrei, posibil sa te ajute "slicers"
https://support.offi...1a-12651785d29d

#3
natzuc

natzuc

    New Member

  • Grup: Members
  • Posts: 2
  • Înscris: 07.07.2011
multumesc,

dar lucrez pe  2007

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate