2 ayrı macro kodu aynı sayfa üzerinde çalıştırma ?

[turankr]

Arkadaşlar yok mu bu dosyaya bakacak biri.
http://s3.dosya.tc/server10/i7wpwl/n....2017.rar.html

 

[paradaymh]

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B4:B54]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target.Value = BuyukHarf(Target.Value)
Application.EnableEvents = True



If Intersect(Target, Range("D4:E54,A1:F3")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not IsEmpty(Target.Address) Then
Application.Undo

Application.EnableEvents = True
End If
Exit Sub
End Sub

Function BuyukHarf(Veri As String)

BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))

End Function

bu ikisi bir türlü çalışmadı lütfen yardım