veri dizisinin karşılıklarını listeleme

[peleryn]

Herkese merhabalar;

Derdimi ancak böyle bir başlıkla anlatabildim ama yeterince açıklayıcı olabildim mi bilemiyorum..

1.sayfamda kişi isimleri ve onlara ait bilgileri topladığım bir tablom var..Elimde de bazısında isimleri belirtilmemiş anketler var.Ben 2. sayfada yaş,cinsiyet gibi verilerini girdiğim kişilerin 1.sayfadaki tabloya göre hangi isimler olabileceğini saptamak istiyorum..

Dosyada biraz daha açıklama mevcut.

İlgilenecek olanlara şimdiden çok teşekkür ederim.

 

[Zeki Gürsoy]

Merhaba,

C:G arası hücrelerin hepsi eşleştiğinde sonucu alabileceksiniz. İsterseniz butona da bağlayablirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [c:g]) Is Nothing Then Exit Sub

Dim arr As Variant, t_Array() As String, s As Long, i As Long, r As Long

r = Target.Row

arr = Sheets("Sayfa1").Range("b3:g" & _
Sheets("Sayfa1").Range("b65000").End(3).Row).Value

For i = 1 To UBound(arr, 1)

    If arr(i, 2) = ActiveSheet.Cells(r, "c") Then
    
        If arr(i, 3) = ActiveSheet.Cells(r, "d") Then
        
            If arr(i, 4) = ActiveSheet.Cells(r, "e") Then
            
                If arr(i, 5) = ActiveSheet.Cells(r, "f") Then
                
                    If arr(i, 6) = ActiveSheet.Cells(r, "g") Then
                    
                        s = s + 1
                        ReDim Preserve t_Array(1 To s)
                        t_Array(s) = arr(i, 1)
                        
                    End If
                    
                End If
                
            End If
            
        End If
        
    End If
    
Next

ActiveSheet.Cells(ActiveCell.Row, "h") = Join(t_Array, Chr(10))

Erase arr
Erase t_Array
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak formüllerle hazırladığım örnek dosyayı incelermisiniz. Siz listelemeyi tek hücrede istemişsiniz fakat ben uygun isimleri alt alta hücrelere listelettim. İşinize yararsa kullanabilirsiniz.

 

[Mehmet Şahin]

Merhaba,
dosyayı hazırladığımda Üstad Zeki bey kodları eklemiş bile. Ve çözümü çok ustaca.
Benimki alternatif olsun, ben de üstadın kodlarından nerelerde yararlanırım anlamaya çalışayım,
saygılar.

 

[peleryn]

Zeki ve Korhan hocalarım ve sayın dentex ilgileriniz ve güzel çözümleriniz için çok teşekkür ederim.Zeki hocamın çözümü gerçekten söylediğiniz gibi çok şık duruyor ancak benim soruyu net soramamış olmamdan olsa gerek gördüğüm kadarıyla sadece sayfa2 nin 2. satırında çalışıyor.Çözümlerden benim için en uygun olanı sayın dentex sizin çözümünüz.Size ve hocalarıma ilgileriniz için tekrar çok teşekkür ederim.