Sıralama Marosu

[airborne]

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.....................

 

[İhsan Tank]

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

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

 

[airborne]

s.a.

Üstad Allah Razı Olsun.............

 

[İhsan Tank]

s.a.

Üstad Allah Razı Olsun.............

Aleyküm Selam
lütfen kısaltma değil tamamını yazmaya özen gösteriniz.
Allah Hepimizden Razı Olsun
kolay gelsin
:yazici:

 

[eunlu]

A.s.
kod aşağıdaki gibi olacak.
-------------------------------------------------------
Sub Sirala()
'
' Sirala Makro
'

'
Range("A1224").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("A1224")
.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.