sıralama makrosunun birden fazla sütunda çalıştırmak

[muratcx]

Merhaba arkadaşlar ekli dosyada otomatik sıralama yapan makro mevcut

Makro A sütununa yazılan sayıları küçükten büyüğe benzersiz sıralıyor. Benim

isteğimise Makro çalıştığında aynı anda B,C ve D sütunlarınıda sıralasın

mümkünmüdür.

 

[seismic]

Her sütun için aralık seçerek sıralama yapıldığında oluyor sanırım.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1:A30").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("B1:B30").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("C1:C30").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("D1:d30").Select
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("A1").Select
nr = ActiveCell
zellende = Range("A" & Rows.Count).End(xlUp).Row
Do
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = nr Then
Selection.EntireRow.Delete
ActiveCell.Offset(-1, 0).Range("A1").Select
End If
nr = ActiveCell
Loop Until ActiveCell = Range("A" & zellende + 1)
End Sub

 

[seismic]

Tabi eğer bu şekilde istiyorsanız