veri sıralama

[igultekin2000]

iyi günler:
veri doğrulama ile gelen sayfada D sütununda olan "İTHALAT" satırının 1.ci sıra olacak şekilde sıralamak istiyorum, istenen kelimeye göre sıralama ile ilgili makro örneği bulamadım.
işlem yapılacak satır alan B3-K10 alanı ; A sütunu ve M sütunu sabit, sıralamaya dahil değil, Teşekkürler

 

[Ömer]

Merhaba,

veri doğrulama makro

iyi günler; Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A1]) Is Nothing Then Exit Sub If Cells(Rows.Count, "A").End(3).Row > 1 Then _ Range("B3:M100" & Cells(Rows.Count, "B").End(3).Row).ClearContents If Target = "" Then Exit Sub cson =...

www.excel.web.tr

"Veri doğrulama" başlığındaki dosyayla aynı dosya içeriği sanırım.
Private Sub Worksheet_Change(ByVal Target As Range) kodlarının End Sub satırından önce ekleyiniz.

    deg = Array("İTHALAT", "DÜŞÜM", "TRANSFER")
    Application.AddCustomList ListArray:=deg
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("D3"), SortOn:=xlSortOnValues, Order:=xlAscending, _
            CustomOrder:=UBound(deg), DataOption:=xlSortNormal

        .SetRange Range("B3:K" & Cells(Rows.Count, "B").End(3).Row)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[igultekin2000]

Merhaba,

Sorunsuz çalışıyor, teşekkür ederim, iyi çalışmalar