help fix my formula

[spilner]

isbold(C13,IF(F13>3000,3000,F13)

the result return #VALUE! .can someone help to fix the code.

the code is..

' //
' // Start Code
' //
Function IsBold(Cell_To_Check As Range, Value_If_True, Value_If_False)
If Cell_To_Check.Font.Bold = True Then
IsBold = Value_If_True
Else
IsBold = Value_If_False
End If
End Function
' //
' // End Code
' //

thanks guys

 

[AlphaFrog]

isbold(C13,IF(F13>3000,3000,F13)

The If portion of the formula is Value_If_True argument. There is no Value_If_False argument in your formula.

I don't know what end result you want but try something like this...
=isbold(C13,IF(F13>3000,3000,F13), "not bold")

Also, simply changing the font in cell C13 wouldn't trigger the isbold function to automatically update. It would only update when there is a calculation on the sheet. That may or may not be an issue for you.

 

[Scott Huish]

You can write that function in two lines:

Function IsBold(Cell_To_Check As Range, Value_If_True, Value_If_False)
Application.Volatile
IsBold = IIf(Cell_To_Check.Font.Bold, Value_If_True, Value_If_False)
End Function

You can also remove the IF from your formula and use MIN instead, but as has already been started your missing your Value if False:

=isbold(C13,MIN(3000,F13),"Value if False")

 

[spilner]

it work hotpepper..thank you so much