D3:AG47 Bu alandaki hücrelere ne yazılsa büyük harf olmasını istiyorum.

[yanık71]

Arkadaşlar ekte örnek dosyada koydum ama istegimi burayada anlatayım.Çalışma sayfamda D3:AG47 arasındaki tüm hücrelere yazılan harflerin yazılırken küçükte olsa anında büyük harfe dönüşmesini istiyorum.Bunu yapmama yardımcı olabilirmisiniz.Teşekkürler.


http://s3.dosya.tc/server6/fhqcyg/BUYUKHARF.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Girilecek harf çeşitleri sabit mi.

. . .

 

[yanık71]

. . .

Girilecek harf çeşitleri sabit mi.

. . .

Evet sabit harfler.

 

[Emir Hüseyin Çoban]

Neler ?

. . .

 

[Erdem Akdemir]

Arkadaşlar ekte örnek dosyada koydum ama istegimi burayada anlatayım.Çalışma sayfamda D3:AG47 arasındaki tüm hücrelere yazılan harflerin yazılırken küçükte olsa anında büyük harfe dönüşmesini istiyorum.Bunu yapmama yardımcı olabilirmisiniz.Teşekkürler.


http://s3.dosya.tc/server6/fhqcyg/BUYUKHARF.xlsx.html

Anlık olarak büyük harfe çeviremezsiniz, hücreden çıktıktan sonra olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:AG47")) Is Nothing Then Exit Sub
On Error Resume Next
Target = UCase(Target)
End Sub

 

[yanık71]

Yazdıracagım harfler Ü,F,R,İ,X,V,B,Sİ,İ,H,KD,FB,FP,İİ makro olmadan formül ile halletmek istiyorum olabilirse.

 

[Erdem Akdemir]

Yazdıracagım harfler Ü,F,R,İ,X,V,B,Sİ,İ,H,KD,FB,FP,İİ makro olmadan formül ile halletmek istiyorum olabilirse.

Formülle yapamazsınız.

 

[Emir Hüseyin Çoban]

. . .

Formülle yapmak için bambaşka bir yapı kurmak gerekir.

Kodlar ile yapmak isterseniz şu kodları deneyin...

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("D3:AG47")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
    Application.EnableEvents = True
End Sub

. . .