bir tablodaki boş satırları otamatik olarak silmek yada gizlemek istiyorum. yarımlarınz için çimdiden teşekkürler
Ekli dosyalar
-
486.9 KB Görüntüleme: 20
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Range("D8:D24").SpecialCells(4).EntireRow.Hidden = 1
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
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
Sub BlendeAus()
Range("C5:C20").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
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
seyit beyin 2 numaralı mesajdaki kodunu denedinizmi?(Hız açısından)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