B sütununa göre sıralama

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın Sayfa1'de siciller mevcut, butona bastığımda buradaki bilgileri Sayfa2'ye aktarıyor, B sütunundada bu siciller kime ait formülle karşısına getiriyorum, A sütununa göre de sıralama yapıyor, buraya kadar her şey normal.

Sıralamayı B sütununa göre yap dediğimde, formüllerin bulunduğu en son satır yani 976 ile 1000 satırlarında sıralama yapıyor. 1.satıra kadar satırlar boş görünüyor, bir türlü çözemedim.

Yardımcı olur musunuz?

 

[Asri]

Bu kodlar ile dener misiniz?

Sub Aktar()
    Dim j As Byte, i As Long, sat As Long, sh As Worksheet
    Set sh = Sheets("Sayfa2")
    sh.Range("A:B").ClearContents
    sat = 1
    Sheets("Sayfa1").Select
    Application.ScreenUpdating = False
    sonsatir = Sheets("Sayfa1").UsedRange.Rows.Count
    For j = 1 To sonsatir
        For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
           If IsNumeric(Cells(i, j).Value) And Cells(i, j).Value <> "" Then
            sh.Cells(sat, "A").Value = Cells(i, j).Value
            sh.Cells(sat, "B").FormulaR1C1 = "=IF(RC[-1]="""","""",VLOOKUP(C[-1],PERSONEL!C[-1]:C,2,0))"
            sat = sat + 1
          End If
        Next
    Next
    Application.ScreenUpdating = True
    sh.Select
    Set sh = Nothing
    Range("A1").Select
    sonsatir = Sheets("Sayfa2").UsedRange.Rows.Count
    Sheets("Sayfa2").Range("A1:B" & sonsatir).Sort Key1:=[B1], Order1:=xlAscending
    MsgBox "İşlem tamamlandı.", vbInformation, "ASLAN"
End Sub

 

[ASLAN7410]

Sayın asri ilginiz için çok teşekkür ediyorum. Aşağıdaki sıralama kodlarını iptal etmeden kodu çalıştırıyorum, yine A sütununa göre sıralama yapıyor.
yine bu kodları iptal ederek çalıştırdığımda B sütununda karışık sıralama yapıyor.

Sheets("Sayfa2").Range("A1:A" & sonsatir).Sort Key1:=[A1], Order1:=xlAscending
'Sheets("Sayfa2").Range("A1:B100000").Sort Key1:=[B1], Order1:=xlAscending

 

[Asri]

Kod güncellendi.
KelimeTemizleme iptal edildi.

 

[ASLAN7410]

Sayın asri, ellerinize sağlık, çok teşekkür ediyorum. Tam istediğim gibi çalışıyor. Hayırlı geceler diliyorum.

Her halde B sütunundaki formüllerin 1000 satırına kadar devam etmesinden dolayı sıralamada hata oluyordu.

 

[Asri]

Sayın asri, ellerinize sağlık, çok teşekkür ediyorum. Tam istediğim gibi çalışıyor. Hayırlı geceler diliyorum.

Her halde B sütunundaki formüllerin 1000 satırına kadar devam etmesinden dolayı sıralamada hata oluyordu.

iki konu vardı;
biri Sayfa1 de sanırım sayı haricinde boşluk içeren bir hücre vardı. Detayına bakmadım.
Bunun için aktarmadan önce sayı olma ve boş olmama zorunluğu ekledim.

İkincisi bu formülde A1:B ve B1 ayarlaması yaptım.
Sheets("Sayfa2").Range("A1:B" & sonsatir).Sort Key1:=[B1], Order1:=xlAscending

 

[ASLAN7410]

Sayın asri, ellerinize sağlık, çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

 

[Asri]

Sayın asri, ellerinize sağlık, çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

Hayırlı geceler.