Değeri Boş Olan Satır Gizleme

[aligunes]

iki tarih arası sorgulama verilerini getirdiğim sayfamda C5:C78 arası sütuna veriler getiriyorum. Sorgulama sonucuna göre C5:C78 arası değeri BOŞ olan satırın gizlenmesini istiyorum. Makro - Formül yada koşullu biçimlendirmede böyle bir yöntem var mı yardımcı olacak arkadaşlara teşekkür ederim.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub gizle()
    [C5:C78].EntireRow.Hidden = False
    [C5:C78].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[aligunes]

@Ömer hocam kod çalışmadı modüle mi kopyalayım yoksa sayfaya mı ?

 

[BAZGİRET]

Alternatif olarak inceleyiniz.

 

[Seyit Tiken]

Bu şekilde deneyiniz, tek düğme.

[c5:c78].SpecialCells(4).EntireRow.Hidden = _
[c5:c78].SpecialCells(4).EntireRow.Hidden = 0

 

[aligunes]

Bu şekilde deneyiniz, tek düğme.

[c5:c78].SpecialCells(4).EntireRow.Hidden = _
[c5:c78].SpecialCells(4).EntireRow.Hidden = 0

@Seyit Tiken hocam kodu eklediğim dosyaya nasıl uygulayacagım

 

[Seyit Tiken]

Satırlarda sıfır olduğu için yukarıdaki kod çalışmayabilir. Bunu da deneyiniz.

Sub Sıfırgizle()
Application.ScreenUpdating = False
For i = 5 To Cells(83, "C").End(xlUp).Row
If Cells(i, "C").Value = 0 Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = 1
End Sub

 

[aligunes]

Satırlarda sıfır olduğu için yukarıdaki kod çalışmayabilir. Bunu da deneyiniz.

Sub Sıfırgizle()
Application.ScreenUpdating = False
For i = 5 To Cells(83, "C").End(xlUp).Row
If Cells(i, "C").Value = 0 Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = 1
End Sub

Bu satır gizle makrosu birde göster makrosu lazım gizle/göster iki ayrı makroyu tek butonda yapabilirmiyiz

 

[ÖmerFaruk]

Sub Sıfırgizle()
    If [C5:C78].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden Then
        [C5:C78].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For i = 5 To Cells(83, "C").End(xlUp).Row
        If Cells(i, "C").Value = 0 Then Rows(i).Hidden = True
    Next
    Application.ScreenUpdating = 1
End Sub

 

[kaskirim]

Aynı koddan banada lazım ama bi türlü yapamıyorum bende V13 İLE v22 hücreleri arasında veri yok ise silmesini istiyorum ancak içerisinde formül olduğu için değer olarak görüp yapamadım bir türlü