M
mju
h = 3
Data = Array (Color, Item, Scent)
For x = 1 To 2
If data(x) = 0 Then GoTo Nex
h = h + 1
With ActiveSheet.PivotTables(PvtableName).PivotFields(FieldCodes(x + 5))
.Orientation = xlColumnField
' #2 .PivotItems("(blank)").Visible = False
.Subtotals = Array (_
False, False, False, False, False, False, False, False, False,
False, False, False)
' .ShowAllItems = True
End With
' h = 11
ST = FieldCodes(x + 5)
Nex:
Next x
How do I find the last column in a worksheet? I know that the total column
count in excel is 256.
e.g….
Item 1(Color) in my array need 300 columns but excel is maxed out at 256.How
do I get it to ignore item 1(Color) because it will require more than 256
columns and go to the next?
Data = Array (Color, Item, Scent)
For x = 1 To 2
If data(x) = 0 Then GoTo Nex
h = h + 1
With ActiveSheet.PivotTables(PvtableName).PivotFields(FieldCodes(x + 5))
.Orientation = xlColumnField
' #2 .PivotItems("(blank)").Visible = False
.Subtotals = Array (_
False, False, False, False, False, False, False, False, False,
False, False, False)
' .ShowAllItems = True
End With
' h = 11
ST = FieldCodes(x + 5)
Nex:
Next x
How do I find the last column in a worksheet? I know that the total column
count in excel is 256.
e.g….
Item 1(Color) in my array need 300 columns but excel is maxed out at 256.How
do I get it to ignore item 1(Color) because it will require more than 256
columns and go to the next?