Toplam Dijit harfler dahil

[Kemal Demir]

Arkadaslar Kolay Gelsin

Sub digit()
For c= 2 to 100
For k= 1 to 8

if Cells(c,7).value="ali" then
Cells(c,11).value=Cells(c,k)"...................................."
.
.
.
end if
Next
next
Ens sub

............ yerlerde noktalı yerlere gelebilecek kodlar nedir.Yardımcı olursanız sevinirim.


digit(harfler/rakam farketmeksizin) toplam kaç olduğunu bulabilirmiyiz.
Ã?rnek(195852412fsdf12fs121fs)=22 adet bunu eksik olan kodlarımda nasıl bir kod kullanmak gerekir.

Ornek Dosya Eklıyorum.

 

[cyberwolf1980]

isim Toplam
x 32
y 32
z 29
Genel Toplam 93

bunu ozet tablo ıle rahatlıkla yapabılırsın yukardakı dokumde aldıgım ozet tablonun dokumudur .

ıyı gunler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Cells(c,11).value=len(Cells(c,k))

 

[Kemal Demir]

sn. leventm
****anladım kadarı ıle bole olmasınımı demek ıstedın bole ıse olmadfı yada yapaamdım...
Biraaz daha acıklayacı olabilirmisiniz.
Dosya İçerisinde Yapabilirseniz Sevinirim.

Sub digit()
For c = 2 To 94
For k = 1 To 8
If Cells(c, 9).Value = "ali" Then
Cells(2, 11).Value = Len(Cells(c, k))
End If
Next
Next
End Sub

 

[Kemal Demir]

Değerli Arkadaslar
Biraz üzeride durdum (sn.Leventm) Yol Gösteri Üzerinde farklı bir çözüm buldum
Sizlerle paylaşmak İstedim.

Sub dagıt()
For C = 1 To 2
For k = 1 To 6
If Range("c" & k).Value = "ali" Then
Cells(k, C).Value = Len(Cells(k, C))
End If
Next
Next
End Sub
bu kodlarla cevap cıkıyor

 

[Kemal Demir]

Sub dagit()
For x = 1 To 16
For k = 1 To 100
If Range("Q" & k).Value = "ali" Then
Cells(k, x).Value = Len(Cells(k, x))
c = Cells(k, x)
c = Cells(k, x)
d = d + c
't1=alinin Toplamı
Range("t1") = d
End If
Next
Next

End Sub

Umarım Buda Bir kaç arkadasın işine yarar