Sırala yapmak

[Yesilyurtlu]

Sub SıraNo()

Range("B3:Z3").Select
Range(Selection, Selection.End(xlDown)).Select
' Range("B3:Z300").Select
Selection.Sort key1:=Range("D3"), ORDER1:=xlAscending, _
Key2:=Range("U3"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1").Select
MsgBox "Sıralandı..", vbInformation
End Sub


Üsteki makro ile B3:Z3 aralığındaki verileri D3 ve U3 sütununa göre sıralıyorum. bu makroya L3 ,I3 ve K3 sütunlarınıda eklemek istiyorum. Mümkün müdür?

 

[Ömer]

Merhaba,

Sub SıraNo()
son = [B65536].End(3).Row
    For i = 3 To son
        Cells(i, "aa") = Cells(i, "d") & Cells(i, "u") & Cells(i, "l") & _
        Cells(i, "ı") & Cells(i, "k")
    Next i
Range("B3:AA65536").Sort [AA3]
MsgBox "Sıralandı..", vbInformation
End Sub

Bu şekilde deneyiniz..

.

 

[Yesilyurtlu]

Ömer Abi
Teşekkür ederim