Satır gizleme

[ordulu82]

Arkadaşlar sorunumu ekte ifade ettim. Yarım ederseniz çok sevinirim.

 

[yelgecak]

Rows("22:22").Select
Selection.EntireRow.Hidden = True

Columns("Z:Z").Select
Selection.EntireColumn.Hidden = True

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüe kopyalayıp deneyiniz.

Kodları ilgili sayfaya da kopyalayıp Çift tıklama olayına da bağlayabilirsiniz.

Gerisi size kalmış artık

Sub Gizle()
    Range("A4:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[ordulu82]

Merhaba,

Aşağıdaki kodları bir modüe kopyalayıp deneyiniz.

Kodları ilgili sayfaya da kopyalayıp Çift tıklama olayına da bağlayabilirsiniz.

Gerisi size kalmış artık

Sub Gizle()
    Range("A4:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Üstadım teşekkür ederim. ama ben de şöyle bir sorun çıktı. benim boş sayfalarda formül olduğu sanırım boş satırlarıda dolu gibi algılanıyor. o yüzden de kod çalışmıyor. verdiğim örnek formülsüz olduğu için kod iyi çalışıyor fakat asıl dosyamda çalıştıramadım

 

[Necdet]

Merhaba,

Formülsüz sütun yok mu?

yoksa döngüye sokmak gerek.

 

[ordulu82]

Merhaba,

Formülsüz sütun yok mu?

yoksa döngüye sokmak gerek.

hocam ilgili sayfaya veriler başka bir sayfadan aktarıldığından sütunların tamamında formül var. Formülsüz hücrem yok