Makro İle Dolu Hücreleri Sıralama

[CRAYZLOVEIS]

Üstadlar ekteki dosyada 20 sütunlu ve 200 satırlı bir dosya var. Bu dosyada sıralama yapmak istiyorum. Excelde normal sıralama yapdığım zaman büyükten küçüğe yada küçükten büyüğe doğru sıralıyor. Acaba sadece dolu olan satırları üstte alarak sıralama yapabilirmiyiz.

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu deneyiniz....

Sub boshucresil()
Range("A8:T208").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[CRAYZLOVEIS]

Üstadım verdiğin kodu denedim fakat bu şekilde boş hücreleri silerek üste getiriyor. Buda sayfa düzen ve görüntüsünün bozulmasına neden oluyor. Acaba diğer türlü yani sadece dolu hücreleri üste alacak şekilde yapamazyımız. Çünkü 200 satırın altında daha başka yazılar ve formüllerde olacak. Şimdiden tşk.

 

[Orion1]

Sıralama yapıldığı zaman zaten boş hücreler en alta gider.

 

[Orion1]

Kod aşağıda.
Yalnız sıralamayapmadan önce Formüllerinizdeki adresleri mutlak yapın(Başına $ koyun)

Sub sirala()
Dim i As Byte
Application.ScreenUpdating = False
For i = 1 To 10
    Range(Cells(8, i), Cells(65536, i)).Sort Cells(8, i)
Next
Application.ScreenUpdating = True
MsgBox "Sıralama Yapıldı..!!"
End Sub

 

[CRAYZLOVEIS]

Sıralama yapıldığı zaman zaten boş hücreler en alta gider.

Üstad tamam boş hücre alta gider fakat ilk kodu eklersem hücreleri sildiği için kayma oluyor. İkinci kod olacak gibi fakat $ işaretini formüllerin neresine ekleyeceğimi anlamadım. Ayrıca makroyu çalıştığınca CODE EXECUTION HAS BEEN INTERRUPTED hatası veriyor. Ayrıca sayfa korumalı olursa hangi kodu eklememiz gerekli.. Tşk..

 

[Orion1]

Dosya bende hata vermedi.
Formüldeki hücre adresini Mutlak yapmak için başlarına $ işareti koyun.Örnek : $A$5

 

[CRAYZLOVEIS]

Ok üstad tekrar deneyim. Tşk...