Tablodaki degerlerin hesaplanmasi

[firstkan]

Attachment daki tablodaki Lenght lerin karsisindaki rakamlari nasil toplattirabilriim ?

Ilgilenen arkadaslara simdiden tesekkurler

 

[cako]

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

 

[firstkan]

Tesekkur ederim Cako Bey

ben bunu Maco ya nasil tasiyacagimi bilmiyoum ama bir sekilde ogrenirim onemli olani yaptiniz

Kolay gelsin

 

[danersin]

...ben bunu Maco ya nasil tasiyacagimi bilmiyoum ama bir sekilde ogrenirim ..

Bu linkten öğrenebilirsiniz temelini,

http://www.excel.web.tr/viewtopic.php?t=4153