DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub KOD()
Application.ScreenUpdating = False
For a = 1 To Cells(Rows.Count, "B").End(3).Row
For i = 0 To Evaluate("=LEN(B" & a & ")-LEN(SUBSTITUTE(B" & a & ","" "",""""))")
If IsNumeric(Split(Cells(a, "B"), " ")(i)) Then
topla = topla + Split(Cells(a, "B"), " ")(i) * 1
End If
Next i
Cells(a, "H") = topla
topla = Empty
Next a
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub