Sütunları büyükten küçüğe sıralı kopyalama

[kemalist]

Sütunları büyükten küçüğe sıralı kopyalamak istiyorum.Örnek dosya ektedir.İlginiz için şimdidenteşekkür ederim.

 

[kemalist]

Cevaplayacak üstad yok mu?

 

[Ömer BARAN]

Aşağıdaki kod işinizi görür.
Alt taraftan işlem yapılacak sayfanın adına (Sayfa1) fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
açılacak VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın.

Mavi kısım, A : D sütunlarında BOŞ gibi görünen ancak kullanılmış durumda olan hücre içeriklerini gerçekten TEMİZLEMEK içindir.

Sub SUTUN_SIRALA()
s = Cells.SpecialCells(xlCellTypeLastCell).Row + 1
Columns("G:J").Clear
For sut = 1 To 4
    For sat = s To 3 Step -1
        If Cells(sat, sut) = "" Then Cells(sat, sut).ClearContents
        If Cells(sat, sut) <> "" Then Exit For
    Next
Next
liste = Array(Cells(s, "A").End(3).Row, Cells(s, "B").End(3).Row, Cells(s, "C").End(3).Row, Cells(s, "D").End(3).Row)
For b = 1 To 4
    sut = WorksheetFunction.Match(WorksheetFunction.Large(liste, b), liste, 0)
    Range(Cells(3, sut), Cells(s, sut)).Copy Cells(3, b + 6)
Next
Columns("G:J").AutoFit
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[kemalist]

Teşekkür ederim Ömer bey tam istediğim gibi olmuş.

 

[Ömer BARAN]

Eyvallah, kolay gelsin.