Soru Makro İle Veri Sıralama İşlemi Hakkında

[RBozkurt]

Merhaba,
N sütununda bulunan sayılara göre sıralama yaptırmak istiyorum.
Makro kaydetme işlemi ile denedim

Sub Makro2()
    Cells.Select
    ActiveWorkbook.Worksheets("NetcadRapor").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("NetcadRapor").Sort.SortFields.Add2 Key:=Range( _
        "N2:N8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("NetcadRapor").Sort
        .SetRange Range("A1:T8")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Fakat;
Kayıt yaparken N8e kadar veri vardı. Daha fazla satır ekleyince maalesef çalıştıramadım.
Nasıl düzeltebilirim?

 

[Muzaffer Ali]

Merhaba.

Sub Makro2()
    With ThisWorkbook.Worksheets("NetcadRapor")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add2 Key:=Range("N:N"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SetRange .Range("A1:T" & .Cells(Rows.Count, "N").End(xlUp).Row)
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
    End With
End Sub

 

[RBozkurt]

@Muzaffer Ali bey elinize sağlık, çok teşekkürler.

 

[RBozkurt]

@Muzaffer Ali bey merhaba.

Makro çalışıyor, fakat sıralama işlemi yaptıktan sonra 2. bir makroyu çalıştırıyorum verilerde hata oluşuyor.
Aynı verileri sıralama yaptırmadan çalıştırıyorum bu sefer hata oluşmuyor.

Edit:
Diğer makroda da problem olabilir kurcalayım biraz

 

[Kullancı0642]

Merhaba
Bu makroda
End With
Range("b16").Select satırını eklemisdim... sıralama yaptıktan sonra islem yapılan hucrenin bir alt hücresine gelmesi icin nasıl degisiklik yapmam gerekir... tsk ederim...

 

[Muzaffer Ali]

Merhaba.
End With satırının bir üstüne aşağıdaki satırı ekleyin.
Yani aşağıdaki gibi olmalı.

.Cells(Rows.Count, "B").End(xlUp)(2, 1).Select
end with

 

[Kullancı0642]

Muzaffer bey verdiginiz kodu ekledim ancak sıralama yapıyor, tüm hücreleri secip ekledigim satırda hata veriyor

 

[Muzaffer Ali]

Dosyanızı ekleyin kontrol edelim.