Girilen değere göre satırları gizleme

[mustafa155]

Ekte göndermiş olduğu örneğe göre açıklama alanının karşısında var yazıldığı zaman alttaki tablonun gözükmesini, yok yazılı olduğu zaman ise tablonun gözükmemesini istiyorum.
Yardımcı olabilirmisiniz. Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
If [b2] = "Var" Then
Rows("3:7").Hidden = False
Else
Rows("3:7").Hidden = True
End If
End Sub

Not: Mustafa bey sizden imzanızdaki yazının fontunu küçültmenizi rica ediyorum. Mesajlarınızın önüne geçip okumayı güçleştiriyor.

 

[Seyit Tiken]

Alternatif :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [B2] = "var" Then
Rows("3:7").Hidden = 0
ElseIf [B2] = "yok" Then
Rows("3:7").Hidden = 1
End If
Application.EnableEvents = True
End Sub

 

[mustafa155]

Sayın leventm ve seyit tiken çok teşekkür ederim. Saygılarımla