Printable View
i have 4 columns ,format of cell is text
(10,2, , ,)
Dim dblMin As Double
dblMin = Application.Min(CDbl(Cells(1, 1)), CDbl(Cells(1, 2)), CDbl(Cells(1, 3),CDbl(Cells(1, 4)))
i want to take min of 4 columns , when i take min its shows zero to me i need to eliminate zero and consider 2 as mininum
please guide me regarding this ..with vba code bit urgent
[vba]
Dim dblMin As Double
dblMin = Activesheet.Evaluate("MIN(IF(A1:D1<>0,A1:D1))")
[/vba]
code works fine if cell format is numeric or general
but when cell format is text value displayed is zero
still i am facing problem
Be smart, change them to General not text
[vba]
Dim dblMin As Double
dblMin = ActiveSheet.Evaluate("MIN(IF(A1:D1<>0,--(A1:D1)))")
[/vba]
i cannt change cell value to numeric from text
if i can find second minimum value then my problem will be solved
but still stuck to find the minimum value
.
thanks for solving my problem
Dim dblMin As Double
dblMin = ActiveSheet.Evaluate("MIN(IF(cells(1,1):cells(1,4)<>0,--(cells(1,1):cells(1,4)
)))")
it shows type mismatch what i am doing wrong please guide me
Look at what I gave you, compare against what you wrote, and it should be obvious.
dim min as double
dblMin = Active Sheet.Evaluate("MIN(IF(A1:d1<>0,--(A1:d1)))")
please guide me to increment to (A2:d2<>0,--(A2:d2) so on
ie.i want to increment to next row
[vba]
Dim min As Double
Dim rng As Range
Set rng = Range("A1:D1")
dblMin = ActiveSheet.Evaluate("MIN(IF(" & rng.Address(False, False) & _
"<>0,--(" & rng.Address(False, False) & ")))")
Set rng = Range("A2:D2")
dblMin = ActiveSheet.Evaluate("MIN(IF(" & rng.Address(False, False) & _
"<>0,--(" & rng.Address(False, False) & ")))")
[/vba]
thanks u ..My problem is solved:friends:
Dim rng As Range
ii as integer
ii=1
Set rng = Range(Cells(ii, 1), Cells(ii, 4))
MinVal = ActiveSheet.Evaluate("MIN(IF(" & rng.Address(False, False) & _
"<>0,--(" & rng.Address(False, False) & ")))")
ii=ii+1
here i am incrementing (ii) value to increment to neat row.. and this works ..
:bow: ...THANKS