Skip to main content

AccessTr.neT


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

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

Çözüldü #7
acaba referanslardan mıdır? sizdeki referanslar hangileri?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #8
Tam olarak verdiği hatayı belirtseniz... Nasıl bir mesaj dönüyor veya ne yapıyor? Onu yazar mısınız?
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #9
hata ektedir.
.bmp adsız.bmp (Dosya Boyutu: 397,82 KB | İndirme Sayısı: 3)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #10
Sayın kadirdursun, sanırım benim kodları denemediniz.
Alttaki gibi revize edip de kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then Exit Sub
If Target.Address = "$A$" & 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

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #11
sayın maytas;
teşekkür ederim. oldu.

peki aynı anda b ve c sutunundada büyük olmasını istiyorum nasıl yaparım?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Son Düzenleme: 08/04/2011, 14:01, Düzenleyen: kadirdursun.
Cevapla
Çözüldü #12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then Exit Sub
If Target.Address = "$A$" & 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

If Target = Empty Then Exit Sub
If 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


En kolayı bu ))
İnadına, ille de Accesstr.net...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task