Setting 2 attributes, other one has stock that is visible, other one doesnt have stoc

[mikeel100]

Okay, maybe "flawed" is a little harsh...how about limited? I still like the software and will continue to use it with some sort of work around...thanks for your help.

[gjh42]

there is a database relationship missing in Zencart which does not allow linking of active products with attributes to inactive similar products with...

This is not a relationship that needs to be made; the concept you propose is not the way that attributes do or could work. Attributes (with a stock by attributes extension) handle all of this within one master product. It is true that the infinite possible variety of child/dependent/whatever attributes is barely touched by the present system. Hopefully one day someone will come up with a flexible method of handling them. The fact that this holy grail has not yet appeared is indicative of its difficulty.

[mikeel100]

Oh, it could work and someone will find a way some day...won't be me. LOL.

I just finished the Excel Macro to handle my Apparel categorization. It's not the idea way I would like to do it but it will work for now.

Apparel
--Batting Jackets
---Large
----Color 1
----Color 2
Etc.

It is similar to walking into a store. The shopper will see the general product they want, find their size, then find the color they want. Size first since it is pointless to look at colors if the size isn't available.

It will also prevent them from ordering something that is not in stock.

It also displays good if people will pick the size before looking at any pics...not so many identical images to view at one time.

Appreciate your help.

[mikeel100]

Additional info for those who may want to try my approach.

With the category layout I mentioned above, the shopper will see an click on the general product they want (Batting Jackets) and the Featured Products modules will display the styles available.

Here's the macro for breaking down categories: (It is very rough coding...haven't had a chance to clean an make it more efficient but it does work)

Sub RECATEGOIZE()
'******temp******
Counter = 0
'****************
search_product = ""
search_product_range = ""
product_first_find = ""
search_size = ""
search_size_range = ""
size_first_find = ""
search_color = ""
search_color_range = ""
color_first_find = ""
category = ""
subcategory1 = ""
subcategory2 = ""
' subcategory3 = ""
' subcategory4 = ""
subcategory1_search_range = 2
Do
'DETERMINE TOP LEVEL CATEGORY AND SET VARIABLE
If Counter = 0 Then category = "Apparel"
If Counter = 0 Then subcategory1_search_value = Sheets("MY_CATEGORIES").Range("I" & subcategory1_search_range).Value
'DETERMINE SUBCATEGORY 1 AND SET VARIABLE

If subcategory1_search_value = "apparel/performance_wear/athletic_wear/" Then subcategory1 = "Athletic Wear"
If subcategory1_search_value = "apparel/headwear/sunglasses/" Then subcategory1 = "Headwear"
If subcategory1_search_value = "apparel/men/jackets_coats/" Then subcategory1 = "Vests"
If subcategory1_search_value = "apparel/womens_shapeware/" Then subcategory1 = "Women's Shapewear"
If subcategory1_search_value = "apparel/men/mens_shapeware/" Then subcategory1 = "Men's Shapewear"
'FIND THE PRODUCT AND MAKE SURE IT MATCHES SUBCATEGORY1 THEN SET SUBCATEGORY 2 VALUE
Sheets("DATAFEED").Select
Range("E:E").Select

