Birleştirilmiş hücreleri sorgulama

[tsoyts]

Arkadaşlar merhaba,

çok basit bir tablo üzerinde sorunumu anlattım. Hücreleri birleştirdiğimde filtre yapıldığı taktirde tek bir satır kalıyor, o seçenekteki tüm satırları göremiyorum. Şimdiden yardımlarınız için teşekkür ederim. Kolay gelsin.

 

[Korhan Ayhan]

Merhaba,

Bunun için iki alternatif önerebilirim.

1- Birleştirilmiş hücreleri çözün. Her satır için MARKA bilgisini her satıra yazın. Sonra ilgili marka grubu için başka bir alanda birleştirilmiş alan oluşturun. Bu alanı kopyalayıp biçim olarak A sütunundaki ilgili alana yapıştırın. Bu biraz zahmetli olan yöntemdir.

2- Yardımcı sütun açın ve bu sütuna her satır için MARKA bilgisini yazın ya da formülle oluşturun. Bu alanı kullanarak filtre yapın.

 

[Seyit Tiken]

Hücreleri niye birleştiriyorsunuz, birleştirilmeden olmaz mı?

 

[tsoyts]

Bana tablo başka biryerden geliyor, fazlaca büyük bir tablo ve tablo biçimini bozmadan almam gerekiyor. ya da tek tek hücreleri ayırıp manuel kontrol edip tekrar birleştirmem gerekcek.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayın. Ayır makrosu A sütunundaki birleştirilmiş hücreleri çözer ve her satıra o grubun adını yazar. Birleştir makrosu ise eski durumuna getirir. Ayırma işleminden sonra analizlerinizi yapıp, sonra gerekirse tekrar birleştirirsiniz.

Sub ayir()
a = Cells(Rows.Count, "A").End(3).Row
Cells(a, "A").Select
b = Selection.Count

Range("A:A").UnMerge
For i = 1 To a + b - 1
    If Cells(i, "A") = "" Then
        Cells(i, "A") = Cells(i - 1, "A")
    End If
Next
End Sub

Sub birlestir()
son = Cells(Rows.Count, "A").End(3).Row
a = 0
For i = son To 1 Step -1
    If Cells(i, "A") = Cells(i + 1, "A") Then
        Application.DisplayAlerts = False
        Range("A" & i & ":A" & i + 1).Merge
        Application.DisplayAlerts = True
        a = 0
    End If
Next
End Sub

 

[Korhan Ayhan]

Bence en pratik yolu boş bir sütuna aşağıdaki formülü uygulamak olacaktır.

D2 hücresine uygulayıp alt hücrelere sürükleyiniz. Sonra D sütununa göre filtre yapıp analiz edebilirsiniz.

=EĞER(A2<>"";A2;D1)

birleştirilmiş hücrelerde filtreleme sorunu

Merhaba, Konu hakkında bir adet başlık mevcut ancak benim sorunuma çözüm olmuyor. http://www.excel.web.tr/showthread.php?p=465626 Ekteki dökümanda supplier ve description olan sütunlarda şu andaki haliyle süzme yapılabiliyor. Ancak merge(hücreleri birleştirme) kaldırılıp tekrar konursa...

www.excel.web.tr

Birleştirilmiş hücrede filtre sorunu

Selamlar. Suç analiziyle ilgili bir tablo hazırlamak istiyorum. Ancak suçları filtrelerken birleştirilmiş hücrenin karşına gelen yalnızca 1 satırı filtreliyor. Demek istediğim, eğer bir suçu işlemiş 2 kişi varsa sadece 1 kişiyi gösteriyor. aynı suçu işleyen 2 kişiyi nasıl gösterebilirim...

www.excel.web.tr

 

[Seyit Tiken]

Bence bunun en kestirme yolu kod kullanmaktır. Bu kod size bir fikir verebilir.

Sub test()
[a2:a8].MergeCells = [a2:a8].MergeCells = 0
[a9:a16].MergeCells = [a9:a16].MergeCells = 0
[a17:a22].MergeCells = [a17:a22].MergeCells = 0
End Sub

 

[tsoyts]

Teşekkürler arkadaşlar. hücreler ayrılarak ayrı bir sütunda filtreledim. Birleştirilmiş hücreler filtrelenemiyormuş demek ki öğrenmiş olduk Tüm ilgilenen arkadaşlara tekrar teşekkür ediyorum.