İlçe ve Köy Nakliye Fiyat Çizelgesi Hazırlama

[emirname]

Merhaba arkadaşlar.

Açıklama: Rize ili içi nakliye yapmaktayız. İlçe ve köy isimlerini liste halinde exelde mevcut.

İstenen: Bu ilçe mahalle köy vs. isimlerini kombinasyon yaparak nasıl sıralarım. (Tekrar olmadan)

Örn: pazarköy - muradiye
pazarköy - islampaşa
muradiye - islampaşa
muradiye - pazarköy (zaten mevcut)

Önerilerinizi bekliyorum. Exel'de hangi konulara ya da yardımcı videolara bakmam gerektiğini de söyleyebilirsiniz.

Şimdiden teşekkürler.

 

[muratgunay48]

Keşke örnek bir dosya koysaydınız. Dolaylı liste mi istiyorsunuz. Eğer önceden yazılmış liste ise "veri" bölümünden, aynı olanları silebilirsiniz.

Şöyle bir liste mi.

 

[ÖmerBey]

Merhaba,
1. Bir sütuna bu mahalle - köy isimlerini tekrarsız olarak giriniz.
2. Girdiğiniz bu liste aralığını aşağıdaki koddaki mavi alana yazınız.
3. Listenizin oluşmasını istediğiniz alanı aşağıdaki koddaki kırmızı alana giriniz.
4. Kodu çalıştırınız...

Sub kod()
Dim veri As Range, yaz As Range
Dim dz As Variant
Dim kom()
Dim a As Integer, b As Integer, x As Integer
Set veri = Range("A1:A16") 'İlçe-mahalle-köy listesinin alınacağı alan
Set yaz = Range("B1") 'Yeni listenin yazılacağı alan
dz = veri
For a = LBound(dz) To UBound(dz) - 1
    For b = a + 1 To UBound(dz)
        ReDim Preserve kom(x)
        kom(x) = dz(a, 1) & " - " & dz(b, 1)
        x = x + 1
    Next
Next
yaz.Resize(UBound(kom) + 1).Value = Application.Transpose(kom)
End Sub