Belli şartlara uyan satırları gizlemek

[cavanoos]

Merhaba arkadaşlar;

Ekli örnek dosyamda,A sütununda içinde DOLU yazan hücrede ve C sütunundaki hücre boş ise, yani bu şartlara uygun olan satırları gizleyecez.

Örneğin 15.satır gizlenmeyecek ama 16.satır gizlenecek.Bunu fonksiyonlar ile yapabileceğimizi sanmıyorum.Makro ile yapabilir miyiz ?

Umarım anlatabilmişimdir ?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub gizle()
Dim sat As Integer
    For sat = 7 To 26
        If Cells(sat, "a") = "DOLU" And Cells(sat, "c") = "" Then
            Cells(sat, "a").EntireRow.Hidden = True
        End If
    Next
End Sub

Sub goster()
Cells.EntireRow.Hidden = False
End Sub

 

[cavanoos]

Niyazi Bey;

Elinize sağlık.Çok güzel olmuş.Saolun...