Sırala

[lovecaroline]

Nasıl sıralama yapabilirim.

 

[Orion1]

Dosyanız ektedir.

Sub sirala59()
Range("A1:B7").Sort key1:=Range("B1"), order1:=xlDescending, _
        key2:=Range("A1"), order2:=xlDescending
MsgBox "Sıralama yapıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[lovecaroline]

İlginiz için teşekkürler. Ama kodla çözmek değil istediğim. Normalde yazdığım şekilde olması gerekiyordu fakat şu an yazılan değerler için "özel sıralama" çalışmıyor. Bunun nedenini bulamadım.

 

[ÖmerBey]

Aşağıdaki kodu dosyanıza uygular mısınız?
Nedenini bilmiyorum ama B1:B4 aralığındaki değerlerin 69,3'e eşit olmadığı gözüküyor.
Bu hücrelerin içine girip entere basmak suretiyle yeniden değer girdiğiniz zaman problem düzeliyor.
İyi çalışmalar...

Sub kod()
For Each hcr In Range("B1:B7")
    If hcr.Value <> 69.3 Then MsgBox hcr.Address
Next
End Sub

 

[lovecaroline]

binlerce değer var. o yüzden tek tek değerleri düzenleyemem. neden böyle olduğunu çözebilirsem belki sorunu da çözebilirim.