Private Sub CommandButton1_Click()
For i = 1 To 305
If InStr(Cells(i, 1), "Length") = 0 Then GoTo Atla
a = InStr(Cells(i, 1), "Length") + 6
b = Right(Cells(i, 1), Len(Cells(i, 1)) - a)
If InStr(b, ",") = 0 Then
x = Trim(b)
Else
aa = InStr(b, ",") - 1
bb = Left(b, aa)
c = Len(bb)
For k = 1 To c
bbb = Mid(bb, k, 1)
If IsNumeric(bbb) Then Exit For
Next k
xx = Right(bb, c - k + 1)
End If
toplam = toplam + (1 * xx)
Atla:
Next i
MsgBox "Length toplamı = " & toplam, vbInformation
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.