tek sayıları artan şekilde sıralandırma

[alevkübra41]

10
17
21
29
30
32
33
37
50
bu sayılardan tek sayıları artan şkilde nasıl sıralandırabilirim acaba??

 

[Orion1]

verileriniz a1 ile a10 arasında olduğu kabul edilmiş olup veriler artan sıra ile b1:B10 aralığına aktarıldı.

Sub artansira59()
Dim i As Long, sat As Long
Range("B1:B10").ClearContents
sat = 1
For i = 1 To 10
    If Cells(i, "A").Value Mod 2 = 1 Then
        Cells(sat, "B").Value = Cells(i, "A").Value
        sat = sat + 1
    End If
Next i
Range("B1:B" & sat - 1).Sort Range("B1")
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[alevkübra41]

verileriniz a1 ile a10 arasında olduğu kabul edilmiş olup veriler artan sıra ile b1:b10 aralığına aktarıldı.

sub artansira59()
dim i as long, sat as long
range("b1:b10").clearcontents
sat = 1
for i = 1 to 10
    ıf cells(i, "a").value mod 2 = 1 then
        cells(sat, "b").value = cells(i, "a").value
        sat = sat + 1
    end ıf
next i
range("b1:b" & sat - 1).sort range("b1")
msgbox "işlem tamamlandı." & vblf & "evrengizlen@hotmail.com"
end sub

bana excel formülü lazım ama( yani nasıl yapacağımı bilmiyorum

 

[Merhum İdris SERDAR]

.

Nasıl bir sonuç bekliyorsunuz?

Zaten yerlerinde sıralı durumda.


.

 

[alevkübra41]

.

Nasıl bir sonuç bekliyorsunuz?

Zaten yerlerinde sıralı durumda.


.

Artan sıralama ne demek onu bile bilmiyorm( o yüzden yazılan formülleri falan hiç bişey anlamadım yani

 

[alevkübra41]

hoca artan olarak sıralayınız yazmış yani bende anlamadım açıkcası(

 

[Korhan Ayhan]

Aşağıdaki dizi formülünü deneyiniz.

CTRL+SHIFT+ENTER tuşlarına basarak formül girişini tamamlayınız.

=İNDİS($A$1:$A$9;KÜÇÜK(EĞER(MOD($A$1:$A$9;2)=1;SATIR($A$1:$A$9));SATIRSAY($C$1:C1)))