özel sıralama

[aliakaran]

merhaba .
ekte de belirttiğim gibi makama göre ve terfi yılına göre sıralama yapmaya çalışıyorum. nasıl yapacağım hakkında yardımcı olursanız sevinirim.
şimdiden teşekkür ederim.

 

[Mahir64]

merhaba .
ekte de belirttiğim gibi makama göre ve terfi yılına göre sıralama yapmaya çalışıyorum. nasıl yapacağım hakkında yardımcı olursanız sevinirim.
şimdiden teşekkür ederim.

Merhaba
Veri>Filtre>Filtre uygula uygukanan filtreden;
Önce makama göre seçin sonra da yıla göre ister özel ister artan azalan.

 

[Muhammet Okumuş]

rütbe sırası nasıl olacak.kim kimden daha üstün

 

[Muhammet Okumuş]

j sütunundaki değerleri değiştirerek makam sırasını belirleyebilirsiniz.

 

[aliakaran]

Teşekkür ederim.

Ilginiz için teşekkür ederim.
Bu sıralamayı kod ile yapabilmem mümkünmü?

 

[Necdet]

Merhaba,

Kamu kurumlarında çok sık karşılaşılan bir durum.

Millet kendini çok önemli sanar da.

Unvan adı ile sıralama yaptığınızda isteğiniz gerçekleşmez, bunun için unvan kodu kullanmak gerek.

Unvan adlı sayfada unvanlar ve kodları yazılmıştır, siz unvan sıralamasını değişik kodlayarak yapabilirsiniz.

E sütununda unvan kodları yazdırılıp E ve D sütununa göre sıralama yaptırdıktan sonra E sütunu silinmiştir.

Kodları aşağıdadır.

Sub Sirala()
    Dim i   As Long, _
        su  As Worksheet, _
        s1  As Worksheet, _
        c   As Range
 
 
    Set s1 = Sheets("Sayfa1")
    Set su = Sheets("Unvan")
 
    s1.Select
 
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
        With su.Range("B:B")
            Set c = .Find(Cells(i, "B"), LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
                Cells(i, "E") = [B][COLOR=red]su[/COLOR][/B].Cells(c.Row, "A")
            Else
                Cells(i, "E") = 9999
            End If
        End With
    Next i
 
    i = i - 1
 
    Range("B2:E" & i).Sort Key1:=[E1], Key2:=[D1]
    Columns("E:E").Delete
 
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
End Sub

 

[aliakaran]

çok teşekkür ederim.
iyi çalışmalar.

 

[aliakaran]

sıralama alfabetik siraya göre oluyor

kodu çalıştıramadım.
sıralama alfabetik oluyor.

 

[Necdet]

Merhaba,

Unvan adlı bir sayfa açıp unvanları kodladınız mı?

Dosyayı iyi inceleyiniz lütfen.

 

[aliakaran]

aynen dediğiniz gibi yaptım fakat sadece alfabetik sıralama yapıyor.

 

[Necdet]

Eklediğim dosya doğru çalışıyor mu?
Eğer o doğru çalışıyorsa (ki çalışıyor) sizde bir sorun var.

Dosyanızı ekleyin bakalım.

 

[aliakaran]

alfabetik sıralama yapıyor

sırala butonuna bastığımda ekteki dosyada da görüldüğü gibi önce genel müdür ,hemşire, hizmetli şeklinde sıralıyor.
bir türlü çözemedim.

 

[Necdet]

Merhaba,

6. mesajımdaki kodları ve dosyayı düzenledim.

Eksik aktardığım yeri de kırmızı olarak belirttim.

 

[aliakaran]

sn.necdet yeşertener.
ilginiz için çok eşekkür ederim.
bugün sizi biraz uğraştırdım kusuruma bakmayın.iyi çalışmalar diliyorum.

 

[Necdet]

sn.necdet yeşertener.
ilginiz için çok eşekkür ederim.
bugün sizi biraz uğraştırdım kusuruma bakmayın.iyi çalışmalar diliyorum.

Rica ederim, aslında dosyayı ve kodları deneyerek göndermiştim ama bu yanlışlık nasıl oldu bende anlamadım.

Güle güle kullanınız.