Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Bing-Content removal tool

Nu pot accesa monitorulsv.ro de l...

Cum sa elimini urmele de acnee?

Wc Geberit
 Routere detinute in trecut si in ...

Teii din fața casei

E-Mail in serie prin Excel si Out...

Modul alimentare rulou/jaluzea ex...
 Recuperare fișiere dupa form...

Aplicatii stress test RAM

Asigurare auto hibrid

Asus B550M - PC-ul nu porneste di...
 Tzanca Uraganu - Inconjurat de Fe...

explicatie montaj breadboard

3 Doors Down - Kryptonite

Semnalizati cand virati pe un dru...
 

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

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

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