• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

formülle sıralama hakkında

Bence; örnek belgenizi burası veya burası gibi bir paylaşım sitesine yükleyip, oradan alacağınız belgeye erişim bağlantı adresini burada paylaşın ki kesin ve net çözüm önerisinde bulunabilelim, afaki soruya verilen cevapta sorun çıkması kuvvetle muhtemel.
 
Maksatınıza göre aşağıdaki formüllerden birini kullanabilirsiniz.
-- 126'ncı satırdaki verileri büyüklük sırasına göre artan olarak dizmek için;
Kod:
=KÜÇÜK(DOLAYLI(("$B$126:"&ADRES(126;(EĞERSAY(126:126;"<>"));1)));SÜTUNSAY($A$152:A152))
-- 126'ncı satırdaki verileri tersten dizmek için;
Kod:
=İNDİS($B$126:$GQ$126;1;199-SÜTUNSAY($A$153:A153))
 
Maksatınıza göre aşağıdaki formüllerden birini kullanabilirsiniz.
-- 126'ncı satırdaki verileri büyüklük sırasına göre artan olarak dizmek için;
Kod:
=KÜÇÜK(DOLAYLI(("$B$126:"&ADRES(126;(EĞERSAY(126:126;"<>"));1)));SÜTUNSAY($A$152:A152))
-- 126'ncı satırdaki verileri tersten dizmek için;
Kod:
=İNDİS($B$126:$GQ$126;1;199-SÜTUNSAY($A$153:A153))

Sayın Ömer Baran bey, tersten dizmek gibi bir durumu anlatmak istememiştim. İstediğim en küçük değer en büyük değer olacak..
 
Sayın Ömer Baran bey, tersten dizmek gibi bir durumu anlatmak istememiştim. İstediğim en küçük değer en büyük değer olacak..

Sayın Ömer Barab Bey,
Aynı excel sayfası içindeki hücrelerde;
Misal;

a1=-1, b1=10, c1=2, d1=6 ....
a2=10, b2=-1, c2=5, d2=2 .... olması gerekiyor.

Sıralamanın mantığı şu sayın arkadaşlar sayı serisini tersine çevirmek ve alt alta ilgili hücrelerin altına yazdırmak yani en yüksek olan değer en küçük değer olacak.
 
126'ncı satırdaki veriler sırasıyla aşağıdaki gibi;
0,20 0,23 1,34 0,17 0,17 0,17 0,17 0,17 0,17
kendi sütununda 152'nci satıra ne yazılması lazım (yukarıdaki 9 değer için sırasıyla belirtiniz) ?
 
Sayın Ömer Baran bey,
0,2 0,23 1,34 0,17 0,17 0,17 0,17 0,17 0,17
0,23 0,2 0,17 1,34 1,34 1,34 1,34 1,34 1,34
şeklinde olacak. Teşekkür ederim.
 
Hakikaten anlamış değilim.

Verdiğiniz cevap, sayı serisinin tersine çevrilmesi değil ki, yeni değer yazma işlemi.
Şöyleki; 126'ncı satırda bir adet 1,34 var, olmasını istediğinizi söylediğiniz kısımda ise daha fazla sayıda, 126 satırda çok sayıda 0,17 varken yazdığınız cevapta 1 adet var.

Peki 126'ncı satırdaki veriler aşağıdaki şekilde olsaydı ne olacaktı?
0,20 0,23 1,34 0,17 0,17 0,20 0,17 0,24 0,17
Anlamayınca çözüm de gecikiyor doğal olarak.
 
Sayın Ömer Baran bey, hesaplama süreci devam ettiği için aynı sayılar var hesaplama bittiğinde aynı rakamların olması olası değil. Yani hepsi farklı olacak. Buna yönelik çözümü de yine siz yapmıştınız makro kodla ancak iki farklı sayfada çalışıyordu. Teşekkür ederim.
 
Sayın Ömer Baran bey, hesaplama süreci devam ettiği için aynı sayılar var hesaplama bittiğinde aynı rakamların olması olası değil. Yani hepsi farklı olacak. Buna yönelik çözümü de yine siz yapmıştınız makro kodla ancak iki farklı sayfada çalışıyordu. Teşekkür ederim.

Kusura bakmayınız, çok sayıda konuya cevap yazdığımdan hatırlayamadım doğrusu, iyi günler dilerim.
 
Sayın Ömer Baran bey, hesaplama süreci devam ettiği için aynı sayılar var hesaplama bittiğinde aynı rakamların olması olası değil. Yani hepsi farklı olacak. Buna yönelik çözümü de yine siz yapmıştınız makro kodla ancak iki farklı sayfada çalışıyordu.Ancak linkte de görüleceği üzere aynı sayfa içinde formülle ya da makro kodları yapmam gerekiyor, ama uyarlayamadım. O yüzden yardımınıza ihtiyacım var.Hatırlatma babında makro kodunuz şöyleydi:
Sub SayilariGetir()
s = Sayfa1.Rows(1).End(xlToRight).Column
For i = 1 To s
Sayfa1.Cells(2, i) = WorksheetFunction.VLookup(Sayfa1.Cells(1, i), Sayfa2.Columns("a:b"), 2, False)
Next
End Sub

Sub SayilariBul()
Sayfa2.[a:b].Clear
Sayfa1.Select
s = Rows(1).End(xlToRight).Column
Range(Cells(1, 1), Cells(1, s)).Select
Selection.Copy
Sayfa2.Select
[a1].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ActiveSheet.Columns(1).RemoveDuplicates Columns:=1, Header:=xlNo
Columns(1).Sort key1:=[a1], order1:=xlDescending
x = [a65536].End(3).Row
Range("b1:b" & x) = Range("a1:a" & x).Value
Range("b1:b" & x).Sort key1:=[b1], order1:=xlAscending
Sayfa1.Select
End Sub
 
Son düzenleme:
Geri
Üst