Sonucu 0(sıfır) olan satırı otomatik gizleme

[starmetin]

Selam Arkadaşlar,
Formül sonucu 0 (sıfır) olan satırı oldugu gibi nasıl gizliyebilirim...
bununla ilgili sanırım bir makro yazılması gerekicek ayrıca böyle bir şey yapılabilirse excel dosyasının her açılışında bunu otomatik olarak yaptırabilirmiyiz....
yardımcı olabilecek arkadaşlara teşekkürler

 

[Ali]

Sub gizle()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[Ali]

excel dosyasının her açılışında bunu otomatik olarak yaptırabilirmiyiz....

Thisworkbook'a aşağıdaki kodları yapıştırın.Range("A1:A500") kısmını siz aralığınıza göre düzenlersiniz.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[Seyit Tiken]

Bunu bir deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A1] = "0" Then
Rows("2:2").EntireRow.Hidden = True
ElseIf [A1] > 0 Then
Rows("2:2").EntireRow.Hidden = False
End If
End Sub

 

[starmetin]

slm ,
üstad bu şekilde 0 (sıfırları gizliyebiliyorum ) yalnız excel dosyası her açılışta aktif hale gelmiyor acaba ben mi yanlış yapıyorum .. yinede teşekkürler

 

[Ali]

Sn starmetin, ikinci mesajımda yazmıştım.

Thisworkbook'a aşağıdaki kodları yapıştırın.Range("A1:A500") kısmını siz aralığınıza göre düzenlersiniz.

 

[starmetin]

Sn starmetin, ikinci mesajımda yazmıştım.

Thisworkbook'a aşağıdaki kodları yapıştırın.Range("A1:A500") kısmını siz aralığınıza göre düzenlersiniz.

slm üstad evet bende onu denemiştim zaten :kafa: kesin ben becerememişimdir.. macro manuel olarak çalışıyor yalnız excel dosyasını kapatıp açınca devreye girmiyor ilgili kodları module kopyalıyorum başka bir şey yapmam gerekir mi..? save edip dosyayı kapatıp açıyorum ama 0 (sıfırlar) yine gözüküyor....

 

[Ali]

Modüle yapıştırmayın
Alt+F11 ile açtıktan sonra VBA'ada Thisworkbook'un içine aşağıdaki kodları yapıştırın

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[starmetin]

Üstad dayanadım dosyayı ekte yolluyorum bende aynısı yapıyorum dosyayı kapatıp açılınca kaybolmuyor şu değersiz 0 (sıfırlar ) ))))

 

[Ali]

Sizin dosyanız ekte.İnceleyin

 

[veyselemre]

Kodunuzun eksiksiz çalışması için kırmızı ile işaretli ilaveyi yapmanızı, öneririm, çünkü daha önce gizlenmiş bir satırı denetleme şansınız bu kodlarla olmaz.
[vb:1:a62618bb0e]Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub
[/vb:1:a62618bb0e]

 

[starmetin]

Kodunuzun eksiksiz çalışması için kırmızı ile işaretli ilaveyi yapmanızı, öneririm, çünkü daha önce gizlenmiş bir satırı denetleme şansınız bu kodlarla olmaz.

evet veyselemre kardeşim bu eklenti ile tam istediğim şekli almış oldu excel dosyası sana ve fructose arkadaşa çok çok teşekkürler yardımcılarınız için umarım bende bir gün bu kodları yazabilecek seviyeye gelirim... "Ahh nerde " :hey:
hürmetler....

 

[mustafa32]

bir sütunda değeri sıfır olan hücre satırları gizlemek

değerli arakadaşlar benim sorunumu yazdığınız makroyu kopyaladım ama çözmüyor, ben acemiyim daha basit anlayabileceğim şekilde açıklamalı yazarsanız sevinirim

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows >= 1 Then
Selection.Rows.Hidden = False
Else
Selection.Rows.Hidden = True
End If
End Sub
-----------------
Sayfa1 sekmesinin üzerini sağ tıklayın. > Kod Görüntüle > Çıkan Pencerenin sol üst köşedeki "Sayfa1 (Sayfa1)" yazılı yerin üstünü tıkla > Çıkan geniş pencereye kodu yapıştır.

 

[ismailmuhcu]

Şöyle bişey yapabilir miyiz
(A1:A10) arasında sıfır olanlardan, (B1:B10) arasındaki tarihlerden bugüne kadar olanları (bugün dahil değil) gizlemeyi istesek başarabilir miyiz acaba?
İlgilenen arkadaşlara teşekkür ederim.

Yani aşağıdaki kodda A500 bugünden bir önceki gün olmalı

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub

 

[solidworks]

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
Rng.Rows.Hidden = False
For Each c In Rng
If c.Value = 0 Then
c.EntireRow.Hidden = 1
End If
Next c
Application.ScreenUpdating = False
End Sub


BU KODU BİR BUTONA EKLEYİP BUTONA BASINCA SIFIR DEĞERİ OLAN SUTUNLARI GİZLESİN NASIL YAPARIM

 

[beeyasin]

seçenekler gelişmiş kısmından değeri sıfır olanı sıfır gösteri pasif yap ...kolay gelsin