hücre içindeki harf yada rakam sayısını saymak

[muzaffer.sm]

Arkadaşlar benim şöyle bir sorum olacak sizlere


A1 hücresine SSk numarası ve Tc numarası giriyorum.Burada Tc Numarası girdiğim zaman A1 Hücresine girdiğim numaranın kaç rakam olduğunu B1 hücresine mesaj değilde yazmasını istiyorum.Bunu nasıl yazarım.




Sub hucresaymesaj()
pir = [a1]
MsgBox Len(pir)
End Sub

 

[leumruk]

Merhaba,
Sub hucresaymesaj()
[b1] = Len([a1])
End Sub

 

[uzmanamele]

merhaba
bunu deneyiniz

Sub hucresaymesaj()
tc_no = len[a1]
[b1]=tc_no
End Sub