satır gizleme

[merttbey]

arkadaşlar eklediğim dosya içerisinde de açıklama yaptım sadece F sütünundaki sıfır değerli verilere göre satırları gizlemek istiyorum.Yardımlarınız için çok teşekkürler.

 

[İhsan Tank]

arkadaşlar eklediğim dosya içerisinde de açıklama yaptım sadece F sütünundaki sıfır değerli verilere göre satırları gizlemek istiyorum.Yardımlarınız için çok teşekkürler.

merhaba
araçlar - seçenekler - görünüm - sıfır değerleri gösterme'nin tik'ini kaldırın
umarım işinizi görür

 

[merttbey]

ihsan hocam sıfır değerleri gizlemektem kastım F sütununda sıfır değerini alan hücreye ait satırın gizlenmesi

 

[İhsan Tank]

ihsan hocam sıfır değerleri gizlemektem kastım F sütununda sıfır değerini alan hücreye ait satırın gizlenmesi

bu şekilde kullanışsız olmaz mı_?
değeri nasıl değiştireceksiniz bir daha onun için böyle bir çözüm sundum.
bir de yok ben illa satır gizlensin istiyorum derseniz bu sadece makro ile olur bilginize

 

[merttbey]

ihsan hocam aslında ben bi makro kullanıyorum ama makro satırdaki sıfır değeri olan bütün hücrelere bakıp gizleme yapıyor ben sadece f:f sütunundaki hücrelerin değerleri sıfırsa gizleme yapsın istiyorum
kullandığım makro şu
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("1:200").EntireRow.Hidden = False
For X = 1 To 200
If Cells(X, 10).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 11).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 12).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 13).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 14).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 15).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 16).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 17).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 18).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 19).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 20).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 21).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 22).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 23).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 24).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 25).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 26).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 27).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 28).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 29).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 30).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 31).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 32).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 33).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 34).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 35).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 36).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 37).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 38).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 39).Value = "0" Then Rows(X).Hidden = True
If Cells(X, 40).Value = "0" Then Rows(X).Hidden = True
Next

End Sub

 

[İhsan Tank]

merhaba
eklediğiniz kod'u silin yerine

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Rows("5:20").EntireRow.Hidden = False
Dim a As Long
For a = 5 To Cells(65536, "F").End(xlUp).Row
If Range("F" & a) = 0 Then
Range("F" & a).EntireRow.Hidden = True
End If
Next
End Sub

bu kodu kopyalayınız.
B1 hücresindeki değer değiştikçe çalışacaktır.
denemesi yapılmıştır.

 

[merttbey]

İhsan hocam Allah sizden razı olsun çok teşekkürler.Süper olmuş

 

[İhsan Tank]

İhsan hocam Allah sizden razı olsun çok teşekkürler.Süper olmuş

rica ederim
:yazici: