Boş Hücrede sıralama yaptırmak

[ferhatgurbuz]

Günaydın Arkadaşlar. Aşağıdaki kod ile F sutunundaki dolu hücreleri sıralatıyorum. Aynı sutunda boş olan hücreleri sıralamak için ne yapabilirim.
kolay gelsin teşekkürler







Sub sayfa()
Sheets("Karara_Çıkanlar").Range("B3:f63").ClearContents
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("Karara_Çıkanlar")
Y = 4
For Each Hucre In shD.Range("f3:f100")
If IsError(Hucre) = True Then: GoTo f1
If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1
shA.Cells(Y, 2) = shD.Cells(Hucre.Row, 2)
shA.Cells(Y, 3) = shD.Cells(Hucre.Row, 3)
shA.Cells(Y, 4) = shD.Cells(Hucre.Row, 4)
shA.Cells(Y, 5) = shD.Cells(Hucre.Row, 5)
shA.Cells(Y, 6) = shD.Cells(Hucre.Row, 6)
shA.Cells(Y, 100) = shD.Cells(Hucre.Row, Hucre.Column)
Y = Y + 1


f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub

 

[ECYavuz]

F sütununda içinde herhangi bir değer olmayan Hücre Satırlarını neye dayanarak sıralatabilirsiniz ki? O hücreler zaten kendi aralarında sıralıdır.
Ama diğer hücreler dolu ise; Örnek olarak...

Sub sirala()
'A:G sütunlarını seçiyoruz C1 hücresini sıralama ölçütü yapıyoruz
'yukarıdan aşşağıya sıralıyoruz(tersi xlDescending)
Range("A:G").Sort key1:=Range("C1"), ORDER1:=xlAscending
End Sub

 

[ferhatgurbuz]

bir veri sayfasından başka veri sayfasına dolu olan hücreleri sıralatıyorum. Yine veri sayfasından e sutunundaki hücreleri boş olan verileri sıralatmak istedim.

şöyle birşey yapsak nasıl olur. Başka bir sutuna e sutunumdaki dolu hücreleri eğer fonksiyonu ile sayıya dönüştürsek. Mesele e5 hücresi dolu ise g5 hücresine 5 yazsın , boş ise g5 hücresine 1 yazsın. Bundan sonrada 5 leri ve 1 leri yukarıdaki kod gibi sıralatmak mümkün mü, Yani süz den farklı olarak.