Makro ile Tüm Sayfaları Gezip İstediğim Kodu Çalıştırsın

[Astalavista58]

Merhabalar herkese hayırlı geceler. Aşağıdaki gibi bir kodum var, belirli aralıktaki tüm hücredeki ifadeleri büyük harfe çeviriyor. 20'den fazla sayfa var, sayfaları otomatik kendisi gezip aşağıdaki formülü çalıştırmasını istiyorum.

Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual

For Each x In Range("A1:P5000")
x.Value = UCase(x.Value)
Next
     Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Upper_Case()
    Dim Sh As Worksheet, Rng As Range
  
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
  
    For Each Sh In ThisWorkbook.Worksheets
        For Each Rng In Sh.Range("A1:P5000")
            Rng.Value = UCase(Replace(Replace(Rng.Value, "ı", "I"), "i", "İ"))
        Next
    Next
  
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

    MsgBox "Veriler büyük harfe çevrilmiştir."
End Sub

 

[Astalavista58]

Sayın Korhan Hocam çok teşekkür ederim elinize sağlık Allah razı olsun

 

[Korhan Ayhan]

Küçük bir revize yaptım. Son halini deneyiniz.