IF condition with multiple criteria

[nikhil0311]

Book1
	A	B
1	Revenue	Comment
2	100	$100 mm
3	75	$75mm - $99mm
4	50	$50mm - $74mm
5	45	$15mm - $49mm
6	10	$0mm - $14mm
Nested IF

column A has numbers and column B is the final comment i am looking to capture based on the below criteria.
For example
if the number in column A is (>= 100) greater than and equals to 100 then comment in column B should be "$100 mm"


Criteria
If >= 100 then "$100 mm"
OR
If >= 75 and <=99 then "$75mm - $99mm"
OR
If >= 50 and <=74 then "$50mm - $74mm"
OR
If >= 15 and <=49 then "$15mm - $49mm"
OR
If >0 and <=14 then "$0mm - $14mm"


let me know if you have any questions!

 

[Dossfm0q]

Good Day All Another Option

Public Sub AddFormat()


Dim Rng As Range
Dim F As Long
[COLOR=#d3d3d3][A1] = "Revenue": [B1] = "Comment"[/COLOR]
[COLOR=#d3d3d3]Range("A2:A6") = Application.Transpose(Array(100, 75, 50, 45, 10))[/COLOR] ' you can delete this Line
        For Each Rng In Range("B2:B6")
        With Rng
       
        TargetAddress = Rng.Offset(0, -1).Address
         
        CellConditions = Split("=AND(" & TargetAddress & ">=0," & TargetAddress & "<=14);=AND(" & TargetAddress & ">=15," & TargetAddress & "<=49);=AND(" & TargetAddress & ">=50," & TargetAddress & "<=74);=AND(" & TargetAddress & ">=75," & TargetAddress & "<=99);=" & TargetAddress & ">=100", ";")
        NumberFormat = Split("""0 mm - 14"";""15 mm - 49 mm"";""50 mm - 74 mm"";""75 mm - 99 mm"";""100 mm""", ";")
       
       Value = Cells(Rng.Row, Rng.Column - 1).Value
       .Formula = "=" & TargetAddress
        .FormatConditions.Delete
            For F = LBound(CellConditions) To UBound(CellConditions)
           
                
                .FormatConditions.Add Type:=xlExpression, Formula1:=CellConditions(F)
                .FormatConditions(.FormatConditions.Count).SetFirstPriority
                .FormatConditions(1).NumberFormat = NumberFormat(F)
                .FormatConditions(1).StopIfTrue = False
            
            Next
        End With
        Next
        
End Sub