AccessTr.neT

Bul · 11/04/2011, 08:17

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?

Bul · 11/04/2011, 16:50

) 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

Bul · 11/04/2011, 17:01

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

AccessTr.neT

hücreden çıkınca büyük harfe dönsün

hücreden çıkınca büyük harfe dönsün

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri