DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Gizle()
For satir = 1 To 50 '50 rakamı son satırın değeridir.
If Cells(satir, 1) = Empty Then
Rows(satir & ":" & satir).EntireRow.Hidden = True
End If
Next satir
End Sub
Sub Goster()
For satir = 1 To 50 '50 rakamı son satırın değeridir.
Rows(satir & ":" & satir).EntireRow.Hidden = False
Next satir
End Sub
Döngü ile 50 satıra kadar arama yapıyor ve boş olanları gizliyor.Hepsi boş olsa bile.Döngü ile satır gizlemek yavaş bir çözümdür. Bunu deneyiniz.
Mesela A sütunundki boş satırlar için.
Sub Gizle()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = 1
End Sub
Sub Gizle()
On Error GoTo eror
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = 1
eror:
Rows("1:65536").Hidden = 1
End Sub
Neden ters mantık onuda anlayamadım. Aynı döngüde 8-10 yeni Sayfa Add ediyorum ve veritabanımdan yaptığım sınama sonucu hangi sayfaya birşey yazdırılıp yazdırılmadığını kendi kodlarımın içinden kontrol etmek daha zahmetli olduğu için her halikarda boş satırları kapatmak istiyorum eklediğim sayfalarda.Yani illede hiç dolu satır yokken mi boş satırları gizelemek istiyorsunuz, biraz ters bir mantık ama olsun illede olsun derseniz;