Yanyana Olan Sayıları Alt Alta Sıralama?

[mehzent]

Herkese selam Mehmet Ben İstanbul dan..

Ben sunu çözemedım bır turlu kı emınımkıde cok basıt bır yontemı vardır sayılar aynı sutunda olduğu zmana alt alta sıralamakta sıkıntı yok fakat farklı sutunlardaki sayıları aynı sutunda alt alta nasıl sıralayabılırırm mesala su resımdekını?

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

İstediğiniz işlemi makro ile kolaylıkla yapabilirsiniz.

 

[haletiruhiyem]

Merhaba,

Sayın Korhan Beyin dediğine ek olarak, çok basit açıdan düşünüp;

1 2 3
4 5 6
7 8 9
gibi olan sayıları
1 4 7
2 5 8
3 6 9
şeklinde mi yapmak istiyorsunuz? Eğer böyle yapmak istiyorsanız Özel Yapıştır'dan "İşlemi Tersine Çevir" işinizi görür zannedersem.

 

[Korhan Ayhan]

Selamlar,

Önceki mesajımda konuyla ilgili örnek kod verememiştim. Aşağıdaki kodu denermisiniz.

Listeleme Sayfa2 ye yapılmaktadır. Kod içindeki sayfa isimlerini kendinize göre değiştirmeyi unutmayın.

Option Explicit
 
Sub SAYILARI_ALT_ALTA_SIRALA()
    Dim X As Long, Y As Byte, Satır As Long
    
    Sheets("Sayfa2").Range("A:A").ClearContents
    
    For X = 1 To Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
        For Y = 1 To 19
            If Sheets("Sayfa1").Cells(X, Y) <> "" Then
                Satır = Satır + 1
                Sheets("Sayfa2").Cells(Satır, "A") = Sheets("Sayfa1").Cells(X, Y)
            End If
        Next
    Next
    
    Sheets("Sayfa2").Select
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[enteresan]

Selamlar,

Önceki mesajımda konuyla ilgili örnek kod verememiştim. Aşağıdaki kodu denermisiniz.

Listeleme Sayfa2 ye yapılmaktadır. Kod içindeki sayfa isimlerini kendinize göre değiştirmeyi unutmayın.

Option Explicit
 
Sub SAYILARI_ALT_ALTA_SIRALA()
    Dim X As Long, Y As Byte, Satır As Long
    
    Sheets("Sayfa2").Range("A:A").ClearContents
    
    For X = 1 To Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
        For Y = 1 To 19
            If Sheets("Sayfa1").Cells(X, Y) <> "" Then
                Satır = Satır + 1
                Sheets("Sayfa2").Cells(Satır, "A") = Sheets("Sayfa1").Cells(X, Y)
            End If
        Next
    Next
    
    Sheets("Sayfa2").Select
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Özür dilerim, araya girdim belki ama, bu işlemin tersi için bir makro yapabilir miyiz. Yani bu makro ile altalta sıraladığımız verileri belirlediğimiz bir alana, mesela A ile K sütunu arasına birbirini takip edecek şekilde hücrelere taşıyabilir miyiz.

 

[enteresan]

Sanırım Korhan hocam sorumu okumadı. Şu ana kadar bir cevap gelmemiş. İnşallah bir cevap veren olur.