dikey verileri yataya döndürme ?

[atbarus]

Sayın hocalarım merhaba,
Benim ödemelerle ilgili dikey yazılmış çok uzun verilerim var. Ben bu Sayfa1'de dikey sıralanmış verileri formül ile sayfa 2 'de yataya döndürmek istiyorum.
Örnek vermek gerekirse
Sayfa1 A1, Sayfa2 A1 formüle edilecek
Sayfa1 A2, Sayfa2 B1 formüle edilecek
Sayfa1 A3, Sayfa2 C1 formüle edilecek
Sayfa1 A4, Sayfa2 D1 formüle edilecek
Sayfa1 A5, Sayfa2 E1 formüle edilecek
Sayfa1 B1, Sayfa2 F1 formüle edilecek
Sayfa1 B2, Sayfa2 G1 formüle edilecek
Sayfa1 B3, Sayfa2 H1 formüle edilecek
Sayfa1 B4, Sayfa2 I1 formüle edilecek
Sayfa1 B5, Sayfa2 JE1 formüle edilecek
eski verilerim 5 satırlı 6 sütündan oluşuyor. Yenisi 30 Sütündan oluşmuş olacak. Yardımcı olursanız çok sevinirim.

 

[Trilenium]

Kopyala
Yapıştır
Özel
Değerleri / Terse Çevir

 

[atbarus]

Hocam öncelikle teşekkür ederim ama dediğim bu değil ekte dosya gönderiyorum, ben örnek olması için 6 personel bıraktım bakınca anlarsınız zaten.tekrar teşekkürler

İndir Yeni Microsoft Excel Çalışma Sayfası xlsx

Dosyayı indir Yeni Microsoft Excel Çalışma Sayfası xlsx

dosya.co

 

[Ziynettin]

Ekli dosyanıza göre kod.

Sub test()
son = Range("B" & Rows.Count).End(3).Row

a = Range("B1:F" & son).Value

ReDim b(1 To UBound(a), 1 To 30)

say = 1
For i = 1 To 5
    For j = 1 To 5
        c = c + 1
        b(say, c) = a(j, i)
    Next j
Next i

c = 0

For i = 7 To UBound(a) Step 5
    say = say + 1
    For j = 1 To 5
        For y = 0 To 4
            c = c + 1
            b(say, c) = a(i + y, j)
        Next y
    Next j
    c = 0
Next i

Range("H2").Resize(Rows.Count - 1, 30).ClearContents

[H2].Resize(say, 30).Borders.Color = rgbSilver
[H2].Resize(say, 30) = b
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[kmlbyrk]

merhaba
bu konu benim için lazım. yatay olan verileri dikey olarak alt alta sıralamak istiyorum. Tabi makro olarak değil formül olarak

 

[ERTU55]

Sayın hocalarım merhaba,
Benim ödemelerle ilgili dikey yazılmış çok uzun verilerim var. Ben bu Sayfa1'de dikey sıralanmış verileri formül ile sayfa 2 'de yataya döndürmek istiyorum.
Örnek vermek gerekirse
Sayfa1 A1, Sayfa2 A1 formüle edilecek
Sayfa1 A2, Sayfa2 B1 formüle edilecek
Sayfa1 A3, Sayfa2 C1 formüle edilecek
Sayfa1 A4, Sayfa2 D1 formüle edilecek
Sayfa1 A5, Sayfa2 E1 formüle edilecek
Sayfa1 B1, Sayfa2 F1 formüle edilecek
Sayfa1 B2, Sayfa2 G1 formüle edilecek
Sayfa1 B3, Sayfa2 H1 formüle edilecek
Sayfa1 B4, Sayfa2 I1 formüle edilecek
Sayfa1 B5, Sayfa2 JE1 formüle edilecek
eski verilerim 5 satırlı 6 sütündan oluşuyor. Yenisi 30 Sütündan oluşmuş olacak. Yardımcı olursanız çok sevinirim.

Merhaba zamanında buna benzer birşey yapmıştım umarım işinize yarar. Dosyayı ekledim formülleri kendinize göre değiştirirsiniz.

 

[atbarus]

Merhaba zamanında buna benzer birşey yapmıştım umarım işinize yarar. Dosyayı ekledim formülleri kendinize göre değiştirirsiniz.

hocam teşekkürler ama altın üyeliğim olmadığı için dosyayı göremiyorum adres paylaşırmısınız

 

[ERTU55]

Merhaba buyrun,

Dikeyden_Yataya.xlsx dosyasını indir - download

Dikeyden_Yataya.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[ERTU55]

Bu arada bir arkadaş öok güzel bi formül yazmış burda incelemenizi tavsiye ederim.

alt alta olan verileri yan yana yazma

Merhaba arkadaşlar aynen bu şekilde yapmak istiyorum yardımcı olabilirmisiniz.

www.excel.web.tr