dolu hücreleri sıralama

[hamza02]

Değerli arkadaşlar aşağıdaki kod ile formül sonucu olan verileri sıralıyorum. Yapmak isteyipte yapamadığım boş hücreleride sıralıyor. boş hücreleri en sona atsın. sadece dolu olan yani veri olan hücreleri küçükten büyüğe doğru sıralasın. bunu aşağıdaki kodları ne şekilde değiştirerek yapabilirim.

Private Sub CommandButton3_Click()

Sayfa1.Range("N2:N250").Copy
Sayfa3.Range("A1").PasteSpecial xlPasteValues
Sayfa3.Range("A1:A250").Sort Sayfa3.Range("A1"), 1

Sayfa1.Range("O2:O250").Copy
Sayfa3.Range("B1").PasteSpecial xlPasteValues
Sayfa3.Range("B1:B250").Sort Sayfa3.Range("B1"), 1

Sayfa2.Range("L15").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Göreceğiniz gibi örnek dosya olmayan sorular genelde cevapsız kalıyor. Küçük bir örnek dosya paylaşırsanız büyük ihtimalle yanıt alabilirsiniz.

 

[ÖmerFaruk]

' A sütunundaki kodlarınızı aşağıdakiyle değiştirin'
' Diğer bölümler içinde benzer kısmı siz yapabilirsiniz'
   
Sayfa1.Range("N2:N250").Copy
Sayfa3.Range("A1").PasteSpecial xlPasteValues
k = 0
    For i = 1 To 250
        If Sayfa3.Range("A" & i) = "" Then Sayfa3.Range("A" & i) = "Değişecek": k = k + 1
    Next i
Sayfa3.Range("A1:A250").Sort Range("A1"), 1
If k > 0 Then Sayfa3.Range("A" & 250 - k + 1, "A250").ClearContents