ilk harfleri büyük yapmak

[41AFU52]

Merhabalar, aşağıdaki video işinizi görecektir.

 

[Asri]

diye uyarı penceresi açılıyor. sebebi nedir?

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Selection.Count > 1 Then Exit Sub
   Target.Value = WorksheetFunction.Proper(Target.Value)
End Sub

 

[Tarikkk_]

Merhabalar Kolon 2 yani Sütun B ise yazdığım kelimelerin ilk harfi büyük olması için aşağıdaki kodu kullanmam gereken şekil bu değilmi acaba bir türlü yapamadım yardımcı olurmusunuz lütfen şimdiden teşekkürler

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column = 2 Then
    Target.Value = WorksheetFunction.Proper(Target.Value)
    End If
End Sub

 

[Necdet]

Merhaba,
1. satırın başlık satırı olduğu varsayılarak aşağıdaki kodlar oluşturulmuştur.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:B]) Is Nothing Or _
       Target.Row < 2 Or _
       Selection.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Application.WorksheetFunction.Proper(Target.Value)
    Application.EnableEvents = True
    
End Sub

 

[Tarikkk_]

Merhaba,
1. satırın başlık satırı olduğu varsayılarak aşağıdaki kodlar oluşturulmuştur.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:B]) Is Nothing Or _
       Target.Row < 2 Or _
       Selection.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Application.WorksheetFunction.Proper(Target.Value)
    Application.EnableEvents = True
   
End Sub

hocam çok teşekkür ederim tam istediğim gibi çalıştı ama merak ettiğim birşey var
Target.Row < 2 Or burada satır 2 den küçük ise çalışmasın deniliyor.
Selection.Count > 1 Then Exit Sub burada 1 den büyük ise sabdan çıkış deniyor ama ne 1 den büyük ise onu anlamadım

birde son olarak ben tablo kullanıyorum. sayfadaki B:B sütunu yerine sadece tablomdaki B sütununda kullanma şansım varmı acaba
tablomun ismi aşağıdaki gibi varsa bunu koda nasıl ekleyebiliriz. teşekkürler
ActiveSheet.ListObjects("TB_ÖDEME_TAHSİLAT").Range

 

[Cengiz Demir]

Selection.count..... Hedef olarak 1'den fazla hücre seçiliyse makro sonlanıyor.

hocam çok teşekkür ederim tam istediğim gibi çalıştı ama merak ettiğim birşey var
Target.Row < 2 Or burada satır 2 den küçük ise çalışmasın deniliyor.
Selection.Count > 1 Then Exit Sub burada 1 den büyük ise sabdan çıkış deniyor ama ne 1 den büyük ise onu anlamadım

birde son olarak ben tablo kullanıyorum. sayfadaki B:B sütunu yerine sadece tablomdaki B sütununda kullanma şansım varmı acaba
tablomun ismi aşağıdaki gibi varsa bunu koda nasıl ekleyebiliriz. teşekkürler
ActiveSheet.ListObjects("TB_ÖDEME_TAHSİLAT").Range

 

[Tarikkk_]

Selection.count..... Hedef olarak 1'den fazla hücre seçiliyse makro sonlanıyor.

teşekkür ederim