Satırları Sütunlara Aktarma

[all_per]

Arkadaşlar ekteki YATAY tablosunun içindekileri bir makro yardımı ile DÜŞEY tablosu haline getirmeye çalışıyorum...forumdaki konuları uygulamaya çalıştım ama beceremedim sanırım...yani bir satırda bulunan 6 adet sütunu 6 satır haline getirmeye çalışıyorum...yardımcı olabilirmisiniz...

bu çalışmamın bir sonraki boyutu aşağıdaki adreste yer almaktadır...eliniz bu soruma da değerse sevinirim...

http://www.excel.web.tr/showthread.php?t=76773

teşekkürü şimdiden borç bilirim...

 

[Skorpiyon]

Ekteki örneği bir inceler misiniz. İstediğiniz değil ama belki fikir verebilir.

http://www.excel.web.tr/showthread.php?t=45842

 

[halit3]

Arkadaşlar ekteki YATAY tablosunun içindekileri bir makro yardımı ile DÜŞEY tablosu haline getirmeye çalışıyorum...forumdaki konuları uygulamaya çalıştım ama beceremedim sanırım...yani bir satırda bulunan 6 adet sütunu 6 satır haline getirmeye çalışıyorum...yardımcı olabilirmisiniz...

bu çalışmamın bir sonraki boyutu aşağıdaki adreste yer almaktadır...eliniz bu soruma da değerse sevinirim...

http://www.excel.web.tr/showthread.php?t=76773

teşekkürü şimdiden borç bilirim...

aşağıdaki kodu denermisiniz.

Sub aktar()
sat = 1
say = 1
A = MsgBox(ad & Chr(10) & Chr(10) & _
"aktarmak İstiyormusunuz..?", vbYesNo + vbInformation, " aktarma penceresi")
If A = vbNo Then
Exit Sub
End If
For i = 1 To WorksheetFunction.CountA(Worksheets("YATAY").Columns("A"))
Worksheets("DÜŞEY").Cells(sat, 1).Value = say
Worksheets("DÜŞEY").Cells(sat + 1, 1).Value = "A - )"
Worksheets("DÜŞEY").Cells(sat + 2, 1).Value = "B - )"
Worksheets("DÜŞEY").Cells(sat + 3, 1).Value = "C - )"
Worksheets("DÜŞEY").Cells(sat + 4, 1).Value = "D - )"
Worksheets("DÜŞEY").Cells(sat + 5, 1).Value = "YANIT"
For j = 2 To 7
Worksheets("DÜŞEY").Cells(sat, 2).Value = Worksheets("YATAY").Cells(i, j)
sat = sat + 1
Next j
sat = sat + 1
say = say + 1
Next i
MsgBox "İşlem tamam"
End Sub

 

[all_per]

Halit Bey teşekkür ederim kodlar çalışmaktadır...ilginiz için teşekkürler...