Ú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.

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