Big Brand Clothing Code

Logic will be to make them all disappear so create a Call All_Gone sub routine.

Sub All_Gone
Label46.visible = false
Label57.visible = false
Label59.visible = false
Label56.visible = false
Label74.visible = false
Label51.visible = false
Label60.visible = false
Label53.visible = false
Label57.visible = false
Label75.visible = false
Label49.visible = false
Label50.visible = false
Label55.visible = false
Label62.visible = false
Label48.visible = false
Label54.visible = false
Label58.visible = false
Label61.visible = false
D128.visible = false
D130.visible = false
D137.visible = false
D131.visible = false
D143.visible = false
D113.visible = false
D139.visible = false
D142.visible = false
D133.visible = false
D144.visible = false
D140.visible = false
D134.visible = false
D129.visible = false
D138.visible = false
D132.visible = false
D127.visible = false
D135.visible = false
D141.visible = false

‘Spare
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘Label46.visible = false
‘D134.visible = false
‘D129.visible = false
‘D138.visible = false
‘D132.visible = false
‘D127.visible = false
‘D135.visible = false
‘D141.visible = false

End Sub

Then as each time the Category1 changes, all are cleared of data and hidden, then according to the rules, see which ones then reappear in the correct positions.

‘Show the applicable labels and fields

Label46.visible = true
Label57.visible = true
Label59.visible = true
Label56.visible = true
Label74.visible = true
Label51.visible = true
Label60.visible = true
Label53.visible = true
Label57.visible = true
Label57.visible = true

D140.visible = true
D134.visible = true
D129.visible = true
D138.visible = true
D132.visible = true
D127.visible = true
D135.visible = true
D141.visible = true
D135.visible = true
D141.visible = true

‘First Column

With Label1x
.Left = 9
.Top = 60
End with

With Label1x
.Left = 9
.Top = 84
End with

With Label1x
.Left = 9
.Top = 108
End with

With Label1x
.Left = 9
.Top = 132
End with

With Label1x
.Left = 9
.Top = 156
End with

With Dx
.Left = 165
.Top = 57
End with

With Dx
.Left = 165
.Top = 81
End with

With Dx
.Left = 165
.Top = 105
End with

With Dx
.Left = 165
.Top = 129
End with

With Dx
.Left = 165
.Top = 153
End with

‘Second Column

With Label1x
.Left = 303
.Top = 60
End with

With Label1x
.Left = 303
.Top = 84
End with

With Label1x
.Left = 303
.Top = 108
End with

With Label1x
.Left = 303
.Top = 132
End with

With Label1x
.Left = 303
.Top = 156
End with

With Dx
.Left = 399
.Top = 57
End with

With Dx
.Left = 399
.Top = 81
End with

With Dx
.Left = 399
.Top = 105
End with

With Dx
.Left = 399
.Top = 129
End with

With Dx
.Left = 399
.Top = 153
End with

Datanology