• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sıralama Marosu

Katılım
20 Ekim 2005
Mesajlar
502
s.a.

üstadlar, ekli dosyada sıralama makrosu var. ama sadece bu isimlerin olduğu alını sıralayor. Buna acaba diğer sütunlarda ilave edilebilirmi. Mesela sıralama butonuna tıklandığında 1. sırada isim 5 sıraya indiğinde ona ait bilgilerde 5. sıraya, 3. Sıradaki birinci sıraya geldiğinde bilgilerinde 1. sıraya getirilebilirmi.

Selametle.....................
 

Ekli dosyalar

s.a.

üstadlar, ekli dosyada sıralama makrosu var. ama sadece bu isimlerin olduğu alını sıralayor. Buna acaba diğer sütunlarda ilave edilebilirmi. Mesela sıralama butonuna tıklandığında 1. sırada isim 5 sıraya indiğinde ona ait bilgilerde 5. sıraya, 3. Sıradaki birinci sıraya geldiğinde bilgilerinde 1. sıraya getirilebilirmi.

Selametle.....................

merhaba
Kod:
Sub Düğme1_Tıklat()
Range("B13:D73").Select
Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
bununla değiştirip deneyin
 
A.s.
kod aşağıdaki gibi olacak.
-------------------------------------------------------
Sub Sirala()
'
' Sirala Makro
'

'
Range("A12:D24").Select
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("C13:C24") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("A12:D24")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
----------------------------------------------------------------------------
Sana bir ipucu vereyim. Eğer makro yazacaksan Excel'in makro kaydetme yöntemini kullan. Makro kaydını bitirdiğinde Alt+F11 e bas. Module içinde makronun kodunu görebilirsin. Ordan artık istediğin değişikliği yap. Kolay gelsin.
 
Geri
Üst