küçük harfi büyük harfe çevirme makrosu

[asilme]

arkadaşlar kullandığım excel kitabının tüm sayfalarında yazdığım küçük harfleri büyüğe çevirecek makro varmı. Ben siteyi araştırdım ancak genelde belli satır veya sütunu çevireni veya butonla çevireni eklemişler.benim istediğim sayfanın koduna makroyu yazdığımda küçük harfle yazdığımız değerleride büyük harfe çevirmek.yardımcı olabilirmisiniz

 

[turist]

Dosyanızın Workbook(ÇalışmaKitabı) kısmına aşağıdaki kodu uygulayın.
Dosyanızı kaydedip kapayın.Yeniden açtığınızda tüm sayfalardaki küçük harfler Büyük harfe dönüşecektir.

Private Sub Workbook_Open()
Dim ws As Object
   Dim LCell As Range
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
       For Each ws In ActiveWorkbook.Sheets
   
      On Error Resume Next
      ws.Activate
   
       For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
         LCell.Formula = UCase(Replace(Replace(LCell.Formula, "i", "İ"), "ı", "I"))
      Next
   Next ws
   
     Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
End Sub

 

[Orion1]

dosyanız ektedir.

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

 

[mancubus]

sn turist'in verdiği kod dosya açıldığında tüm düzeltmeleri yapar.

aynı işi dosya kapanırken yapılsın isterseniz, Private Sub Workbook_Open() yerine Private Sub Workbook_BeforeClose(Cancel As Boolean) ifadesini yazabilirsiniz.

hücreye bir veri girildiğinde çalışmasını isterseniz aşağıdaki gibi bir kod olabilir.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Target.Value = UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))

End Sub

kısaca ihtiyaca göre çözüm çok.



not: konuyu açtığımda sadece sn turist'in cevabı vardı. sn Orion1'in mesajını kendi mesajımı yazdıktan sonra gördüm.

 

[asilme]

dosyanız ektedir.

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

hocam kod hata veriyor daha doğrusu normal çalışıyor ancak çevirdiği hücreyi sildiğinde hata veriyor kendi kitabımda verdi sizin yüklediğinizde denedim aynı hatayı veriyor küçükten büyüğe çevirdiği hücreyi silince hata ile karşılaştım kontrol edebilirmisiniz

 

[asilme]

Dosyanızın Workbook(ÇalışmaKitabı) kısmına aşağıdaki kodu uygulayın.
Dosyanızı kaydedip kapayın.Yeniden açtığınızda tüm sayfalardaki küçük harfler Büyük harfe dönüşecektir.

Private Sub Workbook_Open()
Dim ws As Object
   Dim LCell As Range
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
       For Each ws In ActiveWorkbook.Sheets
   
      On Error Resume Next
      ws.Activate
   
       For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
         LCell.Formula = UCase(Replace(Replace(LCell.Formula, "i", "İ"), "ı", "I"))
      Next
   Next ws
   
     Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
End Sub

hocam olmadı denedim çalışmadı sebebini bilmiyorum

 

[turist]

hocam olmadı denedim çalışmadı sebebini bilmiyorum

Ekli örnek dosyayı deneyiniz.

 

[Orion1]

hocam kod hata veriyor daha doğrusu normal çalışıyor ancak çevirdiği hücreyi sildiğinde hata veriyor kendi kitabımda verdi sizin yüklediğinizde denedim aynı hatayı veriyor küçükten büyüğe çevirdiği hücreyi silince hata ile karşılaştım kontrol edebilirmisiniz

Dosyayı günceledim.3 nolu mesajdan indirebilirsiniz.

 

[asilme]

3 nolu mesaj çalıştı herkezin eline sağlık