Excel Min Function VBA

ksstormhunter · Feb 20th 2003

Hello, have a little problem that I am trying to solve. I have a list of numbers in sheet dcount from a60 to a123 i am trying to find the minimum value in that list, but the problem is that some negative numbers contain the letter M for negative Example (-5, is m5) how can I determine the min value with those negative value in my range.

Dave Hawley · Feb 20th 2003

Hi ksstormhunter

Try this code. It will work as long as Column IV is empty

Code

Sub GetMin()
Dim dMin As Double
    Columns(1).Insert
        Range("A60:A123").FormulaR1C1 = _
            "=SUBSTITUTE(RC[1],""m"",""-"")*1"
     dMin = WorksheetFunction.Min(Range("A60:A123"))
    Columns(1).Delete
    MsgBox "The Min is " & dMin, vbInformation, "OzGrid.com"
End Sub

Excel Min Function VBA

Participate now!

Share