Otomatik Baş Harf Büyütme Varmı

[turkey15]

Merhabalar;
Ben Yenİ Bİr Kullanici Olarak Bİr Soru Sormak İstİyorum.
Excelde Normalde KÜÇÜk Harf İle Yazi YazdiĞimda YazdiĞim Kelİmelerİn İlk Harflerİ Otomatİk Olarak BÜyÜk Olabİlİrmİ?

 

[hamitcan]

Not: Sayfanın ThisWorkbook kısmına ekleyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Target = StrConv(Target, vbProperCase)
End Sub

 

[BG]

merhaba

=yazım.düzeni(a1) gibi

dosyanız ektedir.

 

[S.Yiğit]

=yazım.düzeni(a1) gibi

dosyanız ektedir.

Sy Brain hocam gerçekten güzel bişey paylaşım için tşkler..
Acaba şekilli yazmak içinde bişey varmı? SeSLi HaRFLeR SeSSiZ HaRFLeR GiBi

Şaka yapıyorum :d Tekrar tkler..

 

[uzmanamele]

Sy Brain hocam gerçekten güzel bişey paylaşım için tşkler..
Acaba şekilli yazmak içinde bişey varmı? SeSLi HaRFLeR SeSSiZ HaRFLeR GiBi

Şaka yapıyorum :d Tekrar tkler..

merhaba
syn yesilsy,
güzel soru, bence bunu makro-vba konu başlığında sorun.
arkadaşlarımız ilgili kodları yazacaklardır.

 

[uzmanamele]

merhaba
aşağıda syn hsayar'ın örnek çalışması var, ilginizi çekebilir.

http://www.excel.web.tr/showthread.php?t=40538

 

[BG]

rica ederim, bir sonraki soruyu merak ettim acaba renkli harfler büyük renksiz harfler küçük mü olacak

 

[S.Yiğit]

merhaba
syn yesilsy,
güzel soru, bence bunu makro-vba konu başlığında sorun.
arkadaşlarımız ilgili kodları yazacaklardır.

merhaba
aşağıda syn hsayar'ın örnek çalışması var, ilginizi çekebilir.

http://www.excel.web.tr/showthread.php?t=40538

Sy Uzmanamele hocam excelde çok çok yeniyim şimdilik makroya bulaşmak istemiyorum.
Bilgilendirme için tşkler

rica ederim, bir sonraki soruyu merak ettim acaba renkli harfler büyük renksiz harfler küçük mü olacak

Sy brain hocam iyiki hatırlattınız.. Ben Beşiktaşlıyım Acaba bir kelime siyah bir kelime Koyu beyaz olur mu yada ilk harf siyah ikinci harf beyaz

Tekrar tşkler.. Herkese kolay gelsin..

 

[BG]

merhaba

şöyle olur heralde

 

[S.Yiğit]

şöyle olur heralde

Sy Brain hocam elinize sağlık başka ne diyim

 

[kelkitli]

Selamlar,
Sayın hamitcan UserFormda uygulanabilirmi?
Mesela UserForm TextBox1

 

[hamitcan]

Selamlar,
Sayın hamitcan UserFormda uygulanabilirmi?
Mesela UserForm TextBox1

Evet, UserFormda uygulanabilir.

 

[kelkitli]

Sayın hamitcan,
ThisWorkbook kısmına yazınca sayfaya girilen her değere uyguluyor. Mesela TextBox1 de küçük harf olarak duruyor sayfaya aktarınca uygulanıyor. Dolayısıyla TextBoxtan sayfaya aktarılana da uygulanıyor. Benim dediğim sadece TextBox içindeki yazıya uygulanması hususunda. ThisWorkbook'a yazmadan nasıl yapılır.Yada tek bir sayfa için nasıl olur.

 

[hamitcan]

Basit bir örnek veriyorum.Texbox içinden çıkıldığında kod çalışır.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   TextBox1 = StrConv(TextBox1, vbProperCase)
End Sub

 

[kelkitli]

Sayın hamitcan teşekkürler.

 

[poetika]

Excelde her kelimenin ilk harfini büyük yapan kodda sorun var.

Not: Sayfanın ThisWorkbook kısmına ekleyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Target = StrConv(Target, vbProperCase)
End Sub

bu kodu excel dosyama kopyaladım. ilk başta çalışıyor fakat veri girişi yaptığım hücreyi sildiğim anda bir pencere çıkıyor ve hata veriyor. hata kodunun altında "end" "debug" gibi komutlar var. ve daha sonra kod bir daha çalışmıyor. ne yapmalıyım?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not IsEmpty(Target) Then
        Target = StrConv(Target, vbProperCase)
    End If
End Sub

 

[poetika]

Aşağıdaki kodu deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not IsEmpty(Target) Then
        Target = StrConv(Target, vbProperCase)
    End If
End Sub

bu verdiğiniz kodu eski kodun yerine yapıştırdım. ama bu kod çalışmıyor malesef.

 

[Korhan Ayhan]

Nereye yapıştırdığınız önemlidir.

ThisWorkBook ya da BuÇalışmaKitabı bölümüne uygulamanız gerekiyor.

 

[YUSUF44]

Kodu ThisWorkbook/BuÇalışmaKitabı kısmına yapıştırmanız gerekiyor.