Új hozzászólás Aktív témák

• Fferi50 Topikgazda

  #46972

  #46970 Apollo17hu

  2021-06-14 08:11:32

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  #46970 Apollo17hu

  Szia!
  Próbáld ki ezt a makrót. Végigmegy a munkafüzet összes kimutatásán, kigyűjti a forrásokat, a végén kiírja az Immediate ablakba az eredményt:
  Munkalapnév:kimutatásnév>forrás
  formában.
  Option Base 1 'ezt a modul első sorába írd be lsz.
Sub lista()
Dim ws As Worksheet, pvt As PivotTable, udim As Integer, pvtfrs(), pvtfr
udim = 1
ReDim pvtfrs(udim)
For Each ws In Worksheets
For Each pvt In ws.PivotTables
If pvtfrs(udim) <> "" Then ReDim Preserve pvtfrs(udim + 1): udim = udim + 1
pvtfrs(udim) = ws.Name & ":" & pvt.Name & ">" & pvt.SourceData
Next
Next
For Each pvtfr In pvtfrs
Debug.Print pvtfr
Next
End Sub
  Természetesen a kiírást lehet munkalap celláiba is tenni pl.:
  Dim x As Integer
For x = 1 To udim
ActiveSheet.Range("A1").Offset(x - 1, 0).Value = pvtfrs(x)
Next
  Az aktív munkalap első oszlopába írja ki a forrásadatokat.
  Üdv.

Új hozzászólás Aktív témák