Özel sıralama

[sward175]

Tüm ilgilenenlere teşekkürlerimi sunarım.

Forumda araştırdım fakat sayfa korumalı iken özel sıralama hakkında bilgi bulamadım.
Ekli dosyada yapmak istediğim C 3 den Y17 ' dahil tarayarak N sütununa göre Özel sıralama yapmak istiyorum.


Sayfa korumalı oduğu için yapamıyorum. Sayfanın korumalı olması gerekiyor.
( sayfa koruma şifresi :123)

Hosçakalın,

Sward175

 

[Murat OSMA]

Kodlardan önce sayfa korumasını kaldırın, işiniz bitince de sayfaya tekrar koruma koyun...

 

[sward175]

Murat Bey,

Dosyaya bilgi girişi başka kişiler tarfından yapılarak benim elime ulaşıyor.
Eğer dosya korumasız olursa sayfa üzerindeki formüllerin silinme ihtimalini var.
Sıralamayı dosyanın kurumalı şekli ile yapılması gerekiyor,

Yardımlarınıza teşekkür ederim.

 

[Murat OSMA]

Bunu manuel olarak değil, kodlarla yapacaksınız.
Deneyiniz;

Sub Makro1()
    ActiveSheet.Unprotect 123
    Range("C2:Y17").Select
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("N3:N17") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("C2:Y17")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    [C3].Select
    ActiveSheet.Protect 123
End Sub

 

[sward175]

Murat Bey,

Göstermiş olduğunuz ilgiye teşekkür ederim.

Hoşçakalın,

 

[Murat OSMA]

Rica ederim, iyi günler...