Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
RAM Dual Chanel

Baterii LiFePO4 cilindrice model ...

Cumparare apartament nou pe numel...

Nelamurire Whatsapp
 Recomandare editor

Robotul care iși schimba for...

Ce facem cu echipamentele vechi U...

Cine fura azi un ou ... primeste ...
 Cursuri la palatul copiilor

Înregistrare apel xiaomi

Bicicleta Eliptica

Merita achizitionat un Smart ForT...
 De ce nu pleaca unii romani in ve...

declaratia 406 sau SAF-T

Brackets vs gutiera dentara

Control ISCTR/RAR - mici nelamuriri
 

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

Bun venit pe Forumul Softpedia!

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