Mam pewien problem, z który sam nie potrafię sobie poradzić. Mam arkusz excela (w załączeniu plik) o nazwie charakterystyka i mam tam pewne zagrozenia, gdzie poprzez pole wybotu zaznaczam "ptaszkiem" czy dano zagrożenie istnieje czy nie. I jeżeli go nie ma, to pewna grupa wierszy musi się ukryć, a jeśli jest to ma się pojawić.
I tak dla hałasu, gdy jest niezaznaczony, to ukryc ma się grupa wierszy od 6 do 12. I działa mi to pod warunkiem, że recznie wpisuje w tym przypadku w komórce B2 wartość 1 lub 2. Gdy w kodzie VB zmienie odwołanie do komórki C1 w której automatycznie przeskakuje wartość 1 lub 2 w zależności czy hałas jest zaptaszkowany czy nie, to wtedy ukrywanie wierszy lub ich pokazywanie nie działa.
Proszę o pomoc, by działao to automatycznie po kliknieciu ptaszka zagrozenia hałasem.
Private Sub Worksheet_Calculate()
Rows("6:12").EntireRow.Hidden = Not Range("B1")
End Sub