Sırala makrosu

[policeman]

Merhaba..
Çalıştığım tabloda istediğim satırı diğer sayfaya aktaran makro vardı..
Başka bir tabloda da TC Kimlik No'larını sıralayan bir makro buldum ve kendi tabloma uyarlamaya çalıştım ama başaramadım..
Ya tablom takılıp kalıyor,yada hiç çalışmıyor..
Yardım ederseniz sevinirim..
Saygılarımla..

 

[Korhan Ayhan]

Merhaba,

Ben sorunuzu okuduktan sonra dosyanızı açtım fakat hangi sütunu neye göre sıralamak istediğinizi anlamadım. Çünkü mesajınızda sadece yaşadığınız sorunu yazmışsınız. Hiç bir detayı açıklamamışsınız. Bu durumda size nasıl yardımcı olmalıyız?

 

[policeman]

Hocam merhaba
Detayları atlayıp vaktinizi aldığım için hakkınızı helal edin..
Dosya ekini güncelledim ve yapamadıklarımı açıkladım..
Yardımlarınızı bekliyorum..
Saygılarımla..

 

[omerceri]

Örnek dosya ekledim sıralayıp Numaralandırıyor ama hangi verileri veri sayfasına aktarılması gerektiğini belirtmediğinizden. Onu yapmadım.

 

[policeman]

Hocam Allah razı olsun..
Zaten istediğim sadece sıralama idi..
Çok teşekkürler..
Saygılarımla..

 

[omerceri]

Fazladan satırı sildim. aşağıdaki kodu kullanın

Sub dd()
Say = Range("G65536").End(3).Row
 Range("g2:g" & Say).Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        For i = 2 To Say
   If Range("G" & i) = Range("G" & i - 1) Then
    Range("H" & i).Value = Range("H" & i - 1).Value + 1
    Else
    Range("H" & i).Value = 1
    End If
    Next
End Sub

 

[policeman]

Teşekkürler Hocam..

 

[policeman]

Sn. Ömer ÇERİ hocam,sizden tekrar yardım istiyorum..
Gerçek kayıtlarımda arada TC Kimlik No belli olmayanlar mevcut.
Makro aradaki boşlukları alttaki TC Kimlik No'ları taşıyarak dolduruyor ve en altta kalan boşluklarada sıra no veriyor..
Ayrıca kayıtlarımın eklemeler ile 17-18.000'e kadar çıkacağını tahmin ediyorum..
Satırların kayma yapmadan ve boşluklar boş olarak kalarak tekrar düzenlenebilirse sevinirim..
Saygılarımla..

 

[omerceri]

Aşağıdaki Kod Kimlik Numarası olmayanlara sıra numarası vermiyor, A:G sütunlarını kapsıyor .(örneğinizde tek satır başlığı G sütunu olduğu için seçimi genişletmemiştim.) Sıralamanın mantığı gereği Kimlik numaraları boş olanları listenin en altına atıyor.

Sub Makro1()
Say = Range("G65536").End(3).Row
 Range("a2:g" & Say).Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        For i = 2 To Say
    If Range("G" & i) <> "" Then
   If Range("G" & i) = Range("G" & i - 1) Then
    Range("H" & i).Value = Range("H" & i - 1).Value + 1
    Else
    Range("H" & i).Value = 1
    End If
    End If
    Next
End Sub