DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Target) <> Target And Target <> "" Then Target = Evaluate("=UPPER(" & Target.Address & ")")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
on error resume next
if intersect(target,[a2:c100]) is nothing then exit sub
If UCase(Target) <> Target Then Target = Evaluate("=UPPER(" & Target.Address & ")")
End Sub