• DİKKAT

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

Grup grup sıralama

K

krizantem_kasimpati

Katılım
22 Ocak 2014
Mesajlar
62
Excel Vers. ve Dili
microsoft office 2010 pro
Arkadaşlar herkese merhaba!

İhtiyacım olan bilgi,
Örneğin ;
A sütununda , 2-5,7-10 ve 12-15 satırları arasında kendi içlerinde nasıl sıralama yapabilirim? Şimdiden teşekkürler..
 
Merhaba,

Sub Sırala()
Range("A2:A5").Sort Range("A2"), xlDescending
Range("A7:A10").Sort Range("A7"), xlDescending
Range("A12:A15").Sort Range("A12"), xlDescending
End Sub

Kodu deneyiniz.
 
Teşekkürler.

Aslında elimdeki sayfa toplamda 4350 satır ve 5 sütundan oluşmakta.Bu 4350 satır gruplandırılmış.Kimi grup 5 , kimi gurup 12 satır.Yani grup satır sayıları farklı farklı.Her grup arasında grup ile ilgili bir bilgi satırı var.Şimdi ben bütün bu grupları kendi içinde 5.sütundaki bilgiler doğrultusunda ve bilgi satırları sıra numaraları değişmeyecek şekilde nasıl sıralarım. Saygılarımla...
 
Dosyanıza göre kodları genişletip yazabilirsiniz.
 
Bütün grupların ilk ve son satırlarını tespit etmem mi gerekiyor.Bunun kısayolu var mıdır.Birde sıralamayı küçükten büyüğe doğru yapmak için ne yapmalıyım.Kod yazılımlarında deneyimim yok.Teşekkür ederim..
 
Koddaki , xlDescending kısmı silerseniz küçükten büyüğe sıralar. Dosyanızı ekleyin eğer kısa yol bulursak çözmeye çalışırız.
 
http://www.dosya.tc/server23/xiHfOW/ORNEK_22012014.xls.html

Dosyayı ekledim. "MODEL" yazılı hücreler (her model diğer modele kadar bir grubu oluşturmakta) arasındakileri genişletilmiş şekilde küçükten büyüğe doğru sıralayıp ve sonrasında "1" den başlayacak şekilde sıra numarası verebilecek bir formül bir macro yada pratik bir yol lütfen.Teşekkürler..
 
"E" sütununda, "MODEL" ler arasındakiler küçükten büyüğe doğru sıralandırıldıktan sonra "1" ile başlayacak şekilde numaralandırılacak.Bu işlemler genişletilmiş olarak yapılacak ve bilgi satırlarının(MODEL yazan satırlar) yeri değişmeyecek.Üstad iimdiden çok teşekkür ederim..
 
Nasıl numara vereceğini ifade etmemişsiniz.
Sadece sıralama yapar.
Sub Sırala()
Application.ScreenUpdating = False
Range("G:G") = ""
x = Cells(Rows.Count, 5).End(3).Row
For i = 1 To x

alt = Cells(Rows.Count, 7).End(3).Row + 1
If Cells(i, 5) = "MODEL" Then Cells(alt, 7) = i + 1

Next
alt = Cells(Rows.Count, 7).End(3).Row + 1
Cells(alt, 7) = Cells(Rows.Count, 5).End(3).Row


x = Cells(Rows.Count, 7).End(3).Row - 1
For i = 2 To x
a = Cells(i, 7)
b = Cells(i + 1, 7) - 2
Range(Cells(a, 2), Cells(b, 5)).Sort Range("E" & a)
Next
Range("G:G") = ""
End Sub
Genişletmek için tıkla ...
 
Elimde o kadar çok böyle liste varki sayende 1 haftalık işim 1 güne indi.Allah razı olsun.
Peki üstad , şimdi bu gruplar sıralandı (E sütununa göre) ve kimi 15 den başlıyor kimisi 19 dan.Bunları 1 den nasıl başlatabilirim? Vallahi bu benim 1 haftalık işimi 1 saate indirir.Çok teşekkürler...
 
Her model yazısından sonra mı 1 den başlayacak? E sütunundaki rakamların değişmesini mi istiyorsunuz?
 
Merhaba,
Sub Sırala()
Application.ScreenUpdating = False
Range("G:G") = ""
x = Cells(Rows.Count, 5).End(3).Row
For i = 1 To x

alt = Cells(Rows.Count, 7).End(3).Row + 1
If Cells(i, 5) = "MODEL" Then Cells(alt, 7) = i + 1

Next
alt = Cells(Rows.Count, 7).End(3).Row + 1
Cells(alt, 7) = Cells(Rows.Count, 5).End(3).Row


x = Cells(Rows.Count, 7).End(3).Row - 1
For i = 2 To x
a = Cells(i, 7)
b = Cells(i + 1, 7) - 2
Range(Cells(a, 2), Cells(b, 5)).Sort Range("E" & a)
Next
Range("G:G") = ""

son = Cells(Rows.Count, 5).End(3).Row
Range("F1") = "MODEL"
Range("F2:F" & son) = "=IF(E2=""MODEL"",""MODEL"",MAX(F1:F1)+1)"
Range("E2:E" & son) = Range("F2:F" & son).Value

Range("F:F") = ""
End Sub
Genişletmek için tıkla ...
Kodu deneyiniz.
 
Süpersin üstad sağol.

Aslında bu eklediğim dosya bir grafik programının ham dosyası.Bu şekilde tam 75 km.lik bir karayolunun her 10 m. de bir cross-section dataları sıralanmış olacak.Eklediğim dosyadaki her grup bu 10 m. deki dataları gösteriyor.

Bu sabah da bu her gruptaki dataların "Z" değerlerinin(yükseklik değerleri) aritmetik ortalamasının alınıp güzergah boyunca yaklaşık güzergah düşey profilinin çıkarılması mevzusu gündeme geldi.Bu bahsettiğim grafik programında yapılıyor ama uzun sürüyor hemde ispatı karışık.

Şimdi üstad eğer sakıncası yoksa senden son isteğim , bu eklediğim örnek dosyada "D" sütunundaki değerler bahsi geçen yükseklik değerlerinin oluğu sütun.Bütün gruplarda bu değerlerin aritmetik ortalamasını alıp bu grupları tek satıra indirgeyebilirmiyiz?(grup bilgi satırı ve data satırı olmak üzere her grup toplamda iki satırdan oluşacak.) Dolayısı ile her gruptaki datalar ortalama yükseklik değerini vermiş olacak.Hiç olmazsa bu ortalama değerleri farklı bir sütunda gösterebilirmiyiz? Emeğine şimdiden teşekkür ederim.
 
Siz olmasını istediğinizi dosya üzerinde gösteriniz.
 
http://s3.dosya.tc/server17/1EbQVq/ORNEK_24012014-1.xls.html

"D" sütunundaki değerlerin(sarı renkli) aritmetik ortalaması alınıp tek satıra indirgenecek.Ben orijinalinin sağ tarafında işlemden sonraki son halini manuel olarak yazdım.Burda "C" ve "E" sütunundakilerin değeri önemli değil.Onların değeri "0" olabilir.Yalnız kırmızı renklendirdiğim grup bilgi satırları değişmemeli.Saygılar üstad..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst