otomatik satır silme

[bugüven]

bir tablodaki boş satırları otamatik olarak silmek yada gizlemek istiyorum. yarımlarınz için çimdiden teşekkürler

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Range("D8:D24").SpecialCells(4).EntireRow.Hidden = 1

 

[bugüven]

ilginiz için teşekkürler bide bu kodu nasıl yapıcam kısaca özetlerseniz sevirim

 

[tahsinanarat]

'Toplamları Sıfıra eşit olan satırları gizler

Sub sıfırgizle()
For Each rngRow In ActiveSheet.UsedRange.Rows
If Application.Sum(rngRow) = 0 Then
rngRow.EntireRow.Hidden = True
End If
Next rngRow
End Sub

'Boş Satırları Gizlemek

Sub satirgizle()
Dim i As Integer
For i = 1 To 15
If Sheets("Sayfa1").Cells(i, 1).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("Sayfa1").Rows(i).Hidden = True
End If
Next i
End Sub

Belirtilen aralıktaki boş satırları gizler

Sub BlendeAus()
Range("C5:C20").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[tahsinanarat]

Sizin tablonuz için uygun olanı (d sutununun boş olması göz önüne alınarak)

Sub satirgizle()
  Dim i As Integer
  For i = 8 To 24
    If Sheets("testuty").Cells(i, 4).Value <> "" Then
      Rows(i).Hidden = False
    Else
      Sheets("testuty").Rows(i).Hidden = True
    End If
  Next i
End Sub

 

[bugüven]

Teşekkürler elinize sağlık çok güzel oldu tablom 1000 satır olduğu için biraz uzun sürüyor ama

 

[Orion1]

Teşekkürler elinize sağlık çok güzel oldu tablom 1000 satır olduğu için biraz uzun sürüyor ama

seyit beyin 2 numaralı mesajdaki kodunu denedinizmi?(Hız açısından)

 

[bugüven]

Otomatik satır gizleme

evet denedim hızlı oluyor ama satırlar boşsa hepsini gizliyor satırın biri dolu olursa hata veriyor. ben dolu satırları gizlemesini istemiyorum