pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fullcode layout changes

Browse Source
This commit is contained in:
Paul Trowbridge 2022-05-19 11:46:05 -04:00
parent c66e05c29e
commit a788a91424
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
PriceLists.bas
View File

@ -542,7 +542,7 @@ Sub build_customer_files()
Set fcws = fcwb.Sheets(1)
fcws.Activate
'fcws.Cells.NumberFormat = "@" 'format all cells to text so pasted text values are not cast to numeric
Call x.SHTp_Dump(fc, fcws.Name, 1, 1, False, True, 6, 7, 8, 9, 10, 11, 12, 13)
Call x.SHTp_Dump(fc, fcws.Name, 1, 1, False, True, 6, 7, 8, 9, 10, 11, 12, 13, 14)
Rows("1:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'--------------------format full code------------------------------------------------------------------------
@ -558,12 +558,16 @@ Sub build_customer_files()
fcws.Columns("A").ColumnWidth = 9.43
fcws.Columns("B").ColumnWidth = 20
fcws.Columns("C:D").ColumnWidth = 35
fcws.Columns("E").ColumnWidth = 13
fcws.Columns("F").ColumnWidth = 3.7
fcws.Columns("H").ColumnWidth = 7
fcws.Columns("E").ColumnWidth = 21.5
fcws.Columns("F").ColumnWidth = 3.71
fcws.Columns("G").ColumnWidth = 9.43
fcws.Columns("G").NumberFormat = "_(* #,##0.000_);_(* (#,##0.000);_(* ""-""???_);_(@_)"
fcws.Columns("H").ColumnWidth = 7.14
fcws.Columns("I:P").ColumnWidth = 14
fcws.Columns("I:N").Style = "Comma"
fcws.Columns("G").Style = "Comma"
fcws.Columns("I:P").NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
fcws.Columns("O").ColumnWidth = 10.57
fcws.Columns("O").NumberFormat = "_(* #,##0.000_);_(* (#,##0.000);_(* ""-""???_);_(@_)"
Rows("3:3").NumberFormat = "General"
fcws.Activate
ActiveWindow.DisplayGridlines = False
Rows("4:4").Select
@ -702,6 +706,8 @@ Sub build_customer_files()
End If
Next i
'--------------------print header data--------------------------------------------------------------------------
pl = x.TBLp_Transpose(pl)
Call x.TBLp_FilterSingle(pl, 20, "", False)
Call x.TBLp_Group(pl, True, x.ARRAYp_MakeInteger(20))