Başlığın sonuna takı getirmek

[Mdemir63]

Selamlar,

Arkadaşlar dosyamda değişik başlıklarım var. Bu başlıklara diğer sayfaya aktarırken uyacak şekide NE veya NA takısı nasıl getirebilirim?

Saygılar

 

[mesudiye_052]

=BAŞLIK!A1&ARA(SAĞDAN(BAŞLIK!A1;1);{"ı";"o";"u";"i";"ö";"ü"};{"'NA";"'NA";"'NA";"'NE";"'NE";"'NE"})

 

[Necdet]

Sayın komutan63,

Merhaba,

Aşağıdaki örnek dosyayı kendi dosyanıza uyarlamanız olası olabilir mi?.

Örnek dosyada i eki ekleniyor.

 

[Mahmut Bayram]

Bir şeyler yapmaya çalıştım sanırım nasıl yapılabileceği hakkında bir kanaat oluşmuştur.

 

[Mdemir63]

Sn:Mesudiye52, Sn:Necdet Abi, Sn: Mahmut Hocam
Ellerinize sağlık, Bence üç ayrı seçenek çok teşekkürler sağolun.

Saygılar sunarım

 

[Mdemir63]

Tekrar merhabalar,
Diyelim ki; Ankara Eğitim İşleri Müdürlüğü ya da Keçiören Askerlik Şubesi Başkanlığı Ben bu başlıklardan sadece eğitim işleri müdürlüğü veya Askerlik Şubesi Başkanlığı kısımlarını alarak takı getirmek istersem nasıl yapabilirim.

Saygılar

 

[altanson]

Tekrar merhabalar,
Diyelim ki; Ankara Eğitim İşleri Müdürlüğü ya da Keçiören Askerlik Şubesi Başkanlığı Ben bu başlıklardan sadece eğitim işleri müdürlüğü veya Askerlik Şubesi Başkanlığı kısımlarını alarak takı getirmek istersem nasıl yapabilirim.

Saygılar

aşağıdaki formülü dener misiniz?

=PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1))&ARA(SAĞDAN(A1;1);{"ı";"o";"u";"i ";"ö";"ü"};{"'NA";"'NA";"'NA";"'NE";"'NE";"'NE "})

ek: biraz uzun ve fazladan bilgi olacak ama eğer ilk iki kelimeden sonrasını almak isterseniz aşağıdaki formülü kullanabilirsiniz.

=PARÇAAL(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1));BUL(" ";PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1)))+1;UZUNLUK(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1))))&ARA(SAĞDAN(A1;1);{"ı";"o";"u";"i ";"ö";"ü"};{"'NA";"'NA";"'NA";"'NE";"'NE";"'NE "})

ek 2: işinize yarayacağını zannetmiyorum ama başlamışken hızımı alamadım sanırım.

Üçüncü kelimeden sonrasını almak isterseniz aşağıdaki formülü kullanabilirsiniz.

not: kelime almanın mutlaka daha kısa bir yolu vardır ama ben ancak böyle yapabildim.

=PARÇAAL(PARÇAAL(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1));BUL(" ";PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1)))+1;UZUNLUK(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1))));BUL(" ";PARÇAAL(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1));BUL(" ";PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1)))+1;UZUNLUK(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1)))))+1;UZUNLUK(PARÇAAL(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1));BUL(" ";PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1)))+1;UZUNLUK(PARÇAAL(A1;BUL(" ";A1)+1;UZUNLUK(A1))))))&ARA(SAĞDAN(A1;1);{"ı";"o";"u";"i ";"ö";"ü"};{"'NA";"'NA";"'NA";"'NE";"'NE";"'NE "})

 

[Mdemir63]

Sn: Altanson

Çok teşekkür ederim.

Saygılar

 

[Seyit Tiken]

Bende, soruyu anladığım kadarıyla bir makro hazırladım. Ne derece işe yarayacağını bilmiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
If Right(Target, 1) = "Ü" Then Target = Target & "NE"
If Right(Target, 1) = "I" Then Target = Target & "NA"
End Sub

Not : Yazılan başlık(kurum başlığ&#305 sağdan "Ü" harfiyle bitiyorsa, ENTER'den sonra "NE" veya "NA" ekini otomatik olarak alıyor. Örnek Olarak : .........MÜDÜRLÜĞÜ şeklinde olan bir başlık, ENTER'den sonra ............MÜDÜRLÜĞÜNE dönüşür. Yukarıdaki kod bunu gerçekleştiriyor.

 

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyada anlatmaya çalıştım. Dosyadaki fonksiyonlarda bir hata yaptığımı düşünüyorum. Ama yaptığım hatayı bulamıyorum.

Saygılar

 

[Necdet]

Sayın altanson'un fonksiyonunu kısaltarsak:

=KIRP(A1) & "'" & ARA(SAĞDAN(KIRP(A1);1);{"ı"\"o"\"u"\"i"\"ö"\"ü"};{"na"\"na"\"na"\"ne"\"ne"\"ne"})
 
=TRIM(A1) & "'" & LOOKUP(RIGHT(TRIM(A1);1);{"ı"\"o"\"u"\"i"\"ö"\"ü"};{"na"\"na"\"na"\"ne"\"ne"\"ne"})

 

[Mdemir63]

Necdet abi teşekkürler kısaltmışsınız formülü, Ancak gönderdiğim dosyada benim yapmaya çalıştığım formüller de problem olduğunu düşünüyorum. Bir zahmet bakabilirmisiniz?
Saygılar

 

[Necdet]

Merhaba Komutanım,

Mesajı gönderdikten sonra gördüm, buyrunuz dosya ekte.

 

[Ali]

Necdet Bey'in verdiği formülün başka bir uygulaması

 

[Mdemir63]

Necdet Abi Ali hocam teşekkürler istediğim bu ancak şu kesme işaretini kaldırmak istiyorum

Saygılar

 

[Mahmut Bayram]

Galiba Necdet beyin formülünün bu şekli işinizi görecektir.
=KIRP(A1) & "" & ARA(SAĞDAN(KIRP(A1);1);{"ı"\"o"\"u"\"i"\"ö"\"ü"};{"na"\"na"\"na"\"ne"\"ne"\"ne"})
"" bunun arasında ' tek tırnak vardı kaldırdım.
Kolay gelsin.

 

[Mdemir63]

Mahmut hocam görmedim tırnak işaretinin arasındaymış. Özür dilerim. Emeği geçen tüm arkadaşlara teşekkürler

Saygılar sunarım