SIRALAMA SORUNU

[kemalist]

Sıralama yaparken boş satırlar aşağıda kalsın.

 

[Muhammet Okumuş]

Merhaba,

Sub Sırala()
son = Cells(Rows.Count, 1).End(3).Row
For i = 2 To son
If Cells(i, 4) = "" Then Range("A" & i & ":F" & i) = ""
Next
Range("A2:F" & son).Sort Range("D2"), 2
End Sub

kodu deneyiniz.

 

[Necdet]

Merhaba,
Alternatif olsun.

Sub Sirala()

Dim i   As Long

i = Cells(Rows.Count, "A").End(3).Row

Range("A2:F" & i).Sort Key1:=[D1], order1:=xlDescending

End Sub

 

[kemalist]

Teşekkür ederim