Nesnelerin koşullu gizlenip/gösterilmesi.

[ycimen]

Çalışma sayfamdaki bazı nesneleri, bazı hücrelerin değerine göre gizleyip/göstermek istiyorum. Makro bilgim maalesef zayıf olduğu için yapamadım. Şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

A1 hücresi 1'e eşitse c:d sütununu gizle değilse gizleme.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
Columns("c:d").Hidden = True
Else
Columns("c:d").Hidden = False
End If
End Sub

 

[ycimen]

sutün veya satırları değil, bazı nesneleri gizleyip göstermek istiyorum. Örneğin, değer değişim butonu, seçenek butonları gibi..

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
OptionButton1.Visible = False
Else
OptionButton1.Visible = True
End If
End Sub