Çok hücreli filtrelemeyi Liste haline dökme

[Reo41]

Selamlar arkadaşlar,

Ekli örnek dosyamda ayrıntılı açıklamayı yaptım.

2. sayfada çok hücreli filtrelemem mevcut, bunu 3. sayfada liste halinde, hangi sütun(adresinde) bulunduğunu görmek istiyorum. Detaylı açıklama 3. sayfada.

Dosya boyutu büyük olduğundan, yardımcı yükleme sitesi ile linki ekliyorum

Fatih Soru

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

Yardımlarınız bekliyorum.

 

[hasankardas]

Selamlar,
dener misin, sayfada karışıklık olmasın diye hücre de virgüllü şekilde yaptım.

Sub EslesmeleriBulVeListele()
    Dim ws2 As Worksheet, ws3 As Worksheet
    Dim i As Long, j As Long, resultRow As Long
    Dim colNames As String
    
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set ws3 = ThisWorkbook.Sheets("Sheet3")
    
    resultRow = 2
    
    For i = 6 To 1000
        colNames = ""
        For j = 22 To 256
            If ws2.Cells(i, j).Value = ws2.Range("Z1").Value Then
                
                colNames = colNames & ws2.Cells(1, j).Address(False, False) & ", "
            End If
        Next j
        If colNames <> "" Then
            colNames = Left(colNames, Len(colNames) - 2)
            ws3.Cells(resultRow, 2).Value = ws2.Cells(i, 2).Value ' B sütunu = 2. sütun
            ws3.Cells(resultRow, 3).Value = colNames
            resultRow = resultRow + 1
        End If
    Next i
    
    MsgBox "İşlem tamamlandı."
End Sub

Ek bilgi olarak büyük tablolar da koşullu biçimlendirme yapmak işlemcinizin yapacağı işlemi arttıracaktır. Koşullu biçimlendirme ve biçimlendirme den kaçınılmalıdır.

 

[Reo41]

hasankardas bey cevabınız için teşekkürler.

Öncelikle makroyla çok fazla tecrübem olmadığından yazdığınız kodu nasıl bir şekilde ekleyeceğimi de anlatabilirmisiniz.

Ayrıca uyarınız için de teşekkürler fakat, koşullu biçimlendirme yapmadan istediğimi elde edemiyorum, en azından benim bildiğim kadarıyla. Varsa başka bir alternatif iletebilirmisiniz ayrıca.

Şimdiden teşekkür ederim

Selamlar,
dener misin, sayfada karışıklık olmasın diye hücre de virgüllü şekilde yaptım.

Sub EslesmeleriBulVeListele()
    Dim ws2 As Worksheet, ws3 As Worksheet
    Dim i As Long, j As Long, resultRow As Long
    Dim colNames As String
   
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set ws3 = ThisWorkbook.Sheets("Sheet3")
   
    resultRow = 2
   
    For i = 6 To 1000
        colNames = ""
        For j = 22 To 256
            If ws2.Cells(i, j).Value = ws2.Range("Z1").Value Then
               
                colNames = colNames & ws2.Cells(1, j).Address(False, False) & ", "
            End If
        Next j
        If colNames <> "" Then
            colNames = Left(colNames, Len(colNames) - 2)
            ws3.Cells(resultRow, 2).Value = ws2.Cells(i, 2).Value ' B sütunu = 2. sütun
            ws3.Cells(resultRow, 3).Value = colNames
            resultRow = resultRow + 1
        End If
    Next i
   
    MsgBox "İşlem tamamlandı."
End Sub

Ek bilgi olarak büyük tablolar da koşullu biçimlendirme yapmak işlemcinizin yapacağı işlemi arttıracaktır. Koşullu biçimlendirme ve biçimlendirme den kaçınılmalıdır.

 

[hasankardas]

İndir Fatih Soru xls

Dosyayı indir Fatih Soru xls

dosya.co

düzenledim

 

[Reo41]

İndir Fatih Soru xls

Dosyayı indir Fatih Soru xls

dosya.co

düzenledim

Hasankardas bey teşekkürler, bazı uygunsuzluklar mevcut,

* 302. satır ve sonrası takılı sabit kalmış sanırım.
* Olmayan hücreleri var olarak gösteriyor fazladan. Yani filtrelediğim değer mevcut satırda sadece bir hücrede var fakat 2 hücrede veya daha fazla var gösteriyor.
* Hücre isimlerinin bazılarının yanına "1" ekliyor, bazıları da sadece hücre ismi olarak geliyor. Örn; "DU1", "DX"

İndir Fatih Soru (1) xls

Dosyayı indir Fatih Soru (1) xls

dosya.co

 

[hasankardas]

Sayın reo41 sizin eklediğiniz ile benim eklediğim aynı sonuçları vermiyor. tabloyu inceleme şansım yok fakat düzenleyip tekrar ekledim. evet1 ekliyordu sütun adına aslında çokta önemli değil ama düzenledim artık gelmiyor. Gelenler hücre ismi değil sütun ismi sizin ilk mesajda öyle yazıyor.

İndir Fatih Soru xls

Dosyayı indir Fatih Soru xls

dosya.co

 

[Reo41]

Sayın reo41 sizin eklediğiniz ile benim eklediğim aynı sonuçları vermiyor. tabloyu inceleme şansım yok fakat düzenleyip tekrar ekledim. evet1 ekliyordu sütun adına aslında çokta önemli değil ama düzenledim artık gelmiyor. Gelenler hücre ismi değil sütun ismi sizin ilk mesajda öyle yazıyor.

Hasankardas bey emeğiniz için teşekkür ederim fakat, neden olduğunu ben de anlamadım aynı sıkıntı devam ediyor. Fikir olması açısından ekran görüntüsü ekliyorum. Belli bir satırdan sonrasında takılı kalmış gibi aynı hücreleri hep gösteriyor. Bu kısımları kontrol ettiğimde filtrelediğim değer yerine 0 (sıfır) olan değerleri, filtrelediğim değermiş gibi gösteriyor.

Açıkçası ben de anlam veremedim. Bilginize.