Calificador no valido con dos libros diferentes
Publicado por veronica avila (3 intervenciones) el 25/09/2018 00:23:05
Hola,
Si me pueden ayudar por favor, tengo éste código, pero cuando lo ejecuto me aparace un error de ejecución "Calificador no valido", me aparece en la línea 26 en mi variable "arreglo_Resumen", no se que estoy haciendo mal, si alguno me puede ayudar con éste tema se los agradecería.
Si me pueden ayudar por favor, tengo éste código, pero cuando lo ejecuto me aparace un error de ejecución "Calificador no valido", me aparece en la línea 26 en mi variable "arreglo_Resumen", no se que estoy haciendo mal, si alguno me puede ayudar con éste tema se los agradecería.
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
Sub DatosF1()
Dim arreglo_Resumen As Long
Dim arreglo_Programa As Long
Dim proyectoR, proyectoP As StringDim ccs As String
Dim cont1, cont2 As Long 'Selecciona los elementos de la fila "Proyectos" y sis 5 componentes
arreglo_Resumen = Range("C" & Rows.count).End(xlUp).Row
For cont1 = 6 To arreglo_ResumenproyectoR = Cells(cont, 3)
'abrimos libro de PRODUCCIÓN
Workbooks.Open ("C:\Users\mq007200\Documents\A Safran SAESA SHOP\Pantallas shop\F1 Metrics - Macro.xlsx")
'Selecciona los elementos de la fila Proyecto dentro del archivo PRODUCCIÓN y sus componentes
arreglo_Programa = Sheets("Programa 2018").Range("A" & Rows.count).End(xlUp).Row
For cont2 = 2 To arreglo_ProgramaproyectoP = Sheets("Programa 2018").Cells(cont2, 2)
ccs = Sheets("Programa 2018").Cells(cont2, 1)
If proyectoR = proyectoP Thenarreglo_Programa = arreglo_Resumen.Range("B" & Rows.count).End(xlUp).Row
Sheet(arreglo_Resumen).Cells(arreglo_Programa + 1, 2) = ccs
End If
Next cont2
Next cont1
End Sub
Valora esta pregunta
0
