• DİKKAT

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

Belli Aralıkta sıralama

  • Konbuyu başlatan Konbuyu başlatan tamer42
  • Başlangıç tarihi Başlangıç tarihi
tamer42

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,201
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba,

Range("B15:I27") aralığında veri yapısını , I ve F sütununa göre sıralatmak istiyordum.

Aşağıdaki kodda hata hata vermektedir, nasıl düzenleyebiliriz?

Teşekkürler,
iyi akşamlar.

Kod: 
Sub SortMultipleColumns()

Dim WS As Worksheet: Set WS = ThisWorkbook.Worksheets("Sheet1")

WS.Activate

    With WS
        With .Cells(15, "B").CurrentRegion
            .Cells.Sort Key1:=.Range("I15"), Order1:=xlAscending, _
                        Key2:=.Range("F15"), Order2:=xlAscending, _
                        Orientation:=xlTopToBottom, Header:=xlYes
        End With
    End With

End Sub
 

Ekli dosyalar

  • 123.JPG
    123.JPG
    127.7 KB · Görüntüleme: 8
C++: 
Sub SortData()
    ' Veri yapısının olduğu aralığı tanımlayın
    Dim dataRange As Range
    Set dataRange = Range("B15:I27")
    
    ' Sıralama türünü belirleyin (artan veya azalan)
    Dim sortType As XlSortOrder
    sortType = xlDescending ' xlAscending kullanarak artan sıralama yapabilirsiniz
    
    ' Sıralama yapın
    dataRange.Sort Key1:=Range("I15:I27"), Order1:=sortType, Key2:=Range("F15:F27"), Order2:=sortType, Header:=xlNo, Orientation:=xlTopToBottom
End Sub
Denermisin ?
 
Son düzenleme:
Greenblacksea53' Alıntı:
C++: 
Sub SortData()
    ' Veri yapısının olduğu aralığı tanımlayın
    Dim dataRange As Range
    Set dataRange = Range("B15:I27")
  
    ' Sıralama türünü belirleyin (artan veya azalan)
    Dim sortType As XlSortOrder
    sortType = xlDescending ' xlAscending kullanarak artan sıralama yapabilirsiniz
  
    ' Sıralama yapın
    dataRange.Sort Key1:=Range("I15:I27"), Order1:=sortType, Key2:=Range("F15:F27"), Order2:=sortType, Header:=xlNo, Orientation:=xlTopToBottom
End Sub
Denermisin ?
Genişletmek için tıkla ...
Çok teşekkür ederim,
emeğinize sağlık;

Olayı bir aşama daha ileriye taşımak istiyorum.

Ekli dosyada;
Sheet1 içinde I sütununda Aciliyet sıralaması yaparken , bu sütun içinde yazılı olan metinsel ifadeleri değilde ; Sheet2 de D:E sutun aralığında bu metinin karşılığındaki puanı esas alarak sıralama nasıl yapabilir?

Örnek :
Düşük değeri için 1' i
Orta değeri için 2' yi
Yüksek değeri için 3' i

esas alarak nümerik değere göre sıralama yapacak bir yönten arayışındayım.

ilgi ve alakanız için tekrar teşekkürler,
iyi Haftasonları.
 
Son düzenleme:
B sütunu referans alır. I'da yazan veriye göre L'ye referans atar. Sıralamayı yapar ve L'yi temizler.

CSS: 
Option Explicit

Sub SortData()
    Dim lastRow As Long
    lastRow = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
   
    Dim i As Long
    For i = 16 To lastRow
        Select Case Sheet1.Range("I" & i).Value
            Case "Yüksek"
                Sheet1.Range("L" & i).Value = 3
            Case "Orta"
                Sheet1.Range("L" & i).Value = 2
            Case "Düşük"
                Sheet1.Range("L" & i).Value = 1
            Case "Orta Altı"
                Sheet1.Range("L" & i).Value = 4
            Case "Orta Üstü"
                Sheet1.Range("L" & i).Value = 5
        End Select
    Next i
   
    Sheet1.Range("B16:L" & lastRow).Sort key1:=Sheet1.Range("L16:L" & lastRow), order1:=xlDescending, Header:=xlNo
    Sheet1.Range("L16:L" & lastRow).ClearContents
End Sub
 
Kod: 
Sub Macro4()
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I16:I29") _
                             , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
                        "Düşük,Orta Altı,Orta,Yüksek", DataOption:=xlSortNormal
        .SetRange Range("B15:J29")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
RBozkurt' Alıntı:
B sütunu referans alır. I'da yazan veriye göre L'ye referans atar. Sıralamayı yapar ve L'yi temizler.

CSS: 
Option Explicit

Sub SortData()
    Dim lastRow As Long
    lastRow = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
  
    Dim i As Long
    For i = 16 To lastRow
        Select Case Sheet1.Range("I" & i).Value
            Case "Yüksek"
                Sheet1.Range("L" & i).Value = 3
            Case "Orta"
                Sheet1.Range("L" & i).Value = 2
            Case "Düşük"
                Sheet1.Range("L" & i).Value = 1
            Case "Orta Altı"
                Sheet1.Range("L" & i).Value = 4
            Case "Orta Üstü"
                Sheet1.Range("L" & i).Value = 5
        End Select
    Next i
  
    Sheet1.Range("B16:L" & lastRow).Sort key1:=Sheet1.Range("L16:L" & lastRow), order1:=xlDescending, Header:=xlNo
    Sheet1.Range("L16:L" & lastRow).ClearContents
End Sub
Genişletmek için tıkla ...
teşekkürler,
 
veyselemre' Alıntı:
Kod: 
Sub Macro4()
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I16:I29") _
                             , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
                        "Düşük,Orta Altı,Orta,Yüksek", DataOption:=xlSortNormal
        .SetRange Range("B15:J29")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Genişletmek için tıkla ...
Veysel Hocam teşekkürler
Kod: 
CustomOrder:= _
                        "Düşük,Orta Altı,Orta,Yüksek"
buradaki değerleri tek-tek yazmak yerine;
Ekli ekran görüntüsünde olduğu gibi "Aciliyet" adındaki bir tanımlanmış ad içine ekleyerek, nasıl düzenleyebiliriz?

=OFFSET(Sheet2!$D$6,,,5,1)
özetle liste olarak kaydetmenin yada başka pratik bir yöntemi var mıdır?

tekrar teşekkürler,
iyi Çalışmalar.
 

Ekli dosyalar

  • 123.JPG
    123.JPG
    63.2 KB · Görüntüleme: 1
tamer42' Alıntı:
Veysel Hocam teşekkürler
Kod: 
CustomOrder:= _
                        "Düşük,Orta Altı,Orta,Yüksek"
buradaki değerleri tek-tek yazmak yerine;
Ekli ekran görüntüsünde olduğu gibi "Aciliyet" adındaki bir tanımlanmış ad içine ekleyerek, nasıl düzenleyebiliriz?

=OFFSET(Sheet2!$D$6,,,5,1)
özetle liste olarak kaydetmenin yada başka pratik bir yöntemi var mıdır?

tekrar teşekkürler,
iyi Çalışmalar.
Genişletmek için tıkla ...
Ekte olduğu gibi bir çözüm üretmeye çalıştım ama hata verdi,
Neden Kaynaklanıyor olabilir anlamaadım

Kod: 
 sSortOrder = "Çok Düşük,Düşük,Orta,Yüksek,Çok Yüksek"
 
  ''sSortOrder = CStr(Join(vCustom_Sort, ","))

    With ActiveWorkbook.Worksheets("Sheet1").Sort
    
        .SortFields.Clear
        
        .SortFields.Add Key:=Range("I16:I29") _
                             , SortOn:=xlSortOnValues, Order:=xlDescending, CustomOrder:= _
                        sSortOrder, DataOption:=xlSortNormal
                      
        .SetRange Range("B15:J29")
        
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
    End With
 

Ekli dosyalar

Kod: 
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I16:I29"), _
                        SortOn:=xlSortOnValues, Order:=xlAscending, _
                        CustomOrder:=Join(Application.Transpose(Range("Aciliyet").Value), ",")
        .SetRange Range("B15:J29")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Son düzenleme:
veyselemre' Alıntı:
Kod: 
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I16:I29"), _
                        SortOn:=xlSortOnValues, Order:=xlAscending, _
                        CustomOrder:=Join(Application.Transpose(Range("Aciliyet").Value), ",")
        .SetRange Range("B15:J29")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Genişletmek için tıkla ...
Veysel Hocam çok teşekkürler,
iyi ki varsınız

çok önemli olmasa da bir şey daha soracağım
Aşağıdaki gibi denemeye çalışınca hata verdi,

dediğim gibi çok önemli değil;

tekrar teşekkürler,

Kod: 
Dim StrOrder
strOrder = Join(Application.Transpose(Range("Aciliyet").Value), ",")

    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I16:I29"), _
                        SortOn:=xlSortOnValues, Order:=xlAscending, _
                        CustomOrder:=strOrder
 
Kod: 
    Dim strOrder
    strOrder = Join(Application.Transpose(Range("Aciliyet").Value), ",")

    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I16:I29"), _
                        SortOn:=xlSortOnValues, Order:=xlAscending, _
                        CustomOrder:=CVar(strOrder)
        .SetRange Range("B15:J29")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst