Sıralama

[magnesia]

Arkadaşlar selam.
Ekli dosyada, parça numaraları parça isimleri ve diğer imalat bilgileri var.
İsteğim şu :
Sayfa aktif olduğunda, A sütunundaki parça numaraları baz alınarak, İzmir parçaları kendi aralarında, İstanbul parçaları kendi aralarında KÜÇÜKTEN BÜYÜĞE sıralansın.
Bu iki şehirden başka şehir ismi olmayacak, A sütunundaki parça numaraları tek olacak. Yani aynı parça numarasından birden fazla olmayacak..
Şimdiden teşekkürler.

 

[veyselemre]

Ocak Sayfasının kod modülüne ekleyiniz.

Private Sub Worksheet_Activate()
    Columns("A:E").Sort Key1:=Range("E2"), Key2:=Range("A2"), Header:=xlYes
End Sub

 

[magnesia]

Sayın veyselemre.
Sonuç, tam istediğim gibi.
İlginize ve emeğinize teşekkürler..
İlave bir sorum olacak.
Bu aylar çoğaldığında, her ay sayfasına bu kodu ayrı ayrı mı yapıştırayım yoksa Thisworkbook sayfasına bu kodları yapıştırsam her ay için çözer mi?Ama aylar sayfasından başka analiz sayfaları da olacak. Thisworkbook'a bu kodları yapıştırırsam tüm sayfaları etkiler mi?

 

[veyselemre]

Thisworkbook kısmına ekleyin, sıralanmasını istediğiniz sayfaları case kısmına ekleyip çıkartabilirsiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Ocak", "Şubat", "Mart"
            Columns("A:E").Sort Key1:=Range("E2"), Key2:=Range("A2"), Header:=xlYes
    End Select
End Sub

 

[magnesia]

Süper.
İlginize, bilginize ve emeğinize sağlık.
Çok çok teşekkür ederim.