DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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 ?İşlemi yapmak istediğiniz sayfanın kod bölümüne yapıştırınız.
Kod: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
Hocam çok teşekkür ederim.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