Otomotik satır gizle

[Yesilyurtlu]

Değerli Bilgi Ehli üstadlar;
Bir sayfadan bir sayfaya geçişte hücrede A sütünunda 0 (Sıfır) varsa otomotik gizlesin 0 (Sıfır) yoksa gizlemesin.

Yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

ThisWorbook sayfasına kopyalayınız.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Range("A1") = 0 And Range("A1") <> "" Then
Rows("1:1").EntireRow.Hidden = True
Else
Rows("1:1").EntireRow.Hidden = False
End If
End Sub

.

 

[Yesilyurtlu]

üstadım sadece A1 olarak görüyor. Bunu A6 A300 arası olarak yapmak için ne yapabiliriz

 

[Ömer]

üstadım sadece A1 olarak görüyor. Bunu A6 A300 arası olarak yapmak için ne yapabiliriz

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For i = 1 To [A65536].End(3).Row
    If Cells(i, "a") = 0 And Cells(i, "a") <> "" Then
        Rows(i).EntireRow.Hidden = True
    Else
        Rows(i).EntireRow.Hidden = False
    End If
Next i
End Sub

 

[Yesilyurtlu]

ÜSTADIM;

Teşekkür Ederim. Hakkını Helal Et