title: I need help to create a miniifs vba function?
body: <p>I do some macro and i upgrade a macro of Diedrich to have a MaxIfs in excel 2010 which work with line an columns i put the code under.</p>
  
  <pre><code>Public Function maxifs(MaxRange As Range, ParamArray Criteria() As Variant) As Variant
  Application.Volatile
  Dim n As Long
  Dim i, j As Long
  Dim c As Variant
  Dim f As Boolean
  Dim w() As Long
  Dim k As Long
  Dim z As Variant
  
  'Error if less than 1 criteria
  On Error GoTo ErrHandler
  n = UBound(Criteria)
  If n &lt; 1 Then
      'too few criteria
      GoTo ErrHandler
  End If
  
  'Define k
  k = 0
  
  'Loop through cells of max range
  For i = 1 To MaxRange.Count
      For j = 1 To MaxRange.Count
  
  'Start by assuming there is a match
  f = True
  
      'Loop through conditions
      For c = 0 To n - 1 Step 2
  
          'Does cell in criteria range match condition?
          If Criteria(c).Cells(i, j).Value &lt;&gt; Criteria(c + 1) Then
              f = False
          End If
  
      Next c
  
      'Define z
      z = MaxRange
  
      'Were all criteria satisfied?
      If f = True Then
          k = k + 1
          ReDim Preserve w(k)
          w(k) = z(i, j)
      End If
  
      Next j
  Next i
  
  maxifs = Application.Max(w)
  Exit Function
  
  ErrHandler:
  maxifs = CVErr(xlErrValue)
  
  
  End Function
  </code></pre>
  
  <p>So now i will do the minifs and it does not work if all my value are positives.</p>
  
  <p>How can i do?</p>
  
  <p>ps: if you change in this macro max by median it will work too</p>
  
  <p>Thanks for your answers.</p>