A dan Z ye Sıralama Makro ile

[Mikdad]

Selamun Aleykum Bir Button marifeti ile önce
B Sonra J Sonra P en Sonunda da AC yı A dan Z ye sıralamasını istiyorum mümkün mü acaba?

 

[kulomer46]

Örnek dosya olursa iyi olurdu.

Selamlar...

 

[Mikdad]

Buyrun hocam örnek dosya

 

[Orion1]

Makro kaydet yöntemi ile aşağıdaki kodları elde ettim.
Siz kendinize uyarlayarak kullanabilirsiniz.

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("B2:B9"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("J2:J9"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("P2:P9"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("AC2:AC9") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("A1:AC9")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Mikdad]

Allah Razı Olsun Hocam Teşekkür Ederim.

 

[Orion1]

Allah Razı Olsun Hocam Teşekkür Ederim.

Allah Razı Olsun Hocam Teşekkür Ederim.

Rica ederim.
Eğer makro kaydet yöntemini öğrenirseniz,çok işinize yarayacaktır.
Üzerine küçük değişikliklerle amacaınıza ulaşabilirsiniz.

 

[Mikdad]

Makro kaydet özelliğini biliyorum hocam kullanıyorum. ama işin enteresan tarafı şu kendi bilgisayarım da çalışan makro dosyayı başka bilgisayard akullandığımda o makro çalışmıyor enteresan bir şekilde. sebebi nedir acaba

 

[Orion1]

Makro kaydet özelliğini biliyorum hocam kullanıyorum. ama işin enteresan tarafı şu kendi bilgisayarım da çalışan makro dosyayı başka bilgisayard akullandığımda o makro çalışmıyor enteresan bir şekilde. sebebi nedir acaba

Versiyon farklılıarından kaynaklanıyor olabilir.
Mesela benim yazdığım makro kaydet 2003 excelde çalışmaz.

 

[Mikdad]

Haklısınız hocam test ettim tam olarak dediğiniz gibi versiyon farklılığı ndan dolayı çalışmıyor muş