Düşey listeden Yatay Arama

[rabbace]

Arkadaşlar merhaba,

Sütunlarda Sırayla İller, İlçeler listem var bunları her ilin ilçeleri olarak sıralamam gerek. Bunu nasıl yapabilirim?

 

[Ömer BARAN]

Merhaba.

Belgeniz açıkken
-- alt taraftan sayfa adına areyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağ taraftaki boşş alana aşağıdaki kod'u yapıştırın,
-- F5 tuşuna basıp sonucu gözlemleyin.
.

[FONT="Arial Narrow"]Sub İL_İLÇE_LİSTELE()
Range("A:B").ClearContents
Cells(1, 1) = "İLLER": Cells(1, 2) = "İLÇELER"
For il = 5 To 85
If Cells(4, il) = "" Then GoTo 10
    For ilçe = 3 To Cells(50, il).End(3).Row
    sat = Cells(65536, 1).End(3).Row + 1
        Cells(sat, 1) = Cells(2, il)
        Cells(sat, 2) = Cells(ilçe, il)
    Next
10: Next: MsgBox "İL ve İLÇELER listelendi."
End Sub[/FONT]

 

[rabbace]

Merhaba.

Belgeniz açıkken
-- alt taraftan sayfa adına areyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağ taraftaki boşş alana aşağıdaki kod'u yapıştırın,
-- F5 tuşuna basıp sonucu gözlemleyin.
.

[FONT="Arial Narrow"]Sub İL_İLÇE_LİSTELE()
Range("A:B").ClearContents
Cells(1, 1) = "İLLER": Cells(1, 2) = "İLÇELER"
For il = 5 To 85
If Cells(4, il) = "" Then GoTo 10
    For ilçe = 3 To Cells(50, il).End(3).Row
    sat = Cells(65536, 1).End(3).Row + 1
        Cells(sat, 1) = Cells(2, il)
        Cells(sat, 2) = Cells(ilçe, il)
    Next
10: Next: MsgBox "İL ve İLÇELER listelendi."
End Sub[/FONT]

Üstat ilgine teşekkürler, fakat olmadı.
Makro olmadan formülle yapabilir miyiz ?

 

[YUSUF44]

Olmadı demişsiniz ama nasıl olmadı, hiçbir şey mi olmadı, tamamen alakasız bir şey mi oldu, siz nasıl bir sonuç istiyordunuz, nasıl bir şey oldu?

 

[rabbace]

Yusuf bey, il ve ilçeler listelendi diyor sadece.

Tekrar bir dosya ekledim orada doğru anlatabilmişimdir umarım.

Teşekürler.


http://s5.dosya.tc/server/78j7oj/Iller.xlsx.html

 

[rabbace]

E2 hücresine yazdığım şu formülle =İNDİS($B1:$B$959;KAÇINCI(E$2;$A:$A;0);0)
bir şeyler oldu ama aşağıya doğru sürükleyince farklı illerin ilçelerini de yazıyor. Bunu nasıl engellerim?

 

[Ömer BARAN]

Tekrar merhaba, yeni fark ettim.
Denemeden cevap gönderme gibi bir alışkanlığım yok.
Eklediğiniz belgede kod çalıştırıldığında (ilçelerini yazdığınız illerle sınırlı olarak elbette) A sütununa illeri ve B sütununa da ilçeleri listeliyor.
Yeni belgenize baktığımda yanlış anlaşıldığı ortaya çıkıyor.

Yeni belgeniz için, E3 hücresine aşağıdaki formülü uygulayın, sonra;
-- sağa doğru son il sütununa kadar
-- aşağı doğru da 41'inci satıra kadar
kopyalayın.
.

=EĞER(SATIRSAY(E$2:E2)>EĞERSAY($A:$A;E$2);"";İNDİS($B:$B;KAÇINCI(E$2;$A:$A;0)+SATIRSAY(E$2:E2)-1;1))

İlave cevap: il adlarını da formül ile elde etmek istiyorsanız, aşağıdaki formülü E2 hücresine uygulayın ve sağa doğru CG2 hücresine kadar kopyalayın.
.

=İNDİS($A$1:$A$1000;EĞER(SÜTUNSAY($D$2:D2)=1;2;KAÇINCI(D2;$A$1:$A$1000;0)+EĞERSAY($A$1:$A$1000;D2));0)

 

[rabbace]

Ömer bey günaydın,

Tam da istediğim gibi olmuş bu son formül. İlginize çok teşekkür ederim.