Adres verisinden İl kısmını başka hücreye yazdırma

[u.L.a.s]

merhabalar

B sütunum 2. hücreden itibaren adres verisi girdiğim yerdir

Adres verisinin içinde il veriside yazar.

C hücresinede ben o adres hangi ile aitse manuel il girişi yapıyorum

Şunu istiyorum

B sütunundaki hücredeki veri içerisindeki il verisini C ye yazsın

Yani

B2,B3,B4 ..... alt alta adres verisi giriyor olayım. verilerde örnek olarak aşağıdaki gibi olsun

B2 --> jdhfksjhdf mah. ksdjfklsdj sok. no:1 ankara

B3 --> fbdfgdfg mah. dfgdfg sok. no:5 antalya

B4 --> dfvdfvdsv mah. thrt sok. no:12 istanbul

ben yukarıdaki adres verisini girip entera basınca bir alt satıra inince işte B2 deki ankarayı görünce C2 ye "Ankara- 06" yazsın

B3 verisini girdiğimde "antalya" veya "Antalya" veya "ANTALYA" büyük küçük harf ayırt etmeksizin görünce C3 e "Antalya- 07" yazsın

B4 teki adres verisinde "istanbul" veya "İstanbul" veya "İSTANBUL" u görünce C4 e "İstanbul- 34" yazsın

Eğer adres verisinde 81 ilden herhangi birisi yoksa C sütunundaki karşılığındaki hücreye birşey yazmayıp boş geçebilir.

Konu hususunda bilgi ve yardımlarınızı rica ederim

 

[yanginci34]

Örneği incelermisiniz
http://s5.dosya.tc/server4/76g68g/SON_KELIMEYI_ALMAK.xlsx.html

 

[u.L.a.s]

Formüllü örneğinizi inceledim çok güzel bilginize emeğinize sağlık

fakat ben bunun makro halini rica edebilir miyim sizden

 

[işsiz123]

Aşağıdaki kodları Sayfanın kod bölümüne yapıştırınız

Function tersten(dizi)
tersten = StrReverse(dizi)
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("c:c").ClearContents
For i = 1 To Cells(65536, 2).End(xlUp).Row
    a = Split(Cells(i, 2), " ")
   
    Cells(i, 3) = Trim(a(UBound(a)))
Next i
End Sub

 

[u.L.a.s]

benim bu dosyamda "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" subıyla başlayan aşağıdaki gibi bir kod düzeneğim mevcut. acaba bu yüzden gönderdiğiniz kod işlemiyor olabilir mi. boş bir excelde güzel çalışuyor fakat hali hazırdaki makro düzeneklerimin olduğu dosyamda çalışmadı bir değişiklik yapılması gerekiyor sanırım

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

If Target.Column <> 17 Or Target.Cells.Count > 1 Then Exit Sub

On Error GoTo hata

ChDir ("\\dosyayolu\DOSYALAR\" & Target.Text)

ac = Shell("Explorer \\dosyayolu\DOSYALAR\" & Target.Text, 1)

Exit Sub

hata:

MsgBox "Belirtilen klasör bulunamadı.", vbCritical

 

 

'B sütununda bulunan verilerin ilk harflerini büyük yapar

 

End Sub

 

[Ömer BARAN]

Merhaba.

Ekteki belgeyi deneyiniz.
Belgeye buradan erişebilirsiniz.
.

 

[u.L.a.s]

Burada verilen tüm bilgiler için çok çok teşekkür ediyorum. her 3 üde ayrı ayrı isteğe göre kullanma durumu olabilir.

Ömer üstadım sizin ilettiğiniz kodu ben kendim için kullandım ve sorunsuz çalışıyor. emeğinize bilginize sağlık

 

[u.L.a.s]

Üstadım belki bir trim komutuda eklenebilir mi

Adres verisi şöyle birşey olursa "sfsfsdf mah. sdsd sok. antalya "

yani ilden sonra bir boşluk varsa örneğin bu kod eşleştirme yapmıyor. ilin sonunda boşluk yoksa eşleştirmeyi yaparak diğer sütuna il verisini yazabiliyor.