Benzer satırları bir araya toplamak

[nanotech3485]

Arkadaşlar merhaba; aşağıdaki gibi binlerce satır adres verisi var. Ben "United States" ibaresinin geçtiği satırları belirleceğim sırada bir arada olmasını istiyorum. "Philippines" geçenleri 2. sırada bir araya toparlamak istiyorum. "Cambodia" geçenleri de 3. sırada bir araya toparlamak istiyorum. Burada geçen ülke isimlerinin hangi önceliğe göre listeneceğini ben belirleyeceğim. Böyle bir sorunu nasıl çözebilirim acaba? Yardımlarınız için çok teşekkür ederim.

81 Mott Street FRNT 2 New York, 10013 United States
Unit A, 60 Primo Cruz San Jose, Mandaluyong 1550 Metro Manila Philippines
#876E0, 128 Phnom Penh 12156 Cambodia
1st Avenue Casmor Subd. Ph 2 Mabiga Mabalacat Pampanga Philippines
953 W Webster Ave Chicago, IL 60614 United States

 

[mehmetuca]

Örnek dosya üzerinde paylaşabilir misiniz ya da biraz daha açıklayabilir misiniz?

 

[nanotech3485]

Örnek dosya üzerinde paylaşabilir misiniz ya da biraz daha açıklayabilir misiniz?

Hocam teşekkür ederim yanıtınız için.

Orijinal satırlar şu şekilde olsun.

81 Mott Street FRNT 2 New York, 10013 United States
Unit A, 60 Primo Cruz San Jose, Mandaluyong 1550 Metro Manila Philippines
#876E0, 128 Phnom Penh 12156 Cambodia
1st Avenue Casmor Subd. Ph 2 Mabiga Mabalacat Pampanga Philippines
953 W Webster Ave Chicago, IL 60614 United States

---

Ben Aynı ülkede olan adresleri bir arada guruplamak istiyorum. Ama bu adresleri gruplarken Ülke isimlerine tek tek öncelik numarası yada sırası belirtebilmeliyim, bu öncelik sırasına göre satırları yeniden sıralamak istiyorum.

Öncelik Sırası: (Satırlarda aranacak kelimeler)
United States - 1
Philippines - 2
Cambodia - 3 olsun. Adreste bu ülke isimleri geçtiğinde bulup sıralamasını istiyorum. Yani kısaca aşağıdaki gibi sıralamasını istiyorum.

81 Mott Street FRNT 2 New York, 10013 United States
953 W Webster Ave Chicago, IL 60614 United States
Unit A, 60 Primo Cruz San Jose, Mandaluyong 1550 Metro Manila Philippines
1st Avenue Casmor Subd. Ph 2 Mabiga Mabalacat Pampanga Philippines
#876E0, 128 Phnom Penh 12156 Cambodia

---

Bu şekilde binlerce dağınık adres var. Dağınık olarak bulunan adresleri hem bir araya getirmiş olacağım hem de sıralarken de istediğim ülkeleri önceliklendirerek sıralamış olacağım.

 

[Korhan Ayhan]

Görseldeki gibi yapabilirsiniz.

DİZİ formüldür.

 

[nanotech3485]

Görseldeki gibi yapabilirsiniz.

DİZİ formüldür.




Ekli dosyayı görüntüle 229327

Korhan Bey teşekkür ederim. Ben bunu uygulayamadım da, size dosyamın aslını göndersem orada uygulamanız mümkün mü acaba? Yalnız yeniden listeleme yapılırken ilgili satır ile birlikte sıralamak mümkün mü? Aksi durumda sadece Adres sütunu sıralanacağı için diğer satırlar sabit kalacak ve bu durumda pek işimize yaramayacaktır.

Excel dosyamın içeriği bu şekilde. Kendimce K ve L sütununda öncelik numarası belirledim ve listemi genişleteceğim. Örnek olması açısından 3 ülke adı girdim. Dosya üzerinde uygulayıp gönderirseniz çok memnun kalacağım. Elinize sağlık teşekkür ederim.

Excel Dosyası: https://dosya.co/hi5gk63gfxum/Ornek-XLS.xlsx.html

 

[Korhan Ayhan]

Sizlerden neden örnek dosya talep edildiğini sanırım daha net anlamışsınızdır.

Zaten sorunuzu çözmek için vaktimi harcadım. Şimdi tekrar asıl dosyanıza uyarlamamı bekliyorsunuz.

 

