sutunlara yatay yazma

[hakin]

a1, a2, a3, a4...... deki bilgileri yatay olarak yani

a1 b1 c1 d1 sutunlarına yazmak istiyorum teşekkürler örnek dosya ektedir

 

[xp45s]

dosyanız ektedir..

 

[Metin Karaağaç]

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

 

[Seyit Tiken]

=DEVRİK_DÖNÜŞÜM(A2:A12)

Ctrl+Shift+Enter

 

[Orion1]

a1, a2, a3, a4...... deki bilgileri yatay olarak yani

a1 b1 c1 d1 sutunlarına yazmak istiyorum teşekkürler örnek dosya ektedir

Sub transps()
Dim list()
list = Range("A1:A" & Cells(65536, "A").End(xlUp).Row).Value
Range("A:A").ClearContents
Range("A1").Resize(1, UBound(list)) = Application.Transpose(list)
End Sub

 

[ekselance]

Excel 2007de alanı seçip Özel yapıştır değerleri dedikten sonra işlemi tersine çevir deyince de oluyor... Tesadüfen görmüştüm....

Kod kadar profesyonel olmasa da ...