Bir hücreye yazılan bir yazıda enter tuşlandığında istediğim ek bir yazı eklensin

[mehmetuca]

Merhabalar. A1 sütununda her hücresine yazılacak okul isimlerinde enter tuşuna basıldığında ilkokulu yazısının otomatik eklenmesini iastiyorum. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If InStr(1, Replace(Replace(Target.Value, "i", "İ"), "ı", "I"), "İLKOKULU", vbTextCompare) > 0 Then Exit Sub
    Target.Value = Target.Value & " İLKOKULU"
End Sub

 

[majestic893]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If InStr(1, Replace(Replace(Target.Value, "i", "İ"), "ı", "I"), "İLKOKULU", vbTextCompare) > 0 Then Exit Sub
    Target.Value = Target.Value & " İLKOKULU"
End Sub

korhan ayhan hocam aşagıdaki linkte eger ile ilgili bir soru sordum bakabilirmisniz ...tşkler

http://www.excel.web.tr/f14/excel-eoer-formulu-hk-t158844/sayfa5.html#post866756

 

[mehmetuca]

Korhan Bey kod kullanmadan formülle ya da excel içinde farklı bir ayarla yapılamaz mı? Mesela; a sütünunu seçip hücreleri biçimlendir den sayı bölümünde isteğe uyarlanmış dediğimizde tür kısmına * boşluk 0(sıfır) boşluk "ilkokulu" dersek sadece sayı yazarsak otomatik olarak ilkokulu yazıyor. yazı yazıp enter dediğimizde işlem yapmıyor. yazı yazdığımda da ilkokulu yazısının yazılmasını istiyorum.Teşekkürler.

 

[mehmetuca]

Arkadaşlar lütfen cevap?

 

[mehmetuca]

Değerli arkadaşlar biraz araştırdım ve öğrendim. Hangi sütunda uygulanacaksa o sütun ya da hücreler seçilir. sağ tıkla hücreleri biçimlendirden isteğe uyarlanmış diyoruz. Ordan da tür kısmına @ "İLKOKULU" diyoruz. İyi çalışmalar...