Satır gizle göster

[sirkülasyon]

Üstadlarım
D4 hücresinde Veri Doğrulama var. Bu hücrede değişiklik yaptıkça yani veri doğrulama ile açılan pencerede isim seçtikçe C4:C24 arasındaki hücrelerde veri olan hücreler kalacak sıfır olan hücreler gizlenecek.
Ekli dosyada anlattığım olay mevut

 

[Ömer BARAN]

Merhaba.

Tablonuz 22'nci satıra kadar devam ediyor ancak siz C4:C24 aralığıyla ilgili cümle yazmışsınız.
Doğrusu hangisi ise ona göre düzeltin.
.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[B][COLOR="Red"]D4[/COLOR][/B]]) Is Nothing Then Exit Sub
Rows("4:[B][COLOR="blue"]24[/COLOR][/B]").EntireRow.Hidden = False
For satır = 4 To [B][COLOR="Blue"]24[/COLOR][/B]
    If Cells(satır, "C") = 0 Then Rows(satır).EntireRow.Hidden = True
Next
End Sub

 

[sirkülasyon]

Sayın Ömer BARAN
Teşekkür eder Saygılarımı sınarım.
Sağolasın

 

[Ömer BARAN]

Sayın Ömer BARAN
Teşekkür eder Saygılarımı sınarım.
Sağolasın

Estağfurullah. Kolay gelsin.
.