'SET PRODUCT VARIABLE
search_product_range = 2
Do
search_product = Sheets("MY_CATEGORIES").Range("AB" & search_product_range).Value
Selection.Find(What:=search_product, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then product_first_find = ActiveCell.Offset(0, -4).Value

If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value = "" Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value <> "" Then subcategory2 = Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value
'LENS THICKNESS
' subcategory5 = ""
' If InStr(ActiveCell, "52mm") > 0 Then subcategory5 = "52MM"
' If InStr(ActiveCell, "57mm") > 0 Then subcategory5 = "57MM"


'SIZE SEARCH
subcategory3 = ""
'XSMALL
If InStr(ActiveCell, "X-Small") > 0 Then subcategory3 = "Extra Small"
'SMALL
If InStr(ActiveCell, "Small") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Size S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Black-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "########-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "White-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Purple-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Turquoise-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cocoa-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Green-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cherry-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Fuchsia-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Beige-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Unique Colors-S") > 0 Then subcategory3 = "Small"
'SMALL-MEDIUM
If InStr(ActiveCell, "S/M") > 0 Then subcategory3 = "Small-Medium"
'MEDIUM
If InStr(ActiveCell, "Medium") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Size M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Black-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "########-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "White-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Purple-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Turquoise-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cocoa-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Green-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cherry-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Fuchsia-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Beige-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Unique Colors-M") > 0 Then subcategory3 = "Medium"
'LARGE
If InStr(ActiveCell, "Large") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Black-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "########-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "White-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Purple-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Turquoise-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cocoa-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Green-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cherry-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Fuchsia-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Beige-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Unique Colors-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Size L") > 0 Then subcategory3 = "Large"
'L-XL
If InStr(ActiveCell, "L/XL") > 0 Then subcategory3 = "Large-1X Large"

'1XL
If InStr(ActiveCell, "XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Black-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "X-Large") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "########-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "White-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Purple-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Turquoise-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cocoa-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Green-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cherry-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Fuchsia-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Beige-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Unique Colors-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "1XL") > 0 Then subcategory3 = "1X Large"
'2XL
If InStr(ActiveCell, "XX") > 0 Then subcategory3 = "2X Large"
If InStr(ActiveCell, "2XL") > 0 Then subcategory3 = "2X Large"
'3XL
If InStr(ActiveCell, "XXX") > 0 Then subcategory3 = "3X Large"
If InStr(ActiveCell, "3XL") > 0 Then subcategory3 = "3X Large"
'4XL
If InStr(ActiveCell, "XXXX") > 0 Then subcategory3 = "4X Large"
If InStr(ActiveCell, "4XL") > 0 Then subcategory3 = "4X Large"
'5XL
If InStr(ActiveCell, "XXXXX") > 0 Then subcategory3 = "5X Large"
If InStr(ActiveCell, "5XL") > 0 Then subcategory3 = "5X Large"
'6XL
If InStr(ActiveCell, "XXXXXX") > 0 Then subcategory3 = "6X Large"
If InStr(ActiveCell, "6XL") > 0 Then subcategory3 = "6X Large"

'YOUTH SIZES
If InStr(ActiveCell, "YS") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "YM") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "YL") > 0 Then subcategory3 = "Youth Large"
If InStr(ActiveCell, "Youth Small") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "Youth Medium") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "Youth Large") > 0 Then subcategory3 = "Youth Large"
'WOMENS SIZES
If InStr(ActiveCell, "-32") > 0 Then subcategory3 = "Size 32"
If InStr(ActiveCell, "-34") > 0 Then subcategory3 = "Size 34"
If InStr(ActiveCell, "-36") > 0 Then subcategory3 = "Size 36"
If InStr(ActiveCell, "-38") > 0 Then subcategory3 = "Size 38"
If InStr(ActiveCell, "-40") > 0 Then subcategory3 = "Size 40"
If InStr(ActiveCell, "-42") > 0 Then subcategory3 = "Size 42"
If InStr(ActiveCell, "-44") > 0 Then subcategory3 = "Size 44"
If InStr(ActiveCell, "-46") > 0 Then subcategory3 = "Size 46"
'COLOR SEARCH
subcategory4 = ""
If InStr(ActiveCell, "Beige") > 0 Then subcategory4 = "Beige"
If InStr(ActiveCell, "Black") > 0 Then subcategory4 = "Black"
If InStr(ActiveCell, "Blue Bird") > 0 Then subcategory4 = "Blue Bird"
If InStr(ActiveCell, "Brown") > 0 Then subcategory4 = "Brown"
If InStr(ActiveCell, "Camo") > 0 Then subcategory4 = "Camo"
If InStr(ActiveCell, "Cherry") > 0 Then subcategory4 = "Cherry"
If InStr(ActiveCell, "Cocoa") > 0 Then subcategory4 = "Cocoa"
If InStr(ActiveCell, "Fuchsia") > 0 Then subcategory4 = "Fuchsia"
If InStr(ActiveCell, "Gray") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Est. In 1997 Tee-Shirt") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Grey") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Green") > 0 Then subcategory4 = "Green"
If InStr(ActiveCell, "Heather") > 0 Then subcategory4 = "Heather"
If InStr(ActiveCell, "Khaki") > 0 Then subcategory4 = "Khaki"
If InStr(ActiveCell, "Maroon") > 0 Then subcategory4 = "Maroon"
If InStr(ActiveCell, "Navy") > 0 Then subcategory4 = "Navy Blue"
If InStr(ActiveCell, "########") > 0 Then subcategory4 = "########"
If InStr(ActiveCell, "Olive Drab") > 0 Then subcategory4 = "Olive Drab"
If InStr(ActiveCell, "Purple") > 0 Then subcategory4 = "Purple"
If InStr(ActiveCell, " Red ") > 0 Then subcategory4 = "Red"
If InStr(ActiveCell, "Royal") > 0 Then subcategory4 = "Royal Blue"
If InStr(ActiveCell, "Turquoise") > 0 Then subcategory4 = "Turquoise"
If InStr(ActiveCell, "Unique Colors") > 0 Then subcategory4 = "Unique Colors"
If InStr(ActiveCell, "White") > 0 Then subcategory4 = "White"


If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then ActiveCell.Offset(0, 24).Value = category & subcategory1 & subcategory2 & subcategory3 & subcategory4
If product_first_find <> "" Then
Do
search_product = Sheets("MY_CATEGORIES").Range("AB" & search_product_range).Value
Selection.Find(What:=search_product, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'LENS THICKNESS
' subcategory5 = ""
' If InStr(ActiveCell, "52MM") > 0 Then subcategory5 = "52MM"
' If InStr(ActiveCell, "57MM") > 0 Then subcategory5 = "57MM"

'SIZE SEARCH
subcategory3 = ""
'XSMALL
If InStr(ActiveCell, "X-Small") > 0 Then subcategory3 = "Extra Small"
'SMALL
If InStr(ActiveCell, "Small") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Size S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Black-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "########-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "White-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Purple-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Turquoise-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cocoa-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Green-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Cherry-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Fuchsia-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Beige-S") > 0 Then subcategory3 = "Small"
If InStr(ActiveCell, "Unique Colors-S") > 0 Then subcategory3 = "Small"
'SMALL-MEDIUM
If InStr(ActiveCell, "S/M") > 0 Then subcategory3 = "Small-Medium"
'MEDIUM
If InStr(ActiveCell, "Medium") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Size M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Black-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "########-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "White-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Purple-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Turquoise-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cocoa-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Green-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Cherry-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Fuchsia-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Beige-M") > 0 Then subcategory3 = "Medium"
If InStr(ActiveCell, "Unique Colors-M") > 0 Then subcategory3 = "Medium"
'LARGE
If InStr(ActiveCell, "Large") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Black-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "########-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "White-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Purple-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Turquoise-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cocoa-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Green-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Cherry-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Fuchsia-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Beige-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Unique Colors-L") > 0 Then subcategory3 = "Large"
If InStr(ActiveCell, "Size L") > 0 Then subcategory3 = "Large"
'L-XL
If InStr(ActiveCell, "L/XL") > 0 Then subcategory3 = "Large-1X Large"

'1XL
If InStr(ActiveCell, "XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Black-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "X-Large") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "########-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "White-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Purple-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Turquoise-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cocoa-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Green-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Cherry-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Fuchsia-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Beige-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "Unique Colors-XL") > 0 Then subcategory3 = "1X Large"
If InStr(ActiveCell, "1XL") > 0 Then subcategory3 = "1X Large"
'2XL
If InStr(ActiveCell, "XX") > 0 Then subcategory3 = "2X Large"
If InStr(ActiveCell, "2XL") > 0 Then subcategory3 = "2X Large"
'3XL
If InStr(ActiveCell, "XXX") > 0 Then subcategory3 = "3X Large"
If InStr(ActiveCell, "3XL") > 0 Then subcategory3 = "3X Large"
'4XL
If InStr(ActiveCell, "XXXX") > 0 Then subcategory3 = "4X Large"
If InStr(ActiveCell, "4XL") > 0 Then subcategory3 = "4X Large"
'5XL
If InStr(ActiveCell, "XXXXX") > 0 Then subcategory3 = "5X Large"
If InStr(ActiveCell, "5XL") > 0 Then subcategory3 = "5X Large"
'6XL
If InStr(ActiveCell, "XXXXXX") > 0 Then subcategory3 = "6X Large"
If InStr(ActiveCell, "6XL") > 0 Then subcategory3 = "6X Large"

'YOUTH SIZES
If InStr(ActiveCell, "YS") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "YM") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "YL") > 0 Then subcategory3 = "Youth Large"
If InStr(ActiveCell, "Youth Small") > 0 Then subcategory3 = "Youth Small"
If InStr(ActiveCell, "Youth Medium") > 0 Then subcategory3 = "Youth Medium"
If InStr(ActiveCell, "Youth Large") > 0 Then subcategory3 = "Youth Large"
'WOMENS SIZES
If InStr(ActiveCell, "-32") > 0 Then subcategory3 = "Size 32"
If InStr(ActiveCell, "-34") > 0 Then subcategory3 = "Size 34"
If InStr(ActiveCell, "-36") > 0 Then subcategory3 = "Size 36"
If InStr(ActiveCell, "-38") > 0 Then subcategory3 = "Size 38"
If InStr(ActiveCell, "-40") > 0 Then subcategory3 = "Size 40"
If InStr(ActiveCell, "-42") > 0 Then subcategory3 = "Size 42"
If InStr(ActiveCell, "-44") > 0 Then subcategory3 = "Size 44"
If InStr(ActiveCell, "-46") > 0 Then subcategory3 = "Size 46"
'COLOR SEARCH
subcategory4 = ""
If InStr(ActiveCell, "Beige") > 0 Then subcategory4 = "Beige"
If InStr(ActiveCell, "Black") > 0 Then subcategory4 = "Black"
If InStr(ActiveCell, "Blue Bird") > 0 Then subcategory4 = "Blue Bird"
If InStr(ActiveCell, "Brown") > 0 Then subcategory4 = "Brown"
If InStr(ActiveCell, "Camo") > 0 Then subcategory4 = "Camo"
If InStr(ActiveCell, "Cherry") > 0 Then subcategory4 = "Cherry"
If InStr(ActiveCell, "Cocoa") > 0 Then subcategory4 = "Cocoa"
If InStr(ActiveCell, "Fuchsia") > 0 Then subcategory4 = "Fuchsia"
If InStr(ActiveCell, "Est. In 1997 Tee-Shirt") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Gray") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Grey") > 0 Then subcategory4 = "Gray"
If InStr(ActiveCell, "Green") > 0 Then subcategory4 = "Green"
If InStr(ActiveCell, "Heather") > 0 Then subcategory4 = "Heather"
If InStr(ActiveCell, "Khaki") > 0 Then subcategory4 = "Khaki"
If InStr(ActiveCell, "Maroon") > 0 Then subcategory4 = "Maroon"
If InStr(ActiveCell, "Navy") > 0 Then subcategory4 = "Navy Blue"
If InStr(ActiveCell, "########") > 0 Then subcategory4 = "########"
If InStr(ActiveCell, "Olive Drab") > 0 Then subcategory4 = "Olive Drab"
If InStr(ActiveCell, "Purple") > 0 Then subcategory4 = "Purple"
If InStr(ActiveCell, " Red ") > 0 Then subcategory4 = "Red"
If InStr(ActiveCell, "Royal") > 0 Then subcategory4 = "Royal Blue"
If InStr(ActiveCell, "Turquoise") > 0 Then subcategory4 = "Turquoise"
If InStr(ActiveCell, "Unique Colors") > 0 Then subcategory4 = "Unique Colors"
If InStr(ActiveCell, "White") > 0 Then subcategory4 = "White"

If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 & "^" & subcategory3 & "^" & subcategory4

If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And subcategory3 = "" Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 & "^" & subcategory4
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And subcategory4 = "" Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 & "^" & subcategory3
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And subcategory1 = "Headwear" Then ActiveCell.Offset(0, 24).Value = category & "^" & subcategory1 & "^" & subcategory2 ' & "^" & subcategory5

If ActiveCell.Offset(0, 7).Value = subcategory1_search_value Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value = "" Then subcategory2 = search_product
If ActiveCell.Offset(0, 7).Value = subcategory1_search_value And Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value <> "" Then subcategory2 = Sheets("MY_CATEGORIES").Range("AC" & search_product_range).Value

Loop Until ActiveCell.Offset(0, -4).Value = product_first_find
End If
search_product_range = search_product_range + 1
product_first_find = ""
Loop Until search_product = ""
subcategory1_search_range = subcategory1_search_range + 1
subcategory1_search_value = Sheets("MY_CATEGORIES").Range("I" & subcategory1_search_range).Value
subcategory1 = ""
Loop Until subcategory1_search_value = ""
End Sub