[nanotech3485]

Sizlerden neden örnek dosya talep edildiğini sanırım daha net anlamışsınızdır.

Zaten sorunuzu çözmek için vaktimi harcadım. Şimdi tekrar asıl dosyanıza uyarlamamı bekliyorsunuz.

Korhan Bey kusura bakmayın haklısınız. Kendim uyarlayabilirim sanmıştım ama yanılmışım. Olsun yardımlarınız için yine de çok teşekkür ederim.

 

[veyselemre]

Sub ozelSiralama()
    With ActiveWorkbook.Worksheets("Sayfa1")
        son = .Cells(Rows.Count, 1).End(3).Row
        With .Sort
            .SortFields.Clear
            .SortFields.Add _
                    Key:=Range("D2:D" & son), _
                    SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
                    "United States,Philippines,Cambodia", _
                    DataOption:=xlSortNormal

            .SetRange Range("A1:H" & son)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

 

[nanotech3485]

Sub ozelSiralama()
    With ActiveWorkbook.Worksheets("Sayfa1")
        son = .Cells(Rows.Count, 1).End(3).Row
        With .Sort
            .SortFields.Clear
            .SortFields.Add _
                    Key:=Range("D2:D" & son), _
                    SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
                    "United States,Philippines,Cambodia", _
                    DataOption:=xlSortNormal

            .SetRange Range("A1:H" & son)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

Hocam çok teşekkür ediyorum. Çalıştı fakat bir sorunum var. D sütununda ilgili Ülke isimlerini göre sıralıyor. Hocam bu belirlediğimiz 3 ülke adını E sütunu içerisinde arayıp sıralayabilir mi? E sütununu adres satırı olduğu için Ülke adı orada geçiyor aslında. Acaba bu ülke isimlerini E Sütununda arayıp sıralayabilir miyiz? Çok teşekkür ediyorum. Elinize sağlık

Ben aşağıdaki satırı

Key:=Range("D2" & son), _

şu şekilde değiştirdim fakat rastgele sıraladı. Key:=Range("E2:E" & son), _

 

[veyselemre]

I sütunu geçici olarak kullanılıp, silinmektedir.

Sub test()
    son = Cells(Rows.Count, 1).End(3).Row
    Range("I2:I" & Rows.Count).ClearContents
    If ActiveSheet.FilterMode Then ActiveSheet.FilterMode = False
    For Each ulke In Array("United States", "Philippines", "Cambodia")
        say = say + 1
        Range("$A$1:$I$" & son).AutoFilter Field:=5, Criteria1:="=*" & ulke & "*"
        Range("I2:I" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeVisible).Value = say
    Next ulke
    Selection.AutoFilter
    Range("A1:I" & son).Sort [I2], , , , , , , xlYes
    Range("I2:I" & Rows.Count).ClearContents
End Sub

 

[mehmetuca]

Farklı bir çözüm:

 

[nanotech3485]

I sütunu geçici olarak kullanılıp, silinmektedir.

Sub test()
    son = Cells(Rows.Count, 1).End(3).Row
    Range("I2:I" & Rows.Count).ClearContents
    If ActiveSheet.FilterMode Then ActiveSheet.FilterMode = False
    For Each ulke In Array("United States", "Philippines", "Cambodia")
        say = say + 1
        Range("$A$1:$I$" & son).AutoFilter Field:=5, Criteria1:="=*" & ulke & "*"
        Range("I2:I" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeVisible).Value = say
    Next ulke
    Selection.AutoFilter
    Range("A1:I" & son).Sort [I2], , , , , , , xlYes
    Range("I2:I" & Rows.Count).ClearContents
End Sub

Hocam çok teşekkür ediyorum. Tam istediğim gibi çalışıyor. Elinize sağlık. Ülke listesine yunanca ve çince karakterler ekleyince ?????? olarak görünüyor.

Mesela Ελλάδα kelimesini nasıl tanımlayabilirim, yada 台灣 kelimesini. Bunları da tanımlayıp sıralayabilirsem çok güzel olacak hocam.

 

[Korhan Ayhan]

Görselini paylaştığım örnek dosyayı ekte paylaşıyorum. Sanırım kendinize uyarlarsınız.

Harici Link (Silinebilir) ; https://dosyam.org/Yyz/Book1.xlsx

 

[nanotech3485]

Hocam elinize sağlık teşekkür ederim.