Sütünları Satır haline getirme

[otekesa]

Vba ile ekteki excel sayfasında bulunan A,B,C sütünlarından A,ve C yi satır B'nin sütün olarak kalmasını ve bu değerlerle bir tablo oluşturmak istiyorum.

 

[bedersu]

Sayın otekesa,
Gönderdiğiniz dosyaya göre kodlar şu şekilde:

Sub satır_sütun()
For i = 2 To WorksheetFunction.CountA(Range("A:A"))
satr = satr + 1

If satr = 21 Then a = a + 1
If satr = 21 Then satr = 1

Cells(1, satr + 5) = Cells(satr + 1, 1)
Cells(a + 2, satr + 5) = Cells(i, 3)
Cells(a + 2, 5) = Cells(i, 2)
Next
End Sub

 

[mancubus]

dosya yapisi bu ise pivot tablo yeterli olur.

Column Labels: Sutun: A
Row Labels: Satir: B
Values: Degerler: C

 

[bedersu]

:mrgreen::redface:

 

[otekesa]

Teşekkür ederim bedersu.

 

[fz_user]

Merhaba,
pivot tablo nasıl yapıldığını anlatırmısınız?
tşk.

 

[fz_user]

Satırlardaki verileri sütüna veya sütünlardaki verileri satırlara tasışıma

Birden fazla çalışma sayfasındaki Satırlardaki verileri sütüna veya sütünlardaki verileri satırlara tasışıma işlemini nasıln yapabiliriz.