boş sütunları gizleme/filtreleme

[nemiprosti]

Merhaba,

Seçilen satır için boş sütunları filtreleyerek gizleyebilmemiz mümkün müdür ?


Mesela 2.satırı sectim. a2,b2,d2,e2 dolu c2 ve diğerleri boş ise;

bana sadece dolu olan a2,b2,d2,e2 sütunlarını göstersin, boş olan sütunlar gizlensin/filtrelensin.

Değerli yorumlarınızı bekliyorum.

Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Seçimi neye göre yapacaksınız. Küçük bir örnek dosya ekleyip detaylı açıklarmısınız.

 

[nemiprosti]

Excelin normal satır filtrelemesinin(dikey) sütun filtresi(yatay) olarak kullanmak şeklinde düşünebilirsiniz.

Çok sayıda sütun içeren tabloların boş sütunlarını gizleyerek sadece dolu olanlarını görüntülemek istiyorum.

Seçim şu şekilde olabilir;

Filtre işlemini gerçekleştirecek tuşlar A sütunundaki satırlar boyunca olabilir.

A sütununda hangi satıra tıklarsam o satır boyunca boş sütunlar gizlenmeli.


Umarım anlatabilmişimdir.

 

[ZorBey_]

Merhaba
İyi Çalışmalar Bu Örnek
İşinizi Görürümü Acaba

 

[nemiprosti]

Merhaba,

İlginiz için teşekkür ederim.

Satır değil de sütün gizlenmesini istiyorum.

Aynı işlemi boş sütunları gizlemek için oluşturabilirmiyiz acaba ?

 

[ZorBey_]

Sutun Gizle Örneği

 

[nemiprosti]

Çok teşekkür ederim. İstediğim buydu.

Fakat diyelim ki 10x20 bir tablomuz var ve her bir satırda da sütun gizleme işlemini gerçekleştirmek istiyorum.

Kullandığınız sütun gizle butonunu aşağıya doğru her satıra veya belli bir sayıda satıra koyabilir veya uygulayabilir miyiz?

Tekrar teşekkürler.

 

[ZorBey_]

Butonları

Gizlenmeyecek Sutunların
Bulunduğu Yere Koyarsanız
Daha Uygun Olur

 

[ZorBey_]

Sub Gizle()
For x = 2 To 34
If Cells(2, x) = "" Then Columns(x).EntireColumn.Hidden = True
Next
End Sub
Sub Göster()
For x = 2 To 34
If Cells(2, x) = "" Then Columns(x).EntireColumn.Hidden = False
Next


2. Satır
34.Sutun

Siz İsteğinize Göre Ayarlayım

 

[nemiprosti]

Merhaba, ilginiz için çok teşekkür ederim.
Kodunuz tek satır için kusursuz çalışıyor ve istediğimiz satır için uygulayabiliyoruz.

Ancak çoklu satır için bir döngü oluşturmamız mümkün müdür ?

Misal 1'den 100'e kadar bir loop oluştursak ve bu aralıkta hangi satıra tıklarsak o satırda sütunlar gizlense.

Yani her satır için bu kodu uyarlamak yerine tek bir kod ile işimizi görebilir miyiz ?

Yüzlerce satırdan oluşan ve devamlı olarak yeni satırlar girilen tablolarım olduğu için böyle bir koda ihtiyacım var.

 

[apocalyt]

merhaba.. aşağıdaki kodu deneyebilirsiniz..kod a1 ile ez1 hücreleri arasında (a1,b1,c1,z1 gibi) herhangi bir hücreye çift tıklamanızla tetiklenir ve o sütunu gizler.. kodu kopyalamanız gereken yer: sayfa sekmenize sağ klik yapın..açılan penrede kod görüntüleye tıklayın..açılan sayfaya göndermiş olduğum kodu kopyalayın..



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a1:ez1")) Is Nothing Then Exit Sub
Target.Columns.EntireColumn.Hidden = True
End Sub

 

[nemiprosti]

Merhaba, ilginiz için çok teşekkür ederim. kodunuz dediğiniz şekilde çalışıyor ve ayrıca

range: a1:a100 ve column yerine row yazarakta ; a1 ile a100 arasında çift tıklanan satırı da gizleyebiliyor.

Şimdi benim asıl yapmak istediğim şey; a1 ile a100 arasında tıklatığım(mesela a21) satır boyunca boş olan sütunları gizlemesi.

mesela a21'tıkladım. d21,m21 ve p21 boş diğerleri dolu ise d21,m21 ve p21'i gizlesin.

a22'tıkladım. c22 vey22 boş diğerleri dolu ise c22 ve y22'yi gizlesin

 

[apocalyt]

şu kodu deneyin..aynı şekilde sayfaya sağ klik yaparak kod bölümüne yapıştırın..birde ben kodu 100 sütun için ayarladım..yani a21 e tıkladınız..d21 m21 boş ise gizlicek ancak 100 üncü sutun hangi harfe denk geliyo tam bilmiyorum ama o sütuna kadar boş olanları gizlicek dilerseniz sizin dosyanıza göre o sayıyı yükseltirsiniz..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
On Error Resume Next
If Intersect(Target, Range("a1:a1000")) Is Nothing Then Exit Sub
For x = 2 To 100
If Cells(Target.Row, x) = "" Then
Cells(Target.Row, x).Columns.EntireColumn.Hidden = True
End If
Next x
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[nemiprosti]

Merhaba, yazdığınız kod kusursuz olarak çalışıyor. Teşekkür ederim.

Son bir sorum olacak. gizlenen sütunları tekrar gösterebilir miyiz ?
Mesela şu şekilde olabilir:
1) a1'e çift tıkladık boş sütunlar gizlendi, a1'e tekrar çift tıkladık gizlenen sütunlar açıldı. (birinci satır boyunca)
2) a1'e çift tıkladık boş sütunlar gizlendi, b1'e çift tıkladık gizlenen sütunlar açıldı. (birinci satır boyunca)


Bunu sormamda ki amaç şu; her satırın boş sütunları farklı farklı olabildiği için peş peşe 2 satırın boş sütunlarını gizlediğimde bir diğerindeki dolu sütunları da yutacak.

Bunun önüne geçmek için misal a satırındakileri gizledim açtım, sonra b satırındakileri gizledim actım yapabilir miyim ?