1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub Macro2()
'
'
Workbooks.OpenText Filename:= _
"N:\test\HPL816_M108_L312.asc" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("C:C").Select
Selection.AutoFilter Field:=1, Criteria1:="=18FFF9EBx*"
Range("A2:A185000").Select
Selection.Copy
Windows("Classeur1").Activate
Cells(65535, 1).End(xlUp)(2).Select
ActiveSheet.Paste
End Sub |
Partager