değeri sıfır olan satırı otomatik gizleme

[gangster54]

Arkadaşlar excelde sipariş programı yapıyorum. Fakar bir sorun yaşıyorum

miktar bölümünde değeri 0 olan satırı otomatik gizlenmesini istiyorum. Yardım lütfen

 

[Korhan Ayhan]

Filtre menüsünden gizleyebilirsiniz.

 

[gangster54]

makro ile de olur arkadaşlar yardım lütfen yaaa

M8 ile M1072 arasında değer 0 ise satır gizlensin 1 ise satır görünsün. bir tuşa basmayım.otomatik excel açıldığında değer girildiğinde kendi gizlesin istiyorum

 

[Muzaffer Ali]

Sayfanın kod editörüne aşağıdakileri yazın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 13 Then
        If Target.Row > 7 And Target.Row < 1073 Then
            If Target.Value = 0 Then
                Rows(Target.Row).EntireRow.Hidden = True
            ElseIf Target.Value = 1 Then
                Rows(Target.Row).EntireRow.Hidden = False
            End If
            
        End If
    End If
End Sub

 

[Hakan Ertürk]

Sayfanın kod editörüne aşağıdakileri yazın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 13 Then
        If Target.Row > 7 And Target.Row < 1073 Then
            If Target.Value = 0 Then
                Rows(Target.Row).EntireRow.Hidden = True
            ElseIf Target.Value = 1 Then
                Rows(Target.Row).EntireRow.Hidden = False
            End If
          
        End If
    End If
End Sub

Merhaba hocam, yukarıdaki kodları derleyerek aşağıdaki kodları kendi excel sayfamda uyguladım ancak olumlu sonuç alamadım. Desteklememe veya kodda bir hata durumu söz konusu olabilir mi? (D2 / D128 arası) (0 ise gizle, 1 ve 1 den büyük ise göster)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        If Target.Row > 1 And Target.Row < 129 Then
            If Target.Value = 0 Then
                Rows(Target.Row).EntireRow.Hidden = True
            ElseIf Target.Value >= 1 Then
                Rows(Target.Row).EntireRow.Hidden = False
            End If
        End If
    End If
End Sub

Saygılarımla.

 

[Hakan Ertürk]

Tekrar merhabalar, yine forumda araştırdığım ve sayfama uyarladığım bir kod ile manuel bir değer girince makro iş yapıyor, formüllü hücrede çalıştıramadım.

Bu vba koduna buton eklemeden de olmayacak gibi görünüyor aşağıdaki kodu "Göster/Gizle" şeklinde tek buton üzerinden işlev yaptırabilir miyiz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 <> Empty Then
For i = 2 To 128
If Cells(i, 4).Value = "" Then GoTo HE
If Cells(i, 4).Value = 0 Then
Rows(i).EntireRow.Hidden = True
Else
HE:
Rows(i).EntireRow.Hidden = False
End If
Next
End If
End Sub