Küçük Yazılınca Otomatik Olarak BÜYÜK HARF yazılması ??

[ozgurpeh]

Arkadaşlar bir çalışma kitabının tüm sayfalarında büyük harflede yazlsa küçük harflede yazılsa HEP BÜYÜK Yazılması için nasıl bir maro kullanmlıyız. ? Teşekürler

 

[Ali]

http://www.excel.web.tr/showthread.php?t=38922

 

[Necdet]

Benzer kodlar.

Aşağıdaki kodları workbook'un kod bölümüne kopyalayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Son
If Target <> "" Then Target.Value = Evaluate("=UPPER(""" & Target & """)")
Son:
End Sub

 

[Orion1]

Çalışma sayfasının kod bölümünde thisworkbook modülüne aşağıdaki kodu yapıştırıp deneyiniz.
Bütün sayfalar için geçerlidir.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
End Sub

 

[ozgurpeh]

Çalışma sayfasının kod bölümünde thisworkbook modülüne aşağıdaki kodu yapıştırıp deneyiniz.
Bütün sayfalar için geçerlidir.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
End Sub

[/QU
Belii hücreleri seçmek istersek eğer tüm sayfalarda ??

 

[Ali]

Belii hücreleri seçmek istersek eğer tüm sayfalarda ??

Yukarıdaki eklediğim linkte 4'üncü mesajda zaten var. İncelemeden tekrar sormuşsunuz.

 

[Orion1]

Belii hücreleri seçmek istersek eğer tüm sayfalarda ??

aşağıdaki kodlar ile A1:B10 aralığı ve D1 hücrelerinde küçük harfler büyük harfe çevriliyor.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A1:B10,D1")) Is Nothing Then Exit Sub
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
End Sub