AccessTr.neT

Sayfalar: 1 2 3

sayın mehmetdemiral;
bunu yaptım ama uzun bir kod oldu.
bunun yerine

If Target.Address = "$A$" & Target.Row Then

satırına b sutununuda ekleyebilir miyiz diye sordum.
olur mu?

) Tamam. İşin kolayına kaçalım dedik, altına da en kolayı dedik ama kurtulamadık demek ki Img-grin

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Empty Then Exit Sub

If Target.Address = "$A$" & Target.Row Or Target.Address = "$B$" & Target.Row Then

Application.EnableEvents = False

kelime = Replace(Target.Value, "i", "İ")

kelime = Replace(kelime, "ı", "I")

Target.Value = StrConv(kelime, vbUpperCase)

Application.EnableEvents = True

End If

End Sub

teşekkür ederim... Img-grin

Sayfalar: 1 2 3

kadirdursun

mehmetdemiral

kadirdursun