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

• #52069 Delila_1 veterán Vérboci #52066

  Új Válasz 2024-01-19 07:28:05 #52069

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Vérboci #52066 üzenetére

  Írtam egy kis makrót, ami elvégzi az adatokat tartalmazó oszlopok láthatóságát.
  Modulba kell bemásolnod (lásd az összefoglalóban a leírását).

  Sub Frissites()
    Dim oszlop As Integer
    ActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh    'Itt a saját kimutatásod nevét
        'írd a Kimutatás1 helyére
    
    For oszlop = 2 To 14
        If Application.WorksheetFunction.Sum(Columns(oszlop)) > 0 Then
            Columns(oszlop).EntireColumn.Hidden = False
        Else
            Columns(oszlop).EntireColumn.Hidden = True
        End If
    Next
End Sub

  A füzetet makróbarátként kell mentened.
  A kimutatást tartalmazó lapra kitehetsz egy gombot, amihez hozzárendeled a Frissites makrót. Gombon jobb klikk, makró hozzárendelése.

• #52068 Fferi50 Topikgazda Vérboci #52066

  Új Válasz 2024-01-19 07:16:56 #52068

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Vérboci #52066 üzenetére

  Szia!
  Megmutatnád egy képen a pivot mezőlistáját? (Rajta állsz a kimutatáson, jobb egérgomb - mezőlista megjelenítése.)
  Üdv.

• #52067 Delila_1 veterán Vérboci #52066

  Új Válasz 2024-01-19 06:41:26 #52067

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Vérboci #52066 üzenetére

  Nézz el ide: https://prohardver.hu/tema/excel/hsz_52014-52014.html.
  Az egyéni nézetekkel megoldhatod a problémádat.

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