makro'ya belli sayfaları eklemek

[İhsan Tank]

arkadaşlar elimde belli bir aralığa yazılanları büyük harfe çeviren makro var ben buna bir kod eklemek istiyorum benim istediğim belli sayfalarda bu işlemi yapsın

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A4:b30]) Is Nothing Then Exit Sub
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Application.EnableEvents = False
Target.Value = StrConv(Kelime, vbUpperCase)
Son:
Application.EnableEvents = True
End Sub

kod bu

 

[İhsan Tank]

arkadaşlar sorumu biraz değiştireyim benim istediğim ekte gönderdiğim dosyadaki sayfadan 50 tane var ( yani a1'den başlayıp a50'ye kadar ) benim istediğim bu kodu her sayfanın kod bölümüne kopyalayarak değilde bir tane kod yazarak bütün sayfalara uygulamak

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayınız..

Option Compare Text
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Son
If Left(ActiveSheet.Name, 1) <> "a" Then Exit Sub
If Intersect(Target, [A4:B30]) Is Nothing Then Exit Sub
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Application.EnableEvents = False
Target.Value = StrConv(Kelime, vbUpperCase)
Son:
Application.EnableEvents = True
End Sub

.

 

[İhsan Tank]

ömer hocam yardımların için teşekkür ederim
çok sağolun