combo box seçimine göre boş satır gizleme-görüntüleme

[Ömer]

Ömer Bey, harika oldu çok teşekkür ederim. gayet güzel çalışıyor. bir düzeltme yapabilirmiyiz; normalde 260. satırdan en son satıra kadar gizliydi. şimdi gizli satırlarıda açarak formüllerin ortaya çıkmasına neden oluyor. gizleme sınırlı olabilirmi? yani 1000. satıra kadar mesela. daha sonrasını açmayacak şekilde. Birde, satırlar gizlendiğinde gizlenmiş şekilde kalan I sütunundaki notların silinmesi mümkünmüdür?

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim i As Long
 
    If Intersect(Target, Range("F2")) Is Nothing Then Exit Sub
    With Application
        .Calculation = xlManual
        .ScreenUpdating = False
    End With
 
    ActiveSheet.Unprotect "123"
        Rows("4:1000").EntireRow.Hidden = False
        For i = 4 To 1000 'Cells(Rows.Count, "C").End(xlUp).Row
            If Cells(i, "C") = "" Then
                Rows(i).EntireRow.Hidden = True
            End If
        Next i
    ActiveSheet.Protect "123"
 
    With Application
        .Calculation = xlAutomatic
        .ScreenUpdating = True
    End With
 
End Sub

.

 

[abrekahmet]

Ömer Bey, son kodları girdim ve oldukça başarılı oldu. teşekkür ederim. zamanınız olursa bir konu daha vardı. size göndermiş olduğum dosyada Mülakat Sonuç" diye bir sekme var. bu sekmenin altında "Üye" kelimesini formülle getirebiliyorum ayrıca, "üye" kelimesinin 4 satır aşağısına üye isimlerininde formülle yazdırabiliyorum. fakat, hücreler formüllü olduğundan üye isminin yarısı gözüküyor. bu nedenle üye isimlerini "üye" kelimesinin altına yazamadım. kodla yazmamız mümkünmü? üye isimleri için "Kriterler" sekmesinde yer açacağım.