excelde bir hücrede kaç karekter olduğunu nasıl hesaplat

Forumun Değerli Üyeleri
Bu karekter say özelliğini Vba kod olarak nasıl düzenleyebilirz.
Saygılarımla
 
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
Option Explicit
 
Sub KARAKTER_SAY()
    MsgBox Len(Range("A1"))
End Sub
 
Sayın Korhan Ayhan
İlgin için çok teşekkür ederim.
Ben isteğimi tam anlatamadım.
Örneğin B sütununa yazdığım kelimelerin harf sayılarını yazıldığı anda otomatik olarak A sütununda göstersin istiyorum.
Saygılarımla
 
Selamlar,

Aşağıdaki kodu bu işlemi yapacağınız sayfanın kod bölümüne uygulayıp denemisiniz.

B sütununa veri girişi yapıp hücreyi terk ettiğinizde karakter sayısı yazılır.

Kod:
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target <> Empty Then
    Target.Offset(0, -1) = Len(Target)
    Else
    Target = Empty
    End If
End Sub
 
Geri
Üst