Satırı Sütun Halinde Sıralamak ??

[taurusndr]

Merhaba,

1 2 3 4
5 6 7 8
9 10 11 12 Bu Şekilde yazılmış satırları;
--------------------------------------------------------
1
2
3
4
5
6
7
8
9
10 şeklinde alt alta tek bir sütunda yazmak istiyorum excel de mümkünmüdür bilen arkadaşlar yardımcı olursa sevinirim...

Teşükkürler İyi Forumlar..

 

[mustafaine1]

fonksiyon ile denedim yapamadim

vba ile oldu anca kodlar asagidadir..

Sub Araligi_Transpose()
     
    Dim Aralik As Range
    Dim Aralik_Disi As Range
    Dim Araligi_Transpose As Range

    Set Aralik = Sheet1.Range("verilistesi")
     
    For Each Araligi_Transpose In Aralik.Rows
        Set Aralik_Disi = Range("F" & Rows.Count).End(xlUp)
        If Aralik_Disi.Row <> 1 Then Set Aralik_Disi = Aralik_Disi.Offset(1)
        Araligi_Transpose.Copy
        Aralik_Disi.PasteSpecial xlPasteValues, , , True
     Next
    
End Sub

Araliginizi verilistesi seklinde ad tanimi ile tanimlayiniz..

 

[levo26]

Ekteki gibi olur mu?

 

[mustafaine1]

benim anladigim kadariyla ekteki gibi degilde satirlar halinde olan bir verinin tek sutunda transpose olmasi gerekiyor..

 

[taurusndr]

levo ekteki gibi değil ama 1 den 10 kadar sıraladığın satırın aynısını alt satırdada düşün ve oluşturacağın sütunda 2 satır alt alta yazacak
1
2
3
4
.
.
.
n' e kadar.

mustafaine sanırım doğru anlamışsın vba bilgim yok ünide görmüştüm ama uzun zaman oldu unutmuşum =)

 

[mustafaine1]

ekteki dosyayi inceleyiniz..

 

[taurusndr]

evet aradığım bu ama sadece 3 satırı transpoze ediyor..
mesela 100 lerce satır transpoze etmem lazım, dosyayı açtım ve kodlarla felan oynayamadım dediğim gibi satır sayısını artırabilirmiyim..??

 

[mustafaine1]

verilistesi diye bir ad tanimi yaptim onun araligini degistirerek istediginiz kadar arttirabilirsiniz..

 

[Vedat Özer]

Selamlar,


Mustafa beyin örneğine aşagıdaki formülü f1 hücresine yapıştırıp aşagıya doğru çekin,

=EĞER(EHATALIYSA(KÜÇÜK($A:$D;SATIR()));"";KÜÇÜK($A:$D;SATIR()))

 

[mustafaine1]

Merhaba Vedat, burada sayilarin temsili oldugunu saniyorum verilerin harflerde oldugunda formul ise yaramayacaktir ama tum verilerin sayi ve buyukluk acisindan bir siralama var ise dogru olacaktir..

 

[Ömer]

Merhaba,

Alternatif olsun.

.

 

[mustafaine1]

Omer Bey tesekkurler bu guzel olmus iste

 

[mustafaine1]

Ornek uzerinde rows ve columns fonksiyonlari ile birlikte daha kolay bir versiyonunu ve ad tanimindan satir ve sutun sayisini ayarlamasiyla ayarladim. Ornek dosyayi inceleyiniz.