Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Excel, vba] Ukrywanie kolumn

18 Mar 2011 20:16 5381 1
  • Poziom 10  
    Witam,
    Proszę o pomoc w rozwiązaniu problemu. O ile poradziłem sobie z automatycznym ukrywaniem wierszy:
    Code:
    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    
        If Not Application.Intersect(Target, Range("F11:Z11")) Is Nothing Then
            Range("A29:A74").AutoFilter
            ActiveSheet.Range("$A$29:$A$74").AutoFilter _
            Field:=1, Criteria1:=Array([f11], [g11], [h11], [i11], [j11], [k11]]), Operator:=xlFilterValues
        End If
    End Sub


    to nie wiem jak rozwiązać ukrywanie kolumn. W załączniku umieszczam przykładowy plik. Chciałbym uzyskać coś takiego, żeby z zakresu kolumn: F:L (L1 - L5) widoczne były tylko te, które zostały wybrane w zakresie B8:B10.
    Kolumny miałyby się aktyalizować przy każdej zmianie.

    Proszę o pomoc ponieważ nie jestem biegły w vba.
  • Poziom 28  
    W baaardzo dużym uproszczeniu:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    powinno działać.