DEĞERİ 0 olan satırları gizleme

[zekeriya torun]

"C" sütünu 8-40 satırlar arasında hücre değerleri "0" olan satırları gizlemek istiyorum.forumdaki örnekleri denedim.olmadı.yardımcı olursanız sevinirim.saygılar

 

[S.Yiğit]

Merhaba,

Değeri sıfır olanları süzüp satırları seçiniz ve sağ tıklayıp gizle deyiniz.

 

[fedeal]

sayfanın kod bölümüne ekleyin iyi çalışmalar.

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

 

[zekeriya torun]

emrah bey ilgine çok teşekkür ederim.ama ben bu kodu modüle yazdım ama makrolarda göremedim. acaba yanlışmı yapıyorum.dosyamı size göndermemin bir yolu varmı.e-posta ile göndersem.saygılar

 

[fedeal]

ekteki dosyayı inceleyin


kodu sayfanın kod bölümüne yazın buton vs.gerek kalmayacak.
sayfa sekmesine sağ tıklayın kod görüntüleye tıklayın

 

[zekeriya torun]

emrah bey allah razı olsun.ilgin için sağol.ben 52 yaşında ihtiyar bie emekli memurum.ben bu işleri pek beceremiyorum.evde vakit geçirmek için bir şeylerle uğraşmaya çalışıyoru.elimdeki dosyayı size ulaştıracak bir yol bulmazsam ben beceremeyecem bu işi.selamlar.(zekeriyatorun@hotmail.com) a mail atarsanız dosyayı ordan yollarım.

 

[fedeal]

sag alt köşede cevapyaz butonuna basın alttaki ilave seceneklerde dosya ekle&sil butonuyla dosyayı buradanda gönderebilirsiniz.

 

[zekeriya torun]

değeri 0 olan satırları gizleme

emrah bey bir bakın olmuşmu.ilginize teşekkür ederim.

 

[fedeal]

sayfaya altarnatif iki seçenek koydum işinize yarar umarım.saygılar.

 

[zekeriya torun]

teşekkür ederim.

 

[tatarcık]

hücre değerine göre satır gizleme ve gösterme hakkında

sayfanın kod bölümüne ekleyin iyi çalışmalar.

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

Sayın Fedeal;
Yukarıdaki kodu farklı bir uygulama ile
sadece 017 hücresi 0 (sıfır) ise a16 hücresini gizleyecek o17 hücresi 1(bir) ise gizlenen o16 hücresi gere gösterim yapılacak şekilde yapılabilinirmi örnek çalışma ektedir. yardımlarınızı bekliyorum

 

[tatarcık]

Sayın Fedeal;
Yukarıdaki kodu farklı bir uygulama ile
sadece 017 hücresi 0 (sıfır) ise a16 hücresini gizleyecek o17 hücresi 1(bir) ise gizlenen o16 hücresi gere gösterim yapılacak şekilde yapılabilinirmi örnek çalışma ektedir. yardımlarınızı bekliyorum

sayın ömer hocam ;
istediğim şekilde boş hücre gizleme ile ilgili olarak formda örnekleri araştırdım en yakın çalışma sizin daha önce yapmış olduğunuz ve aşağıya çıkartmış olduğum çalışmanızdır

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$25" <> Empty Then
Range("A26:F27").EntireRow.Hidden = False
Range("A28:F37").EntireRow.Hidden = True
End If
End Sub

bu kodu kendime göre uyarlamaya çalıştım ama beceremedim
vba kodu (gizle/göster)olmadan çalışma sayfasında sizin belirtmiş olduğunuz kodu 11 nolu mesajdaki örnek çalışmama göre uyarlayabilirmiyiz?
yardımlarınızı bekliyorum
iyigeceler

 

[tatarcık]

sayın ömer hocam ;
istediğim şekilde boş hücre gizleme ile ilgili olarak formda örnekleri araştırdım en yakın çalışma sizin daha önce yapmış olduğunuz ve aşağıya çıkartmış olduğum çalışmanızdır

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$25" <> Empty Then
Range("A26:F27").EntireRow.Hidden = False
Range("A28:F37").EntireRow.Hidden = True
End If
End Sub

bu kodu kendime göre uyarlamaya çalıştım ama beceremedim
vba kodu (gizle/göster)olmadan çalışma sayfasında sizin belirtmiş olduğunuz kodu 11 nolu mesajdaki örnek çalışmama göre uyarlayabilirmiyiz?
yardımlarınızı bekliyorum
iyigeceler

sayın ömer hocam;
diğer bir kod çalışmanız aşağıya çıkartılmıştır

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

bu çalışmanızı da örneğime uyarlayamadım
örneğimde asıl sıfır olması gerken yer o17 hücresi bu sıfır formül ile geliyor
a16 ve b16 hücrelerdeki bilgilerde formülvar onlarda o17 hücresine göre bilgi geliyor acaba ondan dolayı mı örnek kod çaışmanızı uygulayamadım??

 

[tatarcık]

tek satır gizleme hakkında

Private Sub Worksheet_Change(ByVal Target As Range)
Dim BUL As Range
If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
Cells.EntireRow.Hidden = False
If Target <> "" Then
Set BUL = Range("A:A").Find(Target, , , xlWhole)
If Not BUL Is Nothing Then
If BUL.Row > 7 Then
Range("A7:A" & BUL.Row - 1).EntireRow.Hidden = True
Else
Range("A7:A" & BUL.Row).EntireRow.Hidden = True
End If
End If
Set BUL = Nothing
End If
End Sub

SAYIN KORHAN AYHAN;
YUKARIDA ŞARTLI VERİ GİRİŞİNE GÖRE SATIR GİZLEME KODUNUZ VAR
BUNU BEN KENDİ ÖRNEĞİME GÖRE DÜZENLEDİĞİMDE ÇALIŞMADI
ACABA BEN Mİ HATA YAPIYORUM
KENDİ ÖRNEĞİME GÖRE DÜZENLEME YAPILMIŞ ÖRNEK İLİŞİKTEDİR ÖRNEĞİ İNCELEYİP DÜZENLEYEBİLİRMİSİNİZ