Satır Gizle Koşullu

[5353]

Şöyle bir önerme kullanabilir miyiz ?

Eğer B6 " Murat veya Mehmet" ise A21 den A 25 e kadar olan satırları gizle.

 

[bmutlu966]

İşlemi yapmak istediğiniz sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B6")) Is Nothing Then Exit Sub
Cancel = True

If [B6] = "Murat" Or [B6] = "Mehmet" Then
      Rows("21:25").EntireRow.Hidden = True
Else
      Rows("21:25").EntireRow.Hidden = False
End If

End Sub

 

[5353]

İşlemi yapmak istediğiniz sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B6")) Is Nothing Then Exit Sub
Cancel = True

If [B6] = "Murat" Or [B6] = "Mehmet" Then
      Rows("21:25").EntireRow.Hidden = True
Else
      Rows("21:25").EntireRow.Hidden = False
End If

End Sub

Teşekkürler böyle bir hata aldım ?

 

[bmutlu966]

Sayfanızın Change olayında zaten bir kod varmış. Benim verdiğim kolarla karıştırmışsınız. Aşağıda gösterdiğim şekilde kodlarınızı değiştirip deneyin.

 

[5353]

Sayfanızın Change olayında zaten bir kod varmış. Benim verdiğim kolarla karıştırmışsınız. Aşağıda gösterdiğim şekilde kodlarınızı değiştirip deneyin.

Ekli dosyayı görüntüle 242326

Hocam çok teşekkür ederim.
Şöyle bir çözüm yaptım. Hücreye gelip enter yapınca makro çalışıyordu sonra satırı sildim. Son fotoğraf gibi olunca çalıştı. Yardımlarınız için teşekkürler. başkası da görsün amacıyla ekranı paylaşıyorum.