macro veya vb ile sorgu yaparak sayfa biçimlendirme

[yetiskol]

Selam arkadaşlar
yapmış olduğum excel formunda bir macro veya vb ile sorgu yapmak istiyorum çıkan sonuç doğrultusunda örneğin 0 değerini gördüğü yerde komple o satırı gizlemesini gizlemesini sağlayabilirmiyiz. ve daha sonra yeni kayıt yaptığımda dolmuşsa otomatik olarak görmesini sağlamak istiyorum yapılabilirmi

 

[erkankamilonas]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Rows.Hidden = IIf(Target = 0, True, False)
End Sub

 

[Orion1]

A sütunundaki hücreleri sorgular 0 sıfır bulursa o satırı gizler.

Sub sifirlari_gizle()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value <> "" And Cells(i, "A").Value = 0 Then
        Rows(i).Hidden = True
    End If
Next i
End Sub

 

[yetiskol]

beceremedim galiba

sürekli hata veriyor
3 sayfa ver diyelim
3. sayfadaki 1 satıra bakacak ve a-IV ye kadar komple gizleyecek

örnekle gosterırsenız sevinirim

 

[Orion1]

Ekli dosyaya bakınız.

 

[Orion1]

Birleştirilmiş hücreler var ise hata verir.