hücre değeri sıfırsa satırı gizle ???

[musty98]

Arkadaşlar acil cevap gerekiyor.bir satırda belirteceğimiz bir hücrenin değeri sıfır ise satırı gizle şeklinde bir formül yada makro mümkünmü aceba.

şimdiden çok teşekkürler :hihoho:

 

[hamitcan]

http://www.excel.web.tr/showthread.php?t=68700&highlight=s%FDf%FDr+olanlar%FD+gizle
http://www.excel.web.tr/showthread.php?t=18734&highlight=s%FDf%FDr+olanlar%FD+gizle

 

[musty98]

Hamit bey çok teşekkürler hemen inceliyorum

 

[musty98]

hmm madem konu okunuyor bende benden sonrakilere bi mirs bırakayım arkadaşlar sıfır olan hücrelerin gizlenmesini istediğimiz sayfaya sağ tıklayıp kod görüntüle diyiyoruz. orada kullanacağımız sayfaya

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



bunu yapıştırıyorsunuz. burda 8 to 40 denen yere siz hangi sütunlar arasıysa orayı yazarsınız bide hangi hücrenin sıfır olacağını seçiyorsunuzya bu kod baştan 3. hücre yani c hücresi için arkadaşlar siz hangi hücre 0 olunca satırın gizlenmesini istiyorsanız baştan sayın kaçıncı Column yani hücre ise bu makrodaki 3 gördüğünüz yerleri kaçıncı hücreyse onu yazın. makronun çalışması içinde bu hücredeki 0 değerlerin birine tıklayın yeniden 0 yazın o süzüyor hepsini .

saygılar sevgiler.

 

[tahsinanarat]

Altarnatif,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Satır = 2 To [A65536].End(3).Row
If Cells(Satır, "F").Value = 0 Then
Rows(Satır).EntireRow.Hidden = True
End If
Next
End Sub