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

Jak ukryć parę wierszy - VBA

Neraz 21 Gru 2018 11:24 114 1
  • #1 21 Gru 2018 11:24
    Neraz
    Poziom 2  

    Cześć

    Jestem początkującym i mam problem w napisaniu makra który by mi chował parenaście wierszy.

    W chwili obecnej mam napisane takie makro

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Cells(3, 4) = "Badanie wstępne" Then
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    Else
    Rows("42:47").Select
    Selection.EntireRow.Hidden = False
    End If

    End Sub

    Chciałbym, aby oprócz wierszy 42:47, te makro chowało mi np. wiersze 56-76, 82-84, 91 itp.
    Możecie mi podpowiedzieć jak miałbym napisać kod aby mi te makro tak zadziałało??

    Z góry wielkie dzięki za podpowiedzi
    Pozdrawiam

    0 1
  • #2 21 Gru 2018 14:21
    Maciej Gonet
    Poziom 32  

    Mogłoby to być coś takiego:

    Kod: text
    Zaloguj się, aby zobaczyć kod
    Nie ma sensu, żeby ta procedura uruchamiała się przy zmianie którejkolwiek komórki, bo tylko zmiana w D3 może wywołać jakiś skutek.
    Zakładam, że zmiany w komórce D3 będą indywidualne, a nie w kilku komórkach naraz.

    0