Transpose Tablo Duzenlemesi

[baydeniro]

Bir tablonun transpose formatına yakın bir mantık ile çevrilmesi mümkün müdür ? ekteki dosyada TEKLİ ve ÇİFTLİ olmak üzere 2 tablo ve olmaları istenen şekilleri var. Yardımcı olanlara şimdiden teşekkürler.

 

[hamitcan]

Aşağıdaki kodları dener misiniz?

Sub tekli()
[f16:g500].ClearContents
c = 14
For y = 4 To 13
c = c + 1
For x = 2 To 15

If Not IsEmpty(Cells(x, y)) Then
c = c + 1
Cells(c, "f") = Cells(1, y)
Cells(c, "g") = Cells(x, y)
End If
Next: Next
End Sub


Sub ciftli()
[g16:i500].ClearContents
c = 14
For y = 4 To 11 Step 2
c = c + 1
For x = 2 To 15

If Not IsEmpty(Cells(x, y)) Then
c = c + 1
Cells(c, "g") = Cells(1, y)
Cells(c, "h") = Cells(x, y)
Cells(c, "i") = Cells(x, y + 1)

End If
Next: Next
End Sub

 

[baydeniro]

Sayın hamitcan ne kadar teşekkür etsem azdır. Yani şaşkınlıktan küçük dilimi yuttum desem abartmış olmam. Süper ötesi bir kod. Allah başarılarınızı daim kılsın. Sizler gibi beyinler var oldukça Türkiye'nin sırtı yere gelmez.

 

[hamitcan]

Sayın serdarokan, yardımcı olabildiysem ne mutlu bana.