ricardoacevedo
New Member
- Joined
- Mar 17, 2021
- Messages
- 1
- Office Version
- 2016
- Platform
- Windows
I just updated one of the two computers I use and my daily use macro now has a SYNTAX ERROR. It works fine on the computer that has not been updated.
Here is the complete Macro it highlights the following as the error
.Type("$A$1:$AC$37613"). Index := 25, Item := Array("canceled","closed", _
"complete","courier","delivered_fail","entregado_cliente","Enviado_A_Tienda", _
"holded","Incomplete","inPacking","listo_retiro","packing","pendiente_retiro", _
"ready_ship","ready_to_ship","="), Count := xlFilterValues
Thanks in advance.
Here is the complete Macro it highlights the following as the error
.Type("$A$1:$AC$37613"). Index := 25, Item := Array("canceled","closed", _
"complete","courier","delivered_fail","entregado_cliente","Enviado_A_Tienda", _
"holded","Incomplete","inPacking","listo_retiro","packing","pendiente_retiro", _
"ready_ship","ready_to_ship","="), Count := xlFilterValues
VBA Code:
Sub Marzo17()
'
' Marzo17 Macro
'
'
Range("Y1").Select
.Type("$A$1:$AC$37613"). Index := 25, Item := Array("canceled","closed", _
"complete","courier","delivered_fail","entregado_cliente","Enviado_A_Tienda", _
"holded","Incomplete","inPacking","listo_retiro","packing","pendiente_retiro", _
"ready_ship","ready_to_ship","="), Count := xlFilterValues
Rows("18:18").Select
Range("J18").
Type(, .(xlDown)).Select
. := xlUp
.(xlToLeft).Select
.(xlUp).Select
.(xlUp).Select
.(xlUp).Select
.Item
Columns("A:A").Select
. := xlToLeft
Columns("F:F").Select
.
Columns("B:B").Select
. := xlToRight
Columns("C:C").Select
. := xlToRight, := xlFormatFromLeftOrAbove
.(xlUp).Select
.(xlToRight).Select
.(xlToRight).Select
Columns("Z:Z").Select
.
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
.(xlToLeft).Select
Range("C1").Select
.GapWidth
Columns("T:T").Select
.
Columns("E:E").Select
. := xlToRight
Columns("Q:Q").Select
.
Columns("F:F").Select
. := xlToRight
Columns("Y:Y").Select
.
Columns("G:G").Select
. := xlToRight
Columns("U:U").Select
.
Columns("H:H").Select
. := xlToRight
Columns("AC:AC").Select
.
Columns("I:I").Select
. := xlToRight
Columns("M:P").Select
.
Columns("J:J").Select
. := xlToRight
.(xlToLeft).Select
.(xlUp).Select
Range("A1:M1").Select
Range("M1").
With .SortMethod
.WhichAddress = xlSolid
.ActiveSheet = xlAutomatic
.ActiveSheet = 65535
.PercentMin = 0
.Placement = 0
End With
Range("B2:D2").Select
Type(, .(xlDown)).Select
Type(, .(xlDown)).Select
Type(, .(xlDown)).Select
Move. = 1048553
Move. = 1046136
Move. = 1036472
Move. = 947080
Move. = 814199
Move. = 775542
Move. = 628165
Move. = 591925
Move. = 415556
Move. = 374483
Move. = 207778
Move. = 178786
Move. = 118385
Move. = 111137
Move. = 89393
Move. = 48321
Move. = 41073
Move. = 7249
Move. = 1
Columns("B:B")..
Columns("D:D")..
Range("J2:M2").Select
Type(, .(xlDown)).Select
Type(, .(xlDown)).Select
Type(, .(xlDown)).Select
Type(, .(xlDown)).Select
Type(, .(xlDown)).Select
Type(, .(xlDown)).Select
Range("J1048555").Select
.(xlToLeft).Select
.(xlUp).Select
.(xlUp).Select
.(xlUp).Select
.(xlUp).Select
End Sub
Thanks in advance.