ERROR MACRO POR CAMBIO DE VERSION DE EXCEL
Publicado por Javier (4 intervenciones) el 14/12/2018 01:12:31
Hola tengo un problema con una macro.
Funciona bien con excel 2003 pero con excel 2013 me da el siguiete error y no veo el porque
Error 9 Subindice fuiera de intervalo unas lineas mas abajo señalo donde se para
Funciona bien con excel 2003 pero con excel 2013 me da el siguiete error y no veo el porque
Error 9 Subindice fuiera de intervalo unas lineas mas abajo señalo donde se para
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Sub Leer()
'
' Leer Macro
'
'
' Nombres de las hojas y solapas
'
Entrada = Range("C4")
If Right(Range("C4"), 3) = "txt" Then
Salida = Left(Range("C4"), Len(Range("C4")) - 4) & Range("F4") & ".xls"
Else
Salida = Range("C4") & Range("F4") & ".xls"
End If
Lecturas = "Lecturas"
Principal = "Resumen"
' Crea fichero
'
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Salida, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
' Carga fichero Lecturas en solapa
'
Workbooks.OpenText Filename:=ActiveWorkbook.Path & "\" & Entrada, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, 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), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
Cells.Select Selection.CopyWindows(Salida).Activate
Sheets(Lecturas).Select <-- Aqui se para la macro
ActiveSheet.Paste' Cierra fichero txt
Windows(Entrada).Activate
Range("A1").Select
Selection.CopyWindows(Entrada).Activate
ActiveWindow.Close' Ordenar por ESPECIE y DIAMETRO mm
Call Ordenar(Salida, Lecturas)
Sheets(Principal).Select
ActiveSheet.UnprotectRange("C6").Select
ActiveCell.FormulaR1C1 = "=" & Lecturas & "!R2C3"
Range("C7").Select
ActiveCell.FormulaR1C1 = "=" & Lecturas & "!R2C4"
'
' Salvar el fichero
ActiveWorkbook.Save'
' Crea hojas con grupos
Call Grupos(Principal, Salida, Lecturas)
'
' Crea hojas con grupos
Sheets(Principal).Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Fin_programa:End Sub
Valora esta pregunta
0
