Ignoring zeros in macro

[PedroMojica]

having trouble typing code to ignore the zeros in the spreadsheet, just trying to bold the lowest number without it being zero. Here is the code I have right now, cant seem to find the right combination to not count the zeros in each column.

Sub BoldMinimum()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add _
Type:=xlExpression, Formula1:= _
"=" & ActiveCell.Address(0, 0) & _
"=Min(" & Selection.Address & ")"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
End Sub

 

[stnkynts]

What is the range of cells in which you are trying to determine the lowest value (other than 0 of course)? Or is it going to be a different range that you will select each time?

 

[Desu Nota from Columbus]

wrong code...

see above question

 

[PedroMojica]

the range would be B28 to B32 then C28 to C32 and so on till column G

 

[Desu Nota from Columbus]

I got this conditional format to work. Tweak it to fit your data:

=AND(C28>0,C28=MIN(IF($C$28:$C$32>0,$C$28:$C$32)))

 

[PedroMojica]

Not sure how to fit that in to the macro code

 

[Desu Nota from Columbus]

This will apply the conditional formatting to all 5 columns simultaneously: C-G

Sub CondFormat()

Range("C28:G32").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(C28>0,C28=MIN(IF(C$28:C$32>0,C$28:C$32)))"
End Sub

 

[PedroMojica]

ok that does what i want but now I need it to bold the lowest number thats not zero.

 

[PedroMojica]

trying different way to incorporate the two together but its not working.

 

[Desu Nota from Columbus]

Sub CondFormat()

Range("C28:G32").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(C28>0,C28=MIN(IF(C$28:C$32>0,C$28:C$32)))"
    With Selection.FormatConditions(1).Font
        .Bold = True
    End With
End Sub