Boş olan satırları gizlemek.

[Korhan Ayhan]

Selamlar,

Arkadaşlar excel çalışmamda 5 sayfaya veri giriyorum. Yapmak istediğim ise bir buton yardımı ile ve döngü kullanarak bu 5 sayfanın E sütunlarına göre E1:E2502 veri aralığındaki boş olan satırları gizlemek.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:10ede88c20]Sub gizle()
For a = 1 To Sheets.Count
Sheets(a).Columns("E").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Next
End Sub
[/vb:1:10ede88c20]

 

[Korhan Ayhan]

Teşekkür ederim. :arkadas:

 

[Zeki Gürsoy]

bu işi her yeni veri girildiğinde değişecek şekilde ayarlanabilir mi?

 

[Levent Menteşoğlu]

Elbette ayarlanabilir ama bunun için bir örnek dosya eklemenizde fayda var. Yukarıdaki kodu sayfaya veri girilince çağırması için aşağıdaki gibi bir kod kullanılabilir.

[vb:1:e1f622a732]Private Sub Worksheet_Change(ByVal Target As Range)
gizle
End Sub
[/vb:1:e1f622a732]

 

[Zeki Gürsoy]

MAKRO

Sn. levent bey sorumun çözümünü kolaylaştırmak için örnek dosyamı gönderiyorum, yapmakistediğimi düğme ile tektek yaptım fakat kendipiğnden yapmasını sağlamak istiyorum. ilginiz için teşekkürler...

 

[Levent Menteşoğlu]

ALİ, VELİ sayfalarında neden boş satırlar var? bunlar gerekli değilse boş satırlar olmadan verileri aktarılacağı bir kod önerebilirim.

 

[Zeki Gürsoy]

Levent bey, ALİ, VELİ sayfalarındaki süzgeçleri kendim "Boş olmayanlar" seçtiğimde o şekilde görünüyor. Benim ihtiyacım olan ise, "VERİ" sayfasında bir şey yazdığımda "ALİ" veya "VELİ" sayfalarındaki süzgeçlerin otomatik olarak "Boş olmayanları" listelemesidir. Yani sözünü ettiğiniz boş satırlar "VERİ" sayfasına yazacağım bilgilere göre gizlensin ya da görünsün. İlginize tekrar teşekkür ederim...

 

[Zeki Gürsoy]

Levent bey, derdimi anlatamadım galiba
Lütfen...yardım eder misiniz?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:caa69f6082]Sub GUNCELLE()
On Error Resume Next
Set s1 = Sheets("VERİ")
For b = 1 To Sheets.Count
If Sheets(b).Name <> "VERİ" Then
Sheets(b).[a5:a65536].ClearContents
End If
Next
For a = 4 To s1.[a65536].End(3).Row
ad = s1.Cells(a, "a")
sonsat = Sheets(ad).[a65536].End(3).Row + 1
Sheets(ad).Cells(sonsat, "a") = s1.Cells(a, "b")
Next
End Sub
[/vb:1:caa69f6082]

 

[Zeki Gürsoy]

Kodları modülün içersine kopyaladım, ama çalıştıramadım. ne yapabilirim?

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[Zeki Gürsoy]

Çok teşekkürler.... sonunda oldu. çok şey istemek gibi olmazsa bu örnek çalışma kitabında güncelle butonu değilde her enter'dan sonra otomatik güncellenebilir mi? Bu sorumu da cevaplarsanız çok minnetar olacağım.