Çözüldü Veri Sıralama,

[gicimi]

Merhaba;

Malzeme No ve Giriş tarihine göre excel her açıldığında otomatik olarak A-Z sırama yapmak istiyorum. Yardımcı olabilir misiniz. Teşekkürler.

 

[çıtır]

Çalışma kitabı kodu olarak kopyalayınız.

Private Sub Workbook_Open()
son = ActiveWorkbook.Worksheets("Sheet1").Cells(65336, "A").End(3).Row
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("A2:A" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("B2:B" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E" & son)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  
End Sub

 

[gicimi]

Sn. @çıtır Elinize sağlık teşekkür ederim. Kolaylıklar.

 

[çıtır]

Sayın @gicimi;
Dönüş yaptığınız için teşekkür ederim.Kolay gelsin.

 

[Orion1]

Alternatif
Buyurun;

Sub auto_open()
Dim sonsat As Long, sh As Worksheet
Set sh = Sheets("Sheet1")
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:E" & sonsat).Sort key1:=Range("A2"), order1:=xlAscending, _
        key2:=Range("B2"), order2:=xlAscending
End Sub

 

[gicimi]

Sn. @Orion1 teşekkür ederim.

 

[Orion1]

Sn. @Orion1 teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[Haluk]

Alternatif:

Tablodan anladığım kadarıyla, aşağıdakinin yeterli olması gerekir...

Sub Auto_Open()
    Range("A1:E" & Rows.Count).Sort Key1:=Range("A1"), Header:=xlYes
End Sub

.

 

[gicimi]

Sn. @Haluk Teşekkür ederim.