Tabloyu tersten olusturmak

[wortex]

Herkese merhaba

List 1 de a,b,c… kutularinin icinde 1,2,3… cisimlerinin hangilerinden oldugu yazili

List2 de 1,2,3 cisimleri hangi kutularda gozukuyorsa o kutularin adlarinin cisim satirina yazilmasi gerekiyor

Yalniz tablo cok uzun ve genis, fonksiyonla bir seyler denedim ama cok kasiyor ayrica tablolar ayri sayfadalar hatta ayri dosyada bile olabilirler

Asagida ornek dosyayi veriyorum

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub AKTAR()
For Each hucre In [d6:g13]
If hucre = Empty Then GoTo git:
    bul = WorksheetFunction.Match(hucre, [k6:k10], 0) + 5
    son = Cells(bul, 256).End(xlToLeft).Column + 1
If WorksheetFunction.CountIf(Range("l" & bul & ":" & "z" & bul), Cells(hucre.Row, "c")) = 0 Then
    Cells(bul, son) = Cells(hucre.Row, "c")
End If
git:
Next
End Sub

 

[wortex]

Hamitcan arkadasim oncelikle tesekkurler ama ben bunu excel fonksiyonlari ile yazabilirmiyim

 

[hamitcan]

Olabilir zannedersem.

 

[Ali]

Formüller ile yapılmış başka bir örnek

Yan sütuna Eğersay'lı yardımcı formül uyguladım formül içinede yazılabilir ama eklediğim bu hali ile daha hızlı çalışır.

L6 hücrenize aşağıdaki formülü yazıp CTRL+SHIFT+ENTER tuşlarına basarak dizi formülü oluşturup sağa ve aşağı doğru çekerek List2 tablonuzu doldurunuz.

=EĞER(SÜTUNSAY($L$6:L6)<=$P6;İNDİS($C$6:$C$13;KÜÇÜK(EĞER($D$6:$G$13=$K6;SATIR($D$6:$G$13)-SATIR($D$6)+1);SÜTUNSAY($L$6:L6)));"")

Örnek dosya ektedir.

 

[wortex]

Harika Ali arkadasim cok tesekkurler, hemen incelemeye basliyorum