formula or macro to analyze dimensions

[Kermy812]

Can any one help me with a formula or macro to analyze dimensions?
My column has many sizes listed, but I need to change it or mark in another column that it's too big fit in my area of 12.375x18.375.
For instance, I have these sizes below, they would be marked too big cause they don't fit:

18x18​

10x55​

20x2.5​

20x.75​

5x24
32x10​

I'm just doing a macro with a simple find & replace now, but I have about 50ish find/replaces and my list keeps growing:

Columns("K:K").Select​

Selection.Replace What:="18x18", Replacement:="TOO BIG", LookAt:=xlPart, _​

SearchOrder:=xlByRows, MatchCase:=False​

These sizes would be left alone or not noted as they would fit:

5.5x7​

11x17​

8.5x11​

2x18​

12x18​

18x12 (this would fit, cause it would be rotated to 12x18 fit my area)​

I think the logic would be:
if the number on either side of the "x" is greater than 18.375 then text "TOO BIG"

or​

if both numbers on either side of the "x" are greater than 12.375 then text "TOO BIG"

Any help would be appreciated...

 

[JoeMo]

Here's a user-defined function (UDF) you can use just like a worksheet function after you install it.

Excel Workbook
	B	C
1	18x18	Too Big
2	10x55	Too Big
3	20x2.5	Too Big
4	20x.75	Too Big
5	5x24	Too Big
6	32x10	Too Big
7	5.5x7	OK
8	11x17	OK
9	8.5x11	OK
10	2x18	OK
11	12x18	OK
12	18x12	OK
1025-ZUT-abc-A

Function TooBigTest(S As String) As String
Dim V As Variant
If S = "" Then
    TooBigTest = ""
    Exit Function
End If
V = Split(S, "x")
If V(0) > 12.375 And V(1) > 18.375 Then
    TooBigTest = "Too Big"
    Exit Function
ElseIf V(0) > 18.375 Or V(1) > 18.375 Then
    TooBigTest = "Too Big"
    Exit Function
ElseIf V(0) > 12.375 And V(1) > 12.375 Then
    TooBigTest = "Too Big"
    Exit Function
End If
TooBigTest = "OK"
End Function

 

[Kermy812]

Thanks Joe! This worked Great!
I did tweak a little bit as the first as "if" statement wasn't needed, then to return the values if not "too big", so I can sort later:

Function TooBigTest(S As String) As StringDim V As Variant
If S = "" Then
    TooBigTest = ""
    Exit Function
End If
V = Split(S, "x")


If V(0) > 18.375 Or V(1) > 18.375 Then
    TooBigTest = "TOO BIG"
    Exit Function
ElseIf V(0) > 12.375 And V(1) > 12.375 Then
    TooBigTest = "TOO BIG"
    Exit Function
End If
TooBigTest = S
End Function

So my results on column B would be:

[TABLE="class: grid, width: 400, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]3x5[/TD]
[TD]3x5[/TD]
[/TR]
[TR]
[TD]5x7[/TD]
[TD]5x7[/TD]
[/TR]
[TR]
[TD]32x10[/TD]
[TD]TOO BIG[/TD]
[/TR]
[TR]
[TD]8.5x11[/TD]
[TD]8.5x11[/TD]
[/TR]
[TR]
[TD]12x18[/TD]
[TD]12x18[/TD]
[/TR]
[TR]
[TD]18x12[/TD]
[TD]18x12[/TD]
[/TR]
[TR]
[TD]13x13[/TD]
[TD]TOO BIG[/TD]
[/TR]
[TR]
[TD]13x2[/TD]
[TD]13x2[/TD]
[/TR]
</tbody>[/TABLE]

Again, thanks a bunch, I really appreciate it!