Witajcie,

Potrzebuje marko, dzięki któremu AUTOMATYCZNIE będą się odkrywały lub ukrywały wiersze.

Jeżeli komórka P39 = TAK, to wiersze 40:55 mają być odkryte, jeżeli zaznaczymy NIE, automatycznie mają się chować.

Znalazłam coś takiego, działa, ale niestety nie automatycznie. Jak zrobić aby działało automatycznie?

Sub Worksheet_Calculate()

Dim wierszeDoUkrycia As Range
Dim komorkaWejsciowa As Range
Dim cell As Range

Set komorkaWejsciowa = Sheets("aaaaaa").Range("p39")
Set wierszeDoUkrycia = Sheets("aaaaaaa").Rows("40:55")


Select Case UCase(komorkaWejsciowa.Value)

Case "TAK"
wierszeDoUkrycia.Hidden = False

For Each cell In wierszeDoUkrycia

Next cell

Case "NIE"

wierszeDoUkrycia.Hidden = True


End Select

End Sub