el tema es que estoy generando un libro de trabajo con macros, ya había generado la macro para que me actualizara de unos archivos que se bajan en sistema pero se me esta atorando en la marte marcada con negritas, les dejo el archivo para ver si me pueden ayudar. y haber si se puede hacer mas pequeña
Perdón que les anexe así la macro es que no me deja subir el archivo de excel
Sub Actualizar1()
'
' Actualizar1 Macro
'
Sheets("NOtas de entrega").Visible = True
Sheets("Inventario").Visible = True
que tal buen día espero y me puedan ayudar.
el tema es que estoy generando un libro de trabajo con macros, ya había generado la macro para que me actualizara de unos archivos que se bajan en sistema pero se me esta atorando en la marte marcada con negritas, les dejo el archivo para ver si me pueden ayudar. y haber si se puede hacer mas pequeña
Perdón que les anexe así la macro es que no me deja subir el archivo de excel
Sub Actualizar1()
'
' Actualizar1 Macro
'
Sheets("NOtas de entrega").Visible = True
Sheets("Inventario").Visible = True
Sheets("NOtas de entrega").Select
Range("B3:AD3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear
Range("B3").Select
Windows("VL06N.MHTML").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("AC:AC").Select
Selection.TextToColumns Destination:=Range("AC1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Range("E1").Select
ActiveSheet.Range("$A$1:$AL$159").AutoFilter Field:=5, Criteria1:="0"
Rows("19:19").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
Range("E1").Select
ActiveSheet.Range("$A$1:$AL$114").AutoFilter Field:=5
Range("O1").Select
ActiveSheet.Range("$A$1:$AL$114").AutoFilter Field:=15, Criteria1:=Array( _
"3000027", "3000056", "5000056", "5000024", "5000023", "5000021", "5000012", "5000060", "5000070", "5000082", "5000061", "5000050", "5000120", "5000041", "5000135", "5000040", "2000010", "3000357", "2000011", "5000010", "5000130", "5000045", "5000019", "2000005", "2000001", "5000051", "5000095", "5000037", "2000017", "5000105", "5000115", "5000018", "5000049", "2000008", "5000033", "5000031", "1000002", "5000055", "5000145", "5000121", "3000356", "5000020", "3000355", "5000146", "5000090", "4000846"), _
Operator:=xlFilterValues
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
Range("O1").Select
ActiveSheet.Range("$A$1:$AL$60").AutoFilter Field:=15
Range("A2:AC2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Copia de Copia de Formato sai IMSS 2018 pruebas.xlsm").Activate
Range("B3").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.SmallScroll Down:=-36
Range("B3").Select
Sheets("Inventario").Select
Range("B2:AM2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear
Range("B2").Select
Windows("Inventarios.MHTML").Activate
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A2:M2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A2:AL2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Copia de Copia de Formato sai IMSS 2018 pruebas.xlsm").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=225
ActiveWindow.ScrollRow = 219
ActiveWindow.ScrollRow = 274
ActiveWindow.ScrollRow = 629
ActiveWindow.ScrollRow = 1639
ActiveWindow.ScrollRow = 1721
ActiveWindow.ScrollRow = 1830
ActiveWindow.ScrollRow = 1940
ActiveWindow.ScrollRow = 2404
ActiveWindow.ScrollRow = 3032
ActiveWindow.ScrollRow = 3496
ActiveWindow.ScrollRow = 3660
ActiveWindow.ScrollRow = 4753
ActiveWindow.ScrollRow = 5162
ActiveWindow.ScrollRow = 6091
ActiveWindow.ScrollRow = 6309
ActiveWindow.ScrollRow = 7074
ActiveWindow.ScrollRow = 7156
ActiveWindow.ScrollRow = 7566
ActiveWindow.ScrollRow = 7757
ActiveWindow.ScrollRow = 7975
ActiveWindow.ScrollRow = 8112
ActiveWindow.ScrollRow = 8303
ActiveWindow.ScrollRow = 8330
ActiveWindow.ScrollRow = 8440
ActiveWindow.ScrollRow = 8494
ActiveWindow.ScrollRow = 8603
ActiveWindow.ScrollRow = 8494
ActiveWindow.ScrollRow = 8330
ActiveWindow.ScrollRow = 8139
ActiveWindow.ScrollRow = 7320
ActiveWindow.ScrollRow = 7156
ActiveWindow.ScrollRow = 6856
ActiveWindow.ScrollRow = 6692
ActiveWindow.ScrollRow = 6309
ActiveWindow.ScrollRow = 6118
ActiveWindow.ScrollRow = 5845
ActiveWindow.ScrollRow = 5818
ActiveWindow.ScrollRow = 5736
ActiveWindow.ScrollRow = 5708
ActiveWindow.ScrollRow = 5599
ActiveWindow.ScrollRow = 5572
ActiveWindow.ScrollRow = 5545
ActiveWindow.ScrollRow = 5517
ActiveWindow.ScrollRow = 5435
ActiveWindow.ScrollRow = 5381
ActiveWindow.ScrollRow = 5353
ActiveWindow.ScrollRow = 5271
ActiveWindow.ScrollRow = 5244
ActiveWindow.ScrollRow = 5108
ActiveWindow.ScrollRow = 5053
ActiveWindow.ScrollRow = 4998
ActiveWindow.ScrollRow = 4971
ActiveWindow.ScrollRow = 4944
ActiveWindow.ScrollRow = 4916
ActiveWindow.ScrollRow = 4889
ActiveWindow.ScrollRow = 4862
ActiveWindow.ScrollRow = 4916
ActiveWindow.ScrollRow = 4998
ActiveWindow.ScrollRow = 5135
ActiveWindow.ScrollRow = 5162
ActiveWindow.ScrollRow = 5080
ActiveWindow.ScrollRow = 4862
ActiveWindow.ScrollRow = 4534
ActiveWindow.ScrollRow = 4452
ActiveWindow.ScrollRow = 4343
ActiveWindow.ScrollRow = 4316
ActiveWindow.ScrollRow = 4288
ActiveWindow.ScrollRow = 4234
ActiveWindow.ScrollRow = 4206
ActiveWindow.ScrollRow = 4152
ActiveWindow.ScrollRow = 4124
ActiveWindow.ScrollRow = 4070
ActiveWindow.ScrollRow = 4043
ActiveWindow.ScrollRow = 4015
ActiveWindow.ScrollRow = 3961
ActiveWindow.ScrollRow = 3933
ActiveWindow.ScrollRow = 3879
ActiveWindow.ScrollRow = 3851
ActiveWindow.ScrollRow = 3797
ActiveWindow.ScrollRow = 3769
ActiveWindow.ScrollRow = 3715
ActiveWindow.ScrollRow = 3687
ActiveWindow.ScrollRow = 3660
ActiveWindow.ScrollRow = 3633
ActiveWindow.ScrollRow = 3606
ActiveWindow.ScrollRow = 3578
ActiveWindow.ScrollRow = 3496
ActiveWindow.ScrollRow = 3469
ActiveWindow.ScrollRow = 3442
ActiveWindow.ScrollRow = 3387
ActiveWindow.ScrollRow = 3332
ActiveWindow.ScrollRow = 3305
ActiveWindow.ScrollRow = 3250
ActiveWindow.ScrollRow = 3223
ActiveWindow.ScrollRow = 3196
ActiveWindow.ScrollRow = 3169
ActiveWindow.ScrollRow = 3141
ActiveWindow.ScrollRow = 3114
ActiveWindow.ScrollRow = 3087
ActiveWindow.ScrollRow = 3032
ActiveWindow.ScrollRow = 3005
ActiveWindow.ScrollRow = 2950
ActiveWindow.ScrollRow = 2923
ActiveWindow.ScrollRow = 2895
ActiveWindow.ScrollRow = 2868
ActiveWindow.ScrollRow = 2814
ActiveWindow.ScrollRow = 2786
ActiveWindow.ScrollRow = 2732
ActiveWindow.ScrollRow = 2677
ActiveWindow.ScrollRow = 2650
ActiveWindow.ScrollRow = 2622
ActiveWindow.ScrollRow = 2595
ActiveWindow.ScrollRow = 2486
ActiveWindow.ScrollRow = 2458
ActiveWindow.ScrollRow = 2404
ActiveWindow.ScrollRow = 2377
ActiveWindow.ScrollRow = 2349
ActiveWindow.ScrollRow = 2322
ActiveWindow.ScrollRow = 2295
ActiveWindow.ScrollRow = 2267
ActiveWindow.ScrollRow = 2240
ActiveWindow.ScrollRow = 2213
ActiveWindow.ScrollRow = 2185
ActiveWindow.ScrollRow = 2158
ActiveWindow.ScrollRow = 2103
ActiveWindow.ScrollRow = 2076
ActiveWindow.ScrollRow = 2049
ActiveWindow.ScrollRow = 2022
ActiveWindow.ScrollRow = 1967
ActiveWindow.ScrollRow = 1940
ActiveWindow.ScrollRow = 1885
ActiveWindow.ScrollRow = 1858
ActiveWindow.ScrollRow = 1830
ActiveWindow.ScrollRow = 1803
ActiveWindow.ScrollRow = 1721
ActiveWindow.ScrollRow = 1694
ActiveWindow.ScrollRow = 1666
ActiveWindow.ScrollRow = 1639
ActiveWindow.ScrollRow = 1585
ActiveWindow.ScrollRow = 1557
ActiveWindow.ScrollRow = 1530
ActiveWindow.ScrollRow = 1475
ActiveWindow.ScrollRow = 1448
ActiveWindow.ScrollRow = 1393
ActiveWindow.ScrollRow = 1366
ActiveWindow.ScrollRow = 1339
ActiveWindow.ScrollRow = 1311
ActiveWindow.ScrollRow = 1284
ActiveWindow.ScrollRow = 1257
ActiveWindow.ScrollRow = 1202
ActiveWindow.ScrollRow = 1148
ActiveWindow.ScrollRow = 1120
ActiveWindow.ScrollRow = 1038
ActiveWindow.ScrollRow = 984
ActiveWindow.ScrollRow = 956
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 902
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 984
ActiveWindow.ScrollRow = 1175
Range("A1").Select
End Sub