satırdaki verileri kolonlara taşımak

[atillak]

Selamın aleyküm;
Arkadaşlar sorunumu daha net anlatabilmek için ek te örnek dosya yolladım dosya nın içine not olarak yazdım ne istediğimi. yardım ederseniz sevinirim. şimdiden teşekkürler ederim. saygılarımla

 

[hamitcan]

Private Sub CommandButton1_Click()
[ab22:ab41] = WorksheetFunction.Transpose([b2:u2])
End Sub

şeklinde kullanın.

 

[atillak]

ilginize teşekkur ederim sağolun.