Grup Buldurma

[nadirornek]

Merhaba Arkadaşlar,

A sütununda karmaşık verilerim var.Bu verilerimin eşleceği 5 tane de sütunum var.A sütununda bu grup verilerini taratarak(c1..c5) hangi gruptaki verilerin hepsi A sütunuda bulunuyorsa o sütun başlığını "E3" hücresine yazdırmak istiyorum.(Verilerim sadece bir grup verinin uyacağı şekildedir)Nasıl bir yol izlemeliyim?

Teşekkürler.

 

[leumruk]

Merhaba,

Sub Sutun_Bul()
For x = 8 To 12
For y = 2 To 6
Set Bul = Range("a1:a" & [a65536].End(3).Row).Find(Cells(y, x), lookat:=xlWhole, LookIn:=xlValues)
If Bul Is Nothing Then: Exit For
If y = 6 Then
[e2] = Cells(1, x)
MsgBox "Uygun sütun bulundu.", vbInformation, "DURUM"
Exit Sub: End If
Next
Next
[e2] = "Uygun sütun bulunamadı."
End Sub

 

[nadirornek]

Teşekkürler