Otomatik sıralama makrosu (2 kriterli)

[kdr20_88]

Arkadaşlar ekte ki örnek dosyamda bir personel listem var, bu liste 2 kriterli otomatik çalışan bir macroya ihtiyacım var. Detaylar tablonun içersinde yazılı. Yardımcı olabilir misiniz.

Değerli vaktiniz için şimdiden teşekkür ederim. Hayırlı Günler.

 

[Murat OSMA]

Deneyiniz...

 

[kdr20_88]

alta bi personel ekledim sıralamadı. ne yapmam gerekiyo ki sıralasın anlamadım ?

 

[Murat OSMA]

Afedersiniz sanırım dosyayı kaydetmeden göndermişim...

Önceki mesajımda tekrar yükledim...

 

[nicosian]

hala olmamis sanki... birde B2:b10 yaziyor o 10 sayisini degistim hala siralamadi.

 

[kdr20_88]

Sub auto_open()
Call Makro
End Sub
Sub Makro()
'
' Makro Makro
'

'
Range("A2:I500").Select
ActiveWorkbook.Worksheets("Tanımlamalar").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tanımlamalar").Sort.SortFields.Add Key:=Range("G2:G500") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tanımlamalar").Sort.SortFields.Add Key:=Range("B2:B500") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tanımlamalar").Sort
.SetRange Range("A2:I500")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Ekstre").Select
Range("C1").Select
End Sub


Kendim sordum kendim yaptım
YİNEDE TEŞEKKÜRLER...