Çözüldü Koda Uyarlama

[lion2577]

Arkadaşlar merhaba. Aşağıda belirtilen 1. kodu 2. koda nasıl uyarlayabiliriz. Şimdiden çok teşekkür ederiz.

1. kod:

For Each x In Range("AJ2:AJ" & Cells(Rows.Count, "AJ").End(xlUp).Row)

x.Value = Application.Proper(x.Value)

Next


2. kod:



doc.Bookmarks("pkisi_soyadi_1").Range.InsertAfter Cells(satirNo, 36)

 

[lion2577]

Pardon 1. kod şu şekilde olacak.

For Each x In Range("AU2:AU" & Cells(Rows.Count, "AU").End(xlUp).Row)
x.Value = UCase(Replace(Replace(x.Value, "i", "İ"), "ı", "I"))
Next

 

[Ahmet]

Merhaba

Amacınızı da belirtir misiniz? Yapmaya çalıştığınız şey nedir?

 

[lion2577]

Merhaba

Amacınızı da belirtir misiniz? Yapmaya çalıştığınız şey nedir?

Amacımız 2. kodda worde aktarılan verilerin yazımını büyük harf yapmak. Ama "i İ ve ı I " harflerinin uyumunu sağlayarak.

 

[Ahmet]

Kod sayfasının en üstüne bu kodu ekleyiniz.

HTML:

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

Büyük harfe çevirmek istediğiniz yazıları bu formüle alınız.
HTML:

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

Örnek kullanım:

a = "merhaba"
msgbox BuyukHarfYap(a)

 

[Refaz]

HTML:

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

 

[lion2577]

İlginiz için çok teşekkür ederiz. Birinci kodda belirtilen hücre içerisinde formül var. Kod uygulandığı zaman formül bozuluyor. Bu kodu formül bozmadan ve ı ı ve i i harflerinde de sıkıntı yaşamadan büyük harf yapmak istiyoruz.

 

[Refaz]

Rica ederiz ve dosya ekleyip orda açıklayın.
Tabii word dosyayıda eekleyin.