Hücre Baş Harfleri Küçültürken Yazı Rengini Koruma

[Engineerist34]

Merhabalar,
Sözlük olarak kullandığımız excel dosyasının bir kısmı aşağıda görüldüğü gibidir.

P sütünunda 10.000 üzerinde kelime var. Baş harfleri küçük yapmaya kalktığımda hücredeki kelime de siyah renge dönüşüyor. Yapmak istediklerim tam olarak şunlar.

• P sütünundaki kelimelerin Baş harfleri küçülsün ama yazı rengi ve dolgu rengi değişmesin.
• Sütündaki hücrelerde bulunan nokta (.) işaretleri silinsin.
• Küçük harfe dönüştürdüğümüz kelimelerin sadece baş harfleri kırmızı olsun ( Kırmızı olanlar zaten kırmızı kalacağı için, kod tüm hücreleri kapsayabilir

Şimdiden herkese çok teşekkür ederim.

Saygılarımla

 

[alicimri]

Dosyanızı yedekleyip aşağıdaki makroyu deneyin.

Sub Makro1()
For i = 1 To Cells(Rows.Count, "P").End(3).Row
Range("P" & i).Value = Replace(Range("P" & i), ".", "")
Range("P" & i).Characters(1, 1).Font.Color = -16776961
If Range("P" & i).Characters(1, 1).Text = "İ" Then
Range("P" & i).Characters(1, 1).Text = Replace(Range("P" & i).Characters(1, 1).Text, Range("P" & i).Characters(1, 1).Text, "i")
ElseIf Range("P" & i).Characters(1, 1).Text = "I" Then
Range("P" & i).Characters(1, 1).Text = Replace(Range("P" & i).Characters(1, 1).Text, Range("P" & i).Characters(1, 1).Text, "ı")
Else
Range("P" & i).Characters(1, 1).Text = Replace(Range("P" & i).Characters(1, 1).Text, Range("P" & i).Characters(1, 1).Text, LCase(Range("P" & i).Characters(1, 1).Text))
End If
Next
End Sub

 

[Engineerist34]

Ali Bey ellerinize sağlık tam olarak istediğimiz bu idi. Ancak Kod işlem yaparken bir noktada hata veriyor ve işlem yarım kalıyor.


Acaba boş olan bir hücre sebebiyle mi oluyordur.

Excel dosyamı Google Drive'ye attım. Boyut büyük olduğu için (2,38MB) buraya yükleyemedim.

https://drive.google.com/open?id=1oF7Ey8I6x-zdRvJGVgnfe9Moew4IW3pk

Teşekkür Ederim.

 

[alicimri]

Bunca yıldır Excel ile uğraşırım, yeni fark ettim. Bir hücreye doğru veya yanlış yazınca büyük harfe çeviriyor ve hücreyi mantıksal değer olarak görüyor.
Bu sorunu aşmak için, P sütunu seçin, Giriş/Bul ve Seç/Değiştir'e tıklayın, açılan iletişim kutusunda
Aranan'a DOĞRU yazın
Yeni değer'e doğru yazın ama sonuna boşluk koyun. Tümünü değiştire tıklayın.
YANLIŞ içinde aynısını uygulayıp makroyu öyle çalıştırın.

 

[Engineerist34]

Aynen Ali Bey,
Dediğiniz gibi yaptım sorunsuz çalıştı. Çok teşekkür ederiz.