Veri Sıralama

[gul21]

Herkese Merhaba
Lütfen dosyayı inceleyiniz
Girilen sayıları sıraladığım zaman yanındaki isimlerinde sıralanmasını istiyorum acaba bunu yapabilecek bir makro var mı. Þimdiden teşekkürler

 

[mehmetcan]

Sub Makro1()
    Columns("A:A").Select
    Range("A1:B4").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B1").Select
End Sub

 

[xxrt]

A1:B4 Arası veriler için Mehmetcanın kodları olabilir ama bu veriler sınırlı veya sınırsız olabilir.Girilen Verilerin Nerede biteceği belli olmadığı durumlarda ise kod bilgisinde

Sub Makro1()
    Columns("A:A").Select
    Range("A1:B4").Sort Key1:=Range("A1")

Kod satırında Değişiklik yapmamız gerekir.
Satırın Bittiği Alana Kadar Sıralama:

Sub sonsatırakadarsırala() 
sonsatir = Range("a1").End(xlDown).Row 
Range(Cells(1, 1), Cells(sonsatir, 2)).Select 
Selection.Sort _ 
    Key1:=Worksheets("Sheet1").Columns("A"), _ 
    Header:=xlGuess 
End Sub

Son Satır Değilde;
Tüm Sütuna Kadar Sıralama:

Sub Tumsutuna_Kadar_Sırala() 

    Columns("A:b").Select 
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
        DataOption1:=xlSortNormal 
End Sub

Olması Halinde Sanırım bol çeşitli alternatif Ã?rnek vermiş olacağız.Bu sayede.

 

[talip]

sn. xxrt :hey:

yazdığınız

Tumsutuna_Kadar_Sırala

makroyu ben A56 sonrası için nasıl ayarlayabilirim? yani A56 dan sonra sıralayacak