macro not working !!!

paquirl

paquirl

Board Regular
Joined
Oct 12, 2010
Messages
226
Office Version
  1. 2016
Platform
  1. Windows
below is the macro i created to mark all the rows i wanted with an x in the far right column, and then filter the far right column to show rows i had marked with an x. :confused:

Sub ABSOLUTEXCOLUMN()
'
' ABSOLUTEXCOLUMN Macro
' Macro recorded 3/10/2011 by Andrew Quirl
'
' Keyboard Shortcut: Ctrl+Shift+H
'
Range("AM4").Select
ActiveCell.FormulaR1C1 = "marked"
With ActiveCell.Characters(Start:=1, Length:=6).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Rows("4:4").Select
Range("U4").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:=">=5 to 6 weeks", Operator:= _
xlAnd
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 23
Range("AM5").Select
ActiveCell.FormulaR1C1 = "x"
Selection.FillDown
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.AutoFilter Field:=7
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollRow = 380
ActiveWindow.ScrollRow = 377
ActiveWindow.ScrollRow = 369
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 313
ActiveWindow.ScrollRow = 305
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 257
ActiveWindow.ScrollRow = 241
ActiveWindow.ScrollRow = 228
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 202
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 138
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
Selection.AutoFilter Field:=25, Criteria1:=">(35) Active", Operator:= _
xlAnd
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
Range("AM6").Select
ActiveCell.FormulaR1C1 = "x"
Selection.FillDown
Selection.AutoFilter Field:=25
Selection.AutoFilter Field:=38, Criteria1:="Yes"
Range("AM1026").Select
ActiveCell.FormulaR1C1 = "x"
Selection.FillDown
Selection.AutoFilter Field:=38
Selection.AutoFilter Field:=39, Criteria1:="x"
ActiveWindow.ScrollRow = 2062
ActiveWindow.ScrollRow = 2057
ActiveWindow.ScrollRow = 2051
ActiveWindow.ScrollRow = 2046
ActiveWindow.ScrollRow = 2043
ActiveWindow.ScrollRow = 2038
ActiveWindow.ScrollRow = 2035
ActiveWindow.ScrollRow = 2027
ActiveWindow.ScrollRow = 2022
ActiveWindow.ScrollRow = 2014
ActiveWindow.ScrollRow = 2009
ActiveWindow.ScrollRow = 1998
ActiveWindow.ScrollRow = 1985
ActiveWindow.ScrollRow = 1974
ActiveWindow.ScrollRow = 1961
ActiveWindow.ScrollRow = 1950
ActiveWindow.ScrollRow = 1937
ActiveWindow.ScrollRow = 1910
ActiveWindow.ScrollRow = 1897
ActiveWindow.ScrollRow = 1875
ActiveWindow.ScrollRow = 1854
ActiveWindow.ScrollRow = 1833
ActiveWindow.ScrollRow = 1793
ActiveWindow.ScrollRow = 1750
ActiveWindow.ScrollRow = 1718
ActiveWindow.ScrollRow = 1676
ActiveWindow.ScrollRow = 1649
ActiveWindow.ScrollRow = 1628
ActiveWindow.ScrollRow = 1612
ActiveWindow.ScrollRow = 1585
ActiveWindow.ScrollRow = 1569
ActiveWindow.ScrollRow = 1545
ActiveWindow.ScrollRow = 1524
ActiveWindow.ScrollRow = 1502
ActiveWindow.ScrollRow = 1465
ActiveWindow.ScrollRow = 1444
ActiveWindow.ScrollRow = 1431
ActiveWindow.ScrollRow = 1423
ActiveWindow.ScrollRow = 1415
ActiveWindow.ScrollRow = 1409
ActiveWindow.ScrollRow = 1401
ActiveWindow.ScrollRow = 1393
ActiveWindow.ScrollRow = 1383
ActiveWindow.ScrollRow = 1377
ActiveWindow.ScrollRow = 1367
ActiveWindow.ScrollRow = 1353
ActiveWindow.ScrollRow = 1321
ActiveWindow.ScrollRow = 1297
ActiveWindow.ScrollRow = 1287
ActiveWindow.ScrollRow = 1271
ActiveWindow.ScrollRow = 1263
ActiveWindow.ScrollRow = 1225
ActiveWindow.ScrollRow = 1209
ActiveWindow.ScrollRow = 1196
ActiveWindow.ScrollRow = 1177
ActiveWindow.ScrollRow = 1151
ActiveWindow.ScrollRow = 1137
ActiveWindow.ScrollRow = 1119
ActiveWindow.ScrollRow = 1103
ActiveWindow.ScrollRow = 1095
ActiveWindow.ScrollRow = 1081
ActiveWindow.ScrollRow = 1065
ActiveWindow.ScrollRow = 1039
ActiveWindow.ScrollRow = 1034
ActiveWindow.ScrollRow = 1026
ActiveWindow.ScrollRow = 1018
ActiveWindow.ScrollRow = 914
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 874
ActiveWindow.ScrollRow = 844
ActiveWindow.ScrollRow = 842
ActiveWindow.ScrollRow = 812
ActiveWindow.ScrollRow = 780
ActiveWindow.ScrollRow = 759
ActiveWindow.ScrollRow = 735
ActiveWindow.ScrollRow = 658
ActiveWindow.ScrollRow = 628
ActiveWindow.ScrollRow = 591
ActiveWindow.ScrollRow = 567
ActiveWindow.ScrollRow = 503
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 455
ActiveWindow.ScrollRow = 421
ActiveWindow.ScrollRow = 399
ActiveWindow.ScrollRow = 383
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 378
ActiveWindow.ScrollRow = 375
ActiveWindow.ScrollRow = 373
ActiveWindow.ScrollRow = 370
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 341
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 317
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 311
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 298
ActiveWindow.ScrollRow = 293
ActiveWindow.ScrollRow = 290
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 274
ActiveWindow.ScrollRow = 271
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 245
ActiveWindow.ScrollRow = 242
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 229
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 208
ActiveWindow.ScrollRow = 205
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 186
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 176
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 168
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
End Sub
 

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.
Sort by date Sort by votes
Hint: You don't need all the activewindow.scrollcolumn commands.

