Analiz Tablosu

[sbayyigit]

Arkadaşlar içerisinde binlerce veri olan bir excel sayfam var. Her Kod farklı birimlerde kullanılabilmekte.
Sayfa1 deki tabloda bulunan kodların tamamnıı sayfa2 de tekil olarak ayrıca belirttim.
sizden ricam sayfa2 de tekil halde yazılmış olan kodların sayfa1 içerisinde M sütununda yazılı kodu hangi birimler kullanmışsa bu birimler sayfa 2 içerisinde kodun yanına her bir sütuna bir birim gelecek şekilde yazılması.
Sayfa2 de Bir örnek yaptım. A3 Hücresindeki DAY01 kodunu sadece AT Birimi kullanmıştır. AT birimi 2 defa kullanmış olmasına rağmen sadece 1 defa yazılmıştır.
DAY02 kodunu ise 25 ayrı birim kullanmıştır.
bu şekilde bütün kodları kullanan birimleri yazdırmak istiyorum
ilginiz için teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Verilerinizin çokluğuna göre işlem uzun sürebilir:

Sub kod()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

For i = 3 To s2.Cells(Rows.Count, "A").End(3).Row
    For j = 7 To s1.Cells(Rows.Count, "A").End(3).Row
        yeni = s2.Cells(i, Columns.Count).End(xlToLeft).Column + 1
        If s1.Cells(j, "M") = s2.Cells(i, "A") Then
            If WorksheetFunction.CountIf(s2.Range(Cells(i, 2), Cells(i, yeni)), s1.Cells(j, "A")) = 0 Then
            s2.Cells(i, yeni) = s1.Cells(j, "A")
            End If
        End If
    Next
Next

End Sub

 

[sbayyigit]

çok teşekkürler hocam elinize sağlık. tam istediğim gibi