error de ejecución 9, el índice no pertenece a la selección Resuelto

Question

Bonjour,  tengo un pequeño problema de código, bueno, en resumen, quiero pegar los valores de ciertas celdas de todas las hojas (89) del libro de trabajo "Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls" hacia otro libro de trabajo que he llamado "BDD" en la hoja llamada BDD también.  aquí está el código que he escrito:  Sub Macro()  Dim i As Integer Dim k As Integer Dim ws As Worksheet  For i = 2 To 90  For j = 3 To 91 '  Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C12")   Workbooks("BDD").Sheets("BDD").Range("C" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C61")   Workbooks("BDD").Sheets("BDD").Range("F" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("V43")   Workbooks("BDD").Sheets("BDD").Range("G" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F43")   Workbooks("BDD").Sheets("BDD").Range("H" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("B27")   Workbooks("BDD").Sheets("BDD").Range("I" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C27")   Workbooks("BDD").Sheets("BDD").Range("J" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("E48")   Workbooks("BDD").Sheets("BDD").Range("K" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C55")   Workbooks("BDD").Sheets("BDD").Range("M" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F54")   Workbooks("BDD").Sheets("BDD").Range("N" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F86")   Workbooks("BDD").Sheets("BDD").Range("O" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("E89")   Workbooks("BDD").Sheets("BDD").Range("P" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F93")   Workbooks("BDD").Sheets("BDD").Range("Q" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("E90")   Next j Next  End Sub  y cuando lo ejecuto, aparece el mensaje: error de ejecución 9, el índice no pertenece a la selección desafortunadamente no he encontrado una solución, por eso su ayuda sería muy valiosa para mí.  Gracias de antemano    Configuración: Windows XP / Firefox 16.0

Yoda · Accepted Answer

Hola,  Si quieres que el bucle j recorra las pestañas de "copia de masterfile", es necesario que esta variable entre en la referencia de las pestañas de este libro.  Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Hoja" & j).Range("C12")  ¡A+.

isidoh · Answer

```vb
Sub Macro()

Dim i As Integer 
Dim k As Integer

For i = 2 To 90 
    For j = 3 To 91 
        ' 
        Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C12") 
        
        Workbooks("BDD").Sheets("BDD").Range("C" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C61") 
        
        Workbooks("BDD").Sheets("BDD").Range("F" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("V43") 
        
        Workbooks("BDD").Sheets("BDD").Range("G" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F43") 
        
        Workbooks("BDD").Sheets("BDD").Range("H" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("B27") 
        
        Workbooks("BDD").Sheets("BDD").Range("I" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C27") 
        
        Workbooks("BDD").Sheets("BDD").Range("J" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("E48") 
        
        Workbooks("BDD").Sheets("BDD").Range("K" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C55") 
        
        Workbooks("BDD").Sheets("BDD").Range("M" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F54") 
        
        Workbooks("BDD").Sheets("BDD").Range("N" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F86") 
        
        Workbooks("BDD").Sheets("BDD").Range("O" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("E89") 
        
        Workbooks("BDD").Sheets("BDD").Range("P" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F93") 
        
        Workbooks("BDD").Sheets("BDD").Range("Q" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("E90") 
    Next j 
Next i

End Sub
```

michel_m · Answer

Hola  ¿En qué línea se produce el error?  --  Michel

isidoh · Answer

Hola,  no tengo indicaciones sobre la línea, solo aparece el mensaje de error sin ninguna opción de depuración que me permita identificar la línea.

chossette9 · Answer

Hola,  intenta ya reemplazar Workbooks("BDD") por Workbooks("BDD.xls")  Atentamente. -- Ese tipo no era muy inteligente, ya que era ingenuo.

G_33 · Answer

Hola  ¿Por qué 2 bucles? ¿i y j??? No estoy seguro de la pertinencia del bucle j!!  Y ¿por qué i = 2 a 90 si solo tiene 89 pestañas?  Intente solo con el bucle i  Atentamente

G_33 · Answer

Hola he probado este código en mi casa y funciona sin mensajes de error díganme si es lo que estaban buscando hacer  Sub Macro() Dim i As Integer Dim k As Integer Dim ws As Worksheet i = 2 For j = 3 To 91 ' Workbooks("BDD.xls").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C12") Workbooks("BDD.xls").Sheets("BDD").Range("C" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C61") Workbooks("BDD.xls").Sheets("BDD").Range("F" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("V43") Workbooks("BDD.xls").Sheets("BDD").Range("G" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F43") Workbooks("BDD.xls").Sheets("BDD").Range("H" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("B27") Workbooks("BDD.xls").Sheets("BDD").Range("I" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C27") Workbooks("BDD.xls").Sheets("BDD").Range("J" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("E48") Workbooks("BDD.xls").Sheets("BDD").Range("K" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C55") Workbooks("BDD.xls").Sheets("BDD").Range("M" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F54") Workbooks("BDD.xls").Sheets("BDD").Range("N" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F86") Workbooks("BDD.xls").Sheets("BDD").Range("O" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("E89") Workbooks("BDD.xls").Sheets("BDD").Range("P" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("F93") Workbooks("BDD.xls").Sheets("BDD").Range("Q" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("E90") i = i + 1 Next j End Sub  cordialmente

Error de ejecución 9, el índice no pertenece a la selección

7 respuestas

Archivos temporales de w11

Cómo conectar un cable usb a un televisor

¿cómo enviar un correo a ebay?

Dictado por voz

Cuadro blanco en mi escritorio

Ordenador, bloqueado al inicio en la pantalla del menú de arranque

Conectar un xiaomi redmi 9t al pc

Actualización del visualizador de fotos de windows 7

Problema de texturas en enshrouded

Ej lleno e081 casio se s100