Boş Olan Satırların Gizlenmesi

[vBlue]

Bebeklere uygulanan uygulamaların takibi için yapılan bir formdur.
Yeni bir bebek doğduğunda form altına eklenmektedir. En alttada form ile ilgili bilgiler ve kısaltmalar vardır.
Benim istediğim şu anda da olduğu gibi tablo ile aşağıda açıklama kısmında kalan boş alanların gizlenmesi. Ama tabloda en son eklenen verinin hemen altındaki satırın gizlenmemesi. Gizlenmeyen en alttaki satıra veri girince de hemen altında daha önce gizlenmiş olan yeni boş bir satırın gösterilir hale gelmesi.
Aşağıdaki kodu kullandım ama yapamadım.

Sub satir_gizle()
Application.ScreenUpdating = False
Sheets("liste").Select
For Each gizle In Range("A1:A500").Cells
If gizle.Value = "" Then 'Boş satırları gizle gizle.
EntireRow.Hidden = True End If Next gizle
End Sub

[/url][/IMG]
İşte dosya : http://www.dosya.tc/server29/szenpd/giizle.xls.html

 

[ÖmerBey]

Bu şekilde deneyiniz.

Sub satir_gizle()
Application.ScreenUpdating = False
Sheets("liste").Select
For Each gizle In Range("A1:A500").Cells
    If gizle.Value = "" Then 'Boş satırları gizle gizle.
        [COLOR="Red"]gizle.[/COLOR]EntireRow.Hidden = True
    End If
Next gizle
End Sub

 

[vBlue]

Verdiğiniz kodu, vba'nın çalışma kitabında denedim bir de modül olarak denedim ama hiçbir değişiklik olmadı. Ancak komut düğmesine ile çalışıyor. Ama forma yeni kayıt eklemek istediğimizde en altta 1 boş satır bırakmıyor tabi.

 

[ÖmerBey]

A7:A500 aralığında kendisi boş olan bir öncesi de boş olan hücrelerin satırlarını gizler.

Sub satir_gizle()
Application.ScreenUpdating = False
Sheets("liste").Select
For Each gizle In Range("A7:A500").Cells
    If gizle.Value = "" And gizle.Offset(-1).Value = "" Then 'Boş satırları gizle gizle.
        gizle.EntireRow.Hidden = True
    Else
        gizle.EntireRow.Hidden = False
    End If
Next gizle
End Sub

 

[vBlue]

Tamam teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kod daha hızlı çalışır.

Sub Makro1()
    Range("A1:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[hakankilic]

Merhaba,

Aşağıdaki kod daha hızlı çalışır.

Sub Makro1()
    Range("A1:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Çalışmadı

 

[Seyit Tiken]

Tek düğmeyle hem satırları gizler hem açar, kendinize uyarlayın.

[A1:A500].SpecialCells(4).EntireRow.Hidden = _
[A1:A500].SpecialCells(4).EntireRow.Hidden = 0

 

[Necdet]

Çalışmadı

Çalışmadıysa boş satır yok demektir.