Sayfa açıldığında sadece dolu satırlar görünse

[Mr.NoBody]

İlk Merhaba...Bir Sorum olacak;

Excelde Sayfa Seçildiğinde Boş Satırlar Gizlense.., Çıkışta tekrar Görünse...

Mesela Sayfa1 de A1:A500 arasında olsa bu iş.

 

[ECYavuz]

Merhaba,

Private Sub Worksheet_Activate()
Dim Hucreler As Range
For Each Hucreler In Range("A1:A500")
Application.ScreenUpdating = False
If Hucreler.Value = "" Or Hucreler.Value = " " Then
Hucreler.EntireRow.Hidden = True
End If
Next Hucreler
End Sub

Private Sub Worksheet_Deactivate()
Range("A1:A500").EntireRow.Hidden = False
End Sub

İşinizi görecektir, sanırım...

 

[Mr.NoBody]

Çok iyi valla.. Hemen deneyeyim.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz. Döngü olmadan hazırlanmıştır. Biraz daha hızlı çalışır.

 

[Mr.NoBody]

Çok çok teşekkür.. Bu arada Kod Bankası V3.0 ü nerede bulacaz biz.

Başka bir üyelik istemiyor değilmi?

 

[Mr.NoBody]

Selamlar,

Alterntif olarak ekteki örnek dosyayı incelermisiniz. Döngü olmadan hazırlanmıştır. Biraz daha hızlı çalışır.

Sağol Arkadaş ama ben sanırım dosyayı göremedim..

 

[Mr.NoBody]

Pardon geç oldu ama geldi..

 

[ECYavuz]

Güle Güle Kullanın Sn.Mrnobody..

http://www.excel.web.tr/showthread.php?t=54272

linkinden de Kod Bankası 3.0 ı inceleyebilirsiniz..