A Sütunundaki veriye bakarak C sütununu düzenleme (İl / İlçe Listesi)

[tefon]

Değerli arkadaşlar merhaba,

Elimde il ve ilçelerin bulunduğu, nüfus il müdürlüğünden indirdiğim bir excel dosyası bulunmakta.

A Sütununda iller, C sütununda ise o ile bağlı ilçeler yer alıyor. Örnek dosya linki : http://bit.ly/1YgKj3M

Yapmak istediğim ise, tekrar eden il isimlerini silerek, ilçeleri de o ilin bulunduğu satıra mümkünse alfabetik sıraya göre her ilçeden sonra 1 sütun boşluk bırakarak kaydırmak. Yapmak istediğim örnek dosya linki : http://bit.ly/1oFakO4

Bu konuda yardımlarınıza ihtiyacım var.

Şimdiden emeğinize ve yüreğinize sağlık. Teşekkür ederim.

 

[PLİNT]

Merhaba
Ek dosyayı inceleyiniz.
http://s6.dosya.tc/server6/puwhd8/IL_ILCE_LISTESI.xls.html

veya aynı sayfada isterseniz

Private Sub CommandButton1_Click()
a = Cells(Rows.Count, 1).End(3).Row
Range("A2:C" & a).Sort Key1:=Cells(2, 1), Order1:=xlAscending
For b = 2 To a
c = WorksheetFunction.CountIf(Range("A2:A" & a), Cells(b, 1))
Range("A" & b & ":C" & b + c - 1).Sort Key1:=Cells(b, "C"), Order1:=xlAscending
f = 1
For e = b To b + c - 1
f = f + 2
Cells(b, f) = Cells(e, "C")
Next
Range("A" & b + 1 & ":C" & b + c - 1) = ""
b = b + c - 1
Next
[A1:B1] = ""
Range("A1:A" & a).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[tefon]

Merhaba
Ek dosyayı inceleyiniz.
http://s6.dosya.tc/server6/puwhd8/IL_ILCE_LISTESI.xls.html

veya aynı sayfada isterseniz

Private Sub CommandButton1_Click()
a = Cells(Rows.Count, 1).End(3).Row
Range("A2:C" & a).Sort Key1:=Cells(2, 1), Order1:=xlAscending
For b = 2 To a
c = WorksheetFunction.CountIf(Range("A2:A" & a), Cells(b, 1))
Range("A" & b & ":C" & b + c - 1).Sort Key1:=Cells(b, "C"), Order1:=xlAscending
f = 1
For e = b To b + c - 1
f = f + 2
Cells(b, f) = Cells(e, "C")
Next
Range("A" & b + 1 & ":C" & b + c - 1) = ""
b = b + c - 1
Next
[A1:B1] = ""
Range("A1:A" & a).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Emeğiniz ve yardımınız için çok teşekkür ederim. Tam olarak istediğim şekilde oldu.

 

[endexci]

İl İlçe ayırımı

Merhabalar Değerli arkadaşlar

excel.web.tr üzerinden bulduklarımla birazda kendim birşeyler katarak bir userform hazırladım fakat tabloda il ilçe ayırımını yapamadım ekli tabloda iller açılıyor ama ilçeler açılımı yapamadım illerin açılımınıda comboboxın rowsource na excelde tanımladığım isimi yazarak yaptırdım sanırım hatalı oldu benim istediğim Tanimlar sayfasında ı,j,k,l,m sütununda bulunan iller ve ilçeleri listelemesini istiyorum yardımlarınız için şimdiden teşekkür ederim