check box fonksiyonu

[omuslu]

merhaba arkadaşlar,

sheet 1 deki "check box" işaretlendiğinde "sheet 2" deki "1,2,3,4,5" numaralı satırların gizli hale gelmesini istiyorum. yardımcı olursanız çok sevinirim.

teşekkürler.

 

[Orion1]

Buyurun.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Sheets("Sayfa2").Rows("1:5").Hidden = True
    Else
    Sheets("Sayfa2").Rows("1:5").Hidden = False
End If
End Sub

 

[omuslu]

çok teşekkürler