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