DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub KARAKTER_SAY()
MsgBox Len(Range("A1"))
End Sub
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