Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #52069 Delila_1 veterán Vérboci #52066
    Új Válasz #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