Prev: Updating Excel QueryTable using VB
Next: Personal.xlsb always locked
From: brittonsm on 18 Jan 2010 17:43
I can't find the answer to this can someone help me finish this code -
I need to set the autofilter to the values in the Array - Using XL2007

With Worksheets("Ariba Export")
UpLoadArray = .Range("A2", .Range("A" & Rows.Count).End
(xlUp)).Value
End With

ActiveCell.SpecialCells(xlLastCell).Select
End_Cell = ActiveCell.Row
End_Column = ActiveCell.Column
Range("A1").Select
Range("A1", ActiveCell.Offset(End_Cell - 1, End_Column -
1)).AutoFilter
ActiveSheet.Range("A1", ActiveCell.Offset(End_Cell - 1, End_Column
- 1)).AutoFilter Field:=6, Criteria1:=ArrayUpLoadArray,
Operator:=xlFilterValues
 | 
Pages: 1
Prev: Updating Excel QueryTable using VB
Next: Personal.xlsb always locked