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

Excel - Ukrywanie wierszy z danego zakresu

22 Kwi 2015 11:56 825 2
  • Poziom 7  
    Szanowni Państwo,

    Niestety nie znam się na makrach i nie potrafię zmodyfikować podanych wcześniej rozwiązań, a chciałabym dorzucić jedną opcję.
    Chciałabym, aby wiersze z określonego zakresu (np od 60-70 wiersza) ukrywały się, jeżeli pierwsza komórka w wierszu ma wartość 0.

    Będę bardzo wdzięczna za pomoc.

    Pozdrawiam,

    Dominika
  • Pomocny post
    Specjalista Automatyk
    Może coś takiego:

    Kod: vb
    Zaloguj się, aby zobaczyć kod
  • Poziom 7  
    Bardzo dziękuję za szybką odpowiedź - pomogła i wszystko pięknie działa.

    Dodałam jeszcze "else" i teraz po ponownym uruchomieniu makra odkrywają się wiersze, które w kolumnie A mają już inną wartość niż 0 (w tej kolumnie przepisują się dane z innego arkusza).

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Sub ukryjWiersze()
    Dim i As Integer
    Dim selRange As String

    For i = 60 To 70
    selRange = "A" & i

    If Range(selRange).Value = 0 Then
    Range(selRange).Select
    Selection.EntireRow.Hidden = True
    Else
    Range(selRange).Select
    Selection.EntireRow.Hidden = False
    End If
    Next i
    End Sub

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Dziękuję za poświęcony czas.