calistiginiz sayfanin adinin yazdigi yere sag tiklayarak, kodu goruntule deyin. acilan yere
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub
yukaridaki kodu yapistirin ve sol ustteki excel simgesi ile calisma sayfaniza geri donun. simdi a1:a10 arasinda siz kucuk de yazsaniz, onlari buyuk harfe cevirecek. a1:a10'u ihtiyaciniza gore degistirerek belirttiginiz hucrelere kucuk de yazsaniz buyuk harfe cevirmesini saglamis olacaksiniz. buradan kodu yazmis olan dave dostumuza da selam edelim.
0