Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketdynamisk pivot
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22.Okt.2019
Land: DK
Status: Offline
Point: 7 		Direkte link til dette indlæg Emne: dynamisk pivot
    Sendt: 24.Okt.2019 kl. 21:36
Er der en måde hvor pivottabellens valg af felter for henholdsvis rækker og kolonner kan hentes via en celle / indtastning ?
Til top



Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13.Aug.2019
Land: Danmark
Status: Offline
Point: 169 		Direkte link til dette indlæg Sendt: 25.Okt.2019 kl. 10:58
Jeg har tidligere siddet med samme udfordring og fandt frem til nedenstående VBA kode, som virker fint for mig.
Jeg har den i koden for selve arket med pivot'en

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("G1:G2")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("PivotMonth").PivotTables("PivotTable1")
    Set xPFile = xPTable.PivotFields("YYYYMM:")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub


/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22.Okt.2019
Land: DK
Status: Offline
Point: 7 		Direkte link til dette indlæg Sendt: 29.Okt.2019 kl. 10:51
Tak for input

Jeg kan dog ikke få noget til at ske ?

Det som jeg har brug for er at pivottabellens rækker og kolonner vælges via eks A10 og A11
dvs. at de felter som pivottabellen i feltlisten skal putte i hhv. rækker og kolonner hentes via data i A10 og A11. 
Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13.Aug.2019
Land: Danmark
Status: Offline
Point: 169 		Direkte link til dette indlæg Sendt: 29.Okt.2019 kl. 11:33
Mener du som nedenstående eksempel, hvor dine input styrer hvilke felter/kolonner fra dit datasheet, som skal bruges som kolonne, række og evt filter og værdier:?

A10 = "TEST1"
A11 = "TEST2"
A12 = "TEST3"



/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22.Okt.2019
Land: DK
Status: Offline
Point: 7 		Direkte link til dette indlæg Sendt: 29.Okt.2019 kl. 11:44
Yes, lige netop
Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13.Aug.2019
Land: Danmark
Status: Offline
Point: 169 		Direkte link til dette indlæg Sendt: 29.Okt.2019 kl. 14:38
Tjek om du kan bruge vedhæftede.
I eksemplet kan du ændre dine valg i cellerne G1 og G2


/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22.Okt.2019
Land: DK
Status: Offline
Point: 7 		Direkte link til dette indlæg Sendt: 29.Okt.2019 kl. 14:52
Det er lige nøjagtigt sådan jeg havde tænkt :-)
Tusind tak - men hvor finder jeg koden .... syntes ikke den er synlig i makroerne ?
Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13.Aug.2019
Land: Danmark
Status: Offline
Point: 169 		Direkte link til dette indlæg Sendt: 30.Okt.2019 kl. 07:49
Super, måske det kan laves smartere, er ikke en haj til VBA :-)

Koden ligger på selve arket - Højreklik på arket (PIVOT), og så "View Code".

/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22.Okt.2019
Land: DK
Status: Offline
Point: 7 		Direkte link til dette indlæg Sendt: 30.Okt.2019 kl. 16:30
Perfekt .... endnu en gang tusind tak
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk