hücre degeri sifir olan satirlar gorunmesin

[umitumit]

formül sonucu ile değer kazanan H sütunum var.
h10 hücresinin değeri sıfır ise o satırı otomatik olarak gizlemek istiyorum.
aşağıdaki macro işimi tam olarak görmüyor.
macro çalışıyor ama ben H10 hücresine tıklayıp enter yaptıktan sonra çalışıyor.

bir ikinci sorum ise sadece H10 değil benim saklamak istediğim satır.
H5 ile H18 hücrelerin değerleri sıfır ise o satırlar gizlensin

yardımı dokunacaklara şimdiden teşekkürler


Private Sub Worksheet_Change(ByVal Target As Range)
If [H10] = 0 Then
[A10].Rows.Hidden = 1
Else
[A10].Rows.Hidden = 0
End If
End Sub

 

[sdegirmenci]

Merhaba;
Aşağıdaki kodları sayfanın altına yapıştırın
Private Sub Worksheet_Activate()
Rows("1:65000").EntireRow.Hidden = False
For X = 1 To 65000
If Cells(X, 8).Value = "0" Then Rows(X).Hidden = True
Next
End Sub

 

[umitumit]

FORMÜLDEKİ X LER yerine ben kendim değer yazacak mıyım?
yoksa aynen kopyala yapıştır mı yapacağım?

çünkü kopyalayıp yapıştırdım ama bi değişiklik olmadı

 

[BG]

Merhaba

makrosuz bir çözüm önerisi,
araçlar/seçenekler/görünüm / sıfır değerleri işaretini kaldırmayı deneyin.

 

[Necdet]

Merhaba,

Sayın sdegirmenci'nin kodlarını ilgili sayfanın kod bölümüne kopyalayın.
sonra o sayfadan çıkıp tekrar girin.

İlgili sayfa aktif hale geldiğinde çalışacak program yazmış sayın sdegirmenci.

 

[sdegirmenci]

Siz yalnızca sonucu sıfır olan satırlar arasını değiştirin, (1:65000 )

 

[umitumit]

teşekkürler arkadaşlar
işimi hallettim

 

[osenol]

excel 2010 için ise dosya/seçenekler/gelişmiş ve açılan sağdaki pencereden "Bu çalışma sayfasının seçeneklerini göster" başlığı altındaki "Değeri sıfır olan hücrelerde sıfır göster" sekmesindeki çentiği kaldırınca oluyor arkadaşlar.

 

[Emir Hüseyin Çoban]

excel 2010 için ise dosya/seçenekler/gelişmiş ve açılan sağdaki pencereden "Bu çalışma sayfasının seçeneklerini göster" başlığı altındaki "Değeri sıfır olan hücrelerde sıfır göster" sekmesindeki çentiği kaldırınca oluyor arkadaşlar.

. . .

Madem bu konu ile ilgileniyorsunuz. Mesajlarınızdan belli.
Bir alternatif sunayım.
Eğer formülü ile sonuç sıfıra eşitse boş bırak değil ise formülü uygula.

=EĞER(A1+B1=0;"";A1+B1)

. . .