Not that I'm saying that's what's making the code fail, but it does make it somewhat trickier to read.

Also it might help if you expand upon 'not working' actually means in this context.
 
Upvote 0
i dont write my own code, i just use the macro recorder, so all the activewindow.scrollcolumn commands are just me selecting multiple rows. I dont know how to shorten the code.

in this macro, "not working" means no results are displayed when the macro is run, just the column headings, no rows.

basically what i want is to be able to mark rows affected by one filter, turn the filter off, mark rows affected by a second filter, turn that filter off, mark rows affected by a third filter, turn that filter off, and then show all the rows i marked.
 
Upvote 0
Try ~

Code: 
Sub ABSOLUTEXCOLUMN()
'
' ABSOLUTEXCOLUMN Macro
' Macro recorded 3/10/2011 by Andrew Quirl
'
' Keyboard Shortcut: Ctrl+Shift+H
'
 Range("AM4").Select
    ActiveCell.FormulaR1C1 = "marked"
With ActiveCell.Characters(Start:=1, Length:=6).Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 8
End With
 Range("A4:AM4").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:=">=5 to 6 weeks"
 Range("OFFSET($AM$5,0,0,COUNT(OFFSET($G$5,0,0,9999)),1)").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.FormulaR1C1 = "x"
    Selection.AutoFilter Field:=7
    Selection.AutoFilter Field:=25, Criteria1:=">(35) Active"
 Range("OFFSET($AM$5,0,0,COUNT(OFFSET($G$5,0,0,9999)),1)").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.FormulaR1C1 = "x"
    Selection.AutoFilter Field:=25
    Selection.AutoFilter Field:=38, Criteria1:="Yes"
 Range("OFFSET($AM$5,0,0,COUNT(OFFSET($G$5,0,0,9999)),1)").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.FormulaR1C1 = "x"
    Selection.AutoFilter Field:=38
    Selection.AutoFilter Field:=39, Criteria1:="x"
End Sub
 
Upvote 0
the red line below is what was highlighted in the debugger ...

Sub ABSOLUTEXCOLUMN()
'
' ABSOLUTEXCOLUMN Macro
' Macro recorded 3/10/2011 by Andrew Quirl
'
' Keyboard Shortcut: Ctrl+Shift+H
'
Range("AM4").Select
ActiveCell.FormulaR1C1 = "marked"
With ActiveCell.Characters(Start:=1, Length:=6).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 8
End With
Range("A4:AM4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:=">=5 to 6 weeks"
Range("OFFSET($AM$5,0,0,COUNT(OFFSET($G$5,0,0,9999)),1)").Select
 Selection.SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "x"
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=25, Criteria1:=">(35) Active"
Range("OFFSET($AM$5,0,0,COUNT(OFFSET($G$5,0,0,9999)),1)").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "x"
Selection.AutoFilter Field:=25
Selection.AutoFilter Field:=38, Criteria1:="Yes"
Range("OFFSET($AM$5,0,0,COUNT(OFFSET($G$5,0,0,9999)),1)").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "x"
Selection.AutoFilter Field:=38
Selection.AutoFilter Field:=39, Criteria1:="x"
End Sub
 
Upvote 0
Step through the macro instead of running the macro
when you get to the debug line is column G (filter 7) showing any data?

If the line before the debug shows no information when filtered the debug line can't select anything. column G must have data

You may have to change
Selection.AutoFilter Field:=7, Criteria1:=">=5 to 6 weeks"
To
Selection.AutoFilter Field:=7, Criteria1:="=5 to 6 weeks"
 
Upvote 0
if i do that i dont know how to make it use the other choices, like 7 to 8 weeks and 9+ weeks.

i have tried using the advanced filter feature and i think it might be the way to go. any experience with that feature? is it reliable?
 
Upvote 0
No don't use the advanced filter
copy and paste 20 lines of column G to here and I will test.
 
Upvote 0
<TABLE style="WIDTH: 281pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=373 x:str><COLGROUP><COL style="WIDTH: 30pt; mso-width-source: userset; mso-width-alt: 1462" width=40><COL style="WIDTH: 44pt; mso-width-source: userset; mso-width-alt: 2121" width=58><COL style="WIDTH: 26pt; mso-width-source: userset; mso-width-alt: 1280" width=35><COL style="WIDTH: 71pt; mso-width-source: userset; mso-width-alt: 3437" width=94><COL style="WIDTH: 31pt; mso-width-source: userset; mso-width-alt: 1499" width=41><COL style="WIDTH: 29pt; mso-width-source: userset; mso-width-alt: 1389" width=38><COL style="WIDTH: 50pt; mso-width-source: userset; mso-width-alt: 2450" width=67><TBODY><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Bonded</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01564382</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>10</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>29</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>5 to 6 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01564531</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>10</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>29</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>5 to 6 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Thin Wheel</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01564688</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>40</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>29</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>5 to 6 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Thin Wheel</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01564689</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>10</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>29</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>5 to 6 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01556316</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>30</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4003</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Bonded</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9403</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01564485</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>10</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01564688</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>280</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01565488</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>170</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4003</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Thin Wheel</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9403</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01565968</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>30</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4003</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Thin Wheel</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9403</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01565982</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>40</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4003</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9403</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01566055</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>10</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Bonded</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01566104</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>60</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01566175</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>70</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01566379</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>70</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Coated</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01566951</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>10</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR><TR style="HEIGHT: 45pt; mso-height-source: userset" height=60><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 30pt; HEIGHT: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 height=60 width=40>4001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 44pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=58>Bonded</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 26pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=35>9402</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 71pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=94>01566952</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 31pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=41 x:num>80</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 29pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=38 x:num>28</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 50pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl26 width=67>3 to 4 weeks</TD></TR></TBODY></TABLE>
 
Upvote 0
The debug line could not count text in column G
So new macro ~



Code: 
Sub ABSOLUTEXCOLUMN()
'
' ABSOLUTEXCOLUMN Macro
' Macro recorded 3/10/2011 by Andrew Quirl
'
' Keyboard Shortcut: Ctrl+Shift+H
'
Range("AM4").Select
ActiveCell.FormulaR1C1 = "marked"
With ActiveCell.Characters(Start:=1, Length:=6).Font
   .Name = "Arial"
   .FontStyle = "Bold"
   .Size = 8
End With
Range("A4:AM4").Select
   Selection.AutoFilter
   Selection.AutoFilter Field:=7, Criteria1:=">=5 to 6 weeks"
Range("OFFSET($AM$5,0,0,COUNT(OFFSET($A$5,0,0,9999)),1)").Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Selection.FormulaR1C1 = "x"
   Selection.AutoFilter Field:=7
   Selection.AutoFilter Field:=25, Criteria1:=">(35) Active"
Range("OFFSET($AM$5,0,0,COUNT(OFFSET($A$5,0,0,9999)),1)").Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Selection.FormulaR1C1 = "x"
   Selection.AutoFilter Field:=25
   Selection.AutoFilter Field:=38, Criteria1:="Yes"
Range("OFFSET($AM$5,0,0,COUNT(OFFSET($A$5,0,0,9999)),1)").Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Selection.FormulaR1C1 = "x"
   Selection.AutoFilter Field:=38
   Selection.AutoFilter Field:=39, Criteria1:="x"
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

VinceF
  • Solved
Clear Contents From 2 Sheets
Replies
8
Views
532
VinceF
VinceF
VinceF
  • Solved
VBA to Copy paste value based on value in cell
Replies
4
Views
486
VinceF
VinceF
C
  • Solved
Automation error The Object invoked has disconnected from its clients.
Replies
7
Views
1K
cstuder
C
D
  • Question Question
Macro to Keep Sheet Names as Sheet1 and Sheet2
2
Replies
14
Views
1K
djmnon
D
An Quala
  • Question Question
Should I name it Active.Sheet or sheet name?
Replies
8
Views
913
MARK858
MARK858

Forum statistics

Threads
1,224,520
Messages
6,179,270
Members
452,902
Latest member
Knuddeluff

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top