Çözüldü Kesme işaretinden sonraki harfleri makro ile küçük yapma

[ASLAN7410]

Merhaba.

Ekte gönderdiğim excel dosyamda A-D-G-J sütununda kesme işareti ile yazılı bilgiler mevcut.

Sayfa1'deki aşağıdaki kod gayet güzel çalışıyor ancak hücreden çıkınca bu şekilde yapıyor (Ali'Nin Arabası, Mart 9'U Soğuk)
Sayfaa2'deki kod da yazımdüzeni olmuyor.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Daha önceden aşağıdaki linkte formül ile çözüm almıştım, konu kapatıldığı için tekrar açtım, formül çözümünü makro ile yapabilir miyiz?

Çözüldü - Kesme işaretinden sonraki harfleri formülle küçük yapma

Kesme işaretinden sonraki harfin küçük harf olarak yazılmasını istiyorum, yardımcı olurmusunuz?

 

[murat_8181]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ASLAN7410]

Sayın Murat Bey, ilginiz için çok teşekkür ediyorum, kod kelimenin hepsini küçük harf yapıyor.
Kelimelerin baş harfinin de büyük olmasını yani yazımdüzeni formülü gibi çalışmasını da istemiştim.
Örneğin Mart 9'u Soğuk, Ali'nin Arabası gibi.

 

[murat_8181]

Sayın Murat Bey, ilginiz için çok teşekkür ediyorum, kod kelimenin hepsini küçük harf yapıyor.
Kelimelerin baş harfinin de büyük olmasını yani yazımdüzeni formülü gibi çalışmasını da istemiştim.
Örneğin Mart 9'u Soğuk, Ali'nin Arabası gibi.

Yani siz kelimelerin ilk harfini küçük harf yazsanız da büyük harfe çevirmesini mi istiyorsunuz

 

[ASLAN7410]

Aynen Murat Bey.

 

[murat_8181]

Aynen Murat Bey.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Ümit Bakacak]

Buyurun:

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Kod kesme işaretine bakmaz eğer kesme işaretinden sonraki büyük ise büyük olur küçükse küçük.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ASLAN7410]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Sayın Murat Bey, ilginiz için çok teşekkür ediyorum.

Ayın 11'İnde Hava Güzel, Mehmet'İn Oğlu, Mustafa'nin Oğlu

Bugün Hava'nin Güzel Olacaği Söylenİyor

Kesme işaretinden sonra İ harfini büyük yapıyor, yazıda da ı harfini i yapıyor.

 

[ASLAN7410]

Buyurun:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A30,D230,G2:G30,J2:J30]) Is Nothing Then
Application.EnableEvents = False
Dim hcr1 As Range, metin1 As String
For Each hcr1 In Target
metin1 = WorksheetFunction.Trim(hcr1.Value)
metin1 = Replace(metin1, "'", "abcdefgh", , , 1)
metin1 = WorksheetFunction.Proper(metin1)
metin1 = Replace(metin1, "abcdefgh", "'", , , 1)
hcr1.Value = metin1
Next hcr1
Application.EnableEvents = True
End If
End Sub

Sayın ubak Bey, ellerinize sağlık çok teşekkür ediyorum sorunsuz çalışıyor.

 

[ASLAN7410]

Kod kesme işaretine bakmaz eğer kesme işaretinden sonraki büyük ise büyük olur küçükse küçük.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Sayın Refaz, ilginiz için çok teşekkür ediyorum, cümleyi büyük harf yazdığımda hiç bir şey yapmıyor.
Örneğin AYIN 11'İNDE HAVA GÜZEL bu şekilde yazıp hücreden çıkınca hiç bir şey yapmıyor.
Cümleyi küçük harf ile yazdığımda herhangi bir sorun yok.

 

[murat_8181]

Sayın Murat Bey, ilginiz için çok teşekkür ediyorum.

Ayın 11'İnde Hava Güzel, Mehmet'İn Oğlu, Mustafa'nin Oğlu

Bugün Hava'nin Güzel Olacaği Söylenİyor

Kesme işaretinden sonra İ harfini büyük yapıyor, yazıda da ı harfini i yapıyor.

ilginç belirtmiş olduğunuz hususlar bende olmuyor. sorununuz çözülmüş kolay gelsin

 

[Refaz]

Sayın Refaz, ilginiz için çok teşekkür ediyorum, cümleyi büyük harf yazdığımda hiç bir şey yapmıyor.

Rica ederim yazmıştım dediğinizi abey.Kesme işaretinden sonra heralde büyük harf yazımaz sanıyorum.

 

[ASLAN7410]

Cevap veren herkese çok teşekkür ediyorum.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[ASLAN7410]

Sayın Refaz, tekrar uğraşmışsızın çok teşekkür ediyorum, bu kod da tam istediğim gibi çalışıyor.

Hayırlı iftarlar.

 

[Refaz]

Rica ederim abey,sadece biraz deştirdim
Hayırlı iftarlar.