Hello!
I have a range, let's say, A1:D9, in which are values like: "", sometext1234, 1234text, -1234, 1234, tetxt1234tetxt...
I have this code which is working perfectly but, problem is in that MINUS1234. I just want to Sum these numbers. Code is working only if num is positive
Code
Function Add_Numeric(iRng As Range) As Long
For Each cell In iRng
l = Len(cell)
If l = 0 Then GoTo nextcell
numstr = ""
For i = 1 To l
If IsNumeric(Mid(cell, i, 1)) Then numstr = numstr & Mid(cell, i, 1)
Next i
Add_Numeric = Add_Numeric + numstr * 1
nextcell:
Next cell
End Function
Display More