Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Izolatie intre OSB si placa de be...

instalatie incalzire apartament 2...

HEV D Segment - intrebari/pareri ...

Hyperos consum excesiv baterie?
 Contractul pentru Salubrizare est...

Elicopterul care-l transporta pe ...

Sfaturi achizitionare apartament ...

Permis de conducere nou
 Packet Loss la Digi

Masurare parametri CATV prin Conn...

Youtube a inceput sa aiba lag!?

Internet Archive - adauga item la...
 Electrica Furnizare + Poșta ...

Probleme cu scurgerea de ulei pe ...

Blocuri cu apartamente de 5+ camere

Casa noua finisata, teava incalzi...
 

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