Visual Basic - Calificador no valido con dos libros diferentes

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado su posición en 15 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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.

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 String
    Dim 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_Resumen
        proyectoR = 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_Programa
            proyectoP = Sheets("Programa 2018").Cells(cont2, 2)
            ccs = Sheets("Programa 2018").Cells(cont2, 1)
 
            If proyectoR = proyectoP Then
                arreglo_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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Calificador no valido con dos libros diferentes

Publicado por Antoni Masana (560 intervenciones) el 25/09/2018 07:32:58
No se que pretendes hacer pero si se lo que no haces bien.

Defines arreglo_Resumen como tipo Long, le asignas un número, línea 9, hasta aquí bien.

Y en la línea 26 lo intentas usar como un String para seleccionar una hoja ¿...?

Ese es el error

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
sub DatosF1()
 
    Dim arreglo_Resumen As Long
    Dim arreglo_Programa As Long
    Dim proyectoR, proyectoP As String
    Dim 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_Resumen
        proyectoR = 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_Programa
            proyectoP = Sheets("Programa 2018").Cells(cont2, 2)
            ccs = Sheets("Programa 2018").Cells(cont2, 1)
 
            If proyectoR = proyectoP Then
               arreglo_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 Su

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 6
Ha aumentado su posición en 15 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Calificador no valido con dos libros diferentes

Publicado por veronica avila (3 intervenciones) el 25/09/2018 14:53:34
EN la linea 26 lo que trato de hacer es hacer referencia al los datos que estan en el arreglo_Programa y posicionarme en el arreglo_Resumen...

Lo que intento hacer es de un libro (ya abierto), mandar llamar ciertos parámetros de otro archivo (Archivo cerrado) y colocarlos en la tabla.
ej.
tengo mi archivo1 que tiene una tabla con 2 columnas, id y proyecto. En ésta tabla sólo tengo el id.
En el archivo2 tiene una tabla con id, proyetco y comentario, y aqui haciendo una comparación con los id's de cada tabla poder devolver el valor (string) del campo proyecto de la tabla en el archivo2 a la columna proyecto del archivo1.

En pocas palabras eso es lo que trato de hacer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 6
Ha aumentado su posición en 15 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Calificador no valido con dos libros diferentes

Publicado por veronica (3 intervenciones) el 25/09/2018 16:03:28
Tenías mucha razón, muchas gracias por tu comentario, me ayudó de mucho.
Mil gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar