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.

Excel - vba, excel - chowanie pustych wierszy z zakresu

kondzio18 10 Sty 2014 21:02 1071 0
  • #1 10 Sty 2014 21:02
    kondzio18
    Poziom 10  

    Witam,

    Chciałbym się dowiedzieć w jaki sposób mogę za pomocą macro schować puste wiersze z wybranego zakresu. Np. na poniższym przykładzie:

    1. W userform zaznaczam checkboxa, po czym jego nazwa jest wypisywana do arkusza. Jeżeli checkboxów jest 6 , a user wybierze 3 , to trzy pola zostaną puste, czego chciałbym się pozbyć. Dobrze byłoby, żeby skrypt sprawdzał jakiś zakres np. od A5 do E30 i można byłoby w nim wybrać skoroszyt, gdzie ma być wykonywana operacja.

    2. Chciałbym także, aby włączając inne macro, schowane wiersze pokazały się ponownie (powiedzmy, że to byłby taki reset).

    Excel - vba, excel - chowanie pustych wierszy z zakresu

    Czekam z niecierpliwością, pozdrawiam

    Dodano po 2 [godziny] 28 [minuty]:

    Już sobie poradziłem :) Temat może być do zamknięcia.

    przy starcie programu dałem: Worksheets("ZAMÓWIENIE").Range("A8:A13").EntireRow.Hidden = True

    a przy sprawdzaniu checkboxa dałem:

    Code:
    Sub pokaz_wiersze()
    

    Dim i As Integer
    Dim wiersz As String

    For i = 8 To 13
    wiersz = i

    If (Worksheets("ZAMÓWIENIE").Range("A" + wiersz).Text = "") Then
    Worksheets("ZAMÓWIENIE").Range("A" + wiersz).EntireRow.Hidden = True
    Else
    Worksheets("ZAMÓWIENIE").Range("A" + wiersz).EntireRow.Hidden = False
    End If

    Next wiersze
    End Sub

    0 0