VBA - Error 9 (Subindice) y otra duda.

Tema destacado: Seguir a @elhackernet

Foro de elhacker.net

Programación

Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)

VBA - Error 9 (Subindice) y otra duda.

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: VBA - Error 9 (Subindice) y otra duda. (Leído 1,443 veces)

edr89

Desconectado

Mensajes: 7

VBA - Error 9 (Subindice) y otra duda.

« en: 26 Septiembre 2011, 01:44 »

Hola,

estoy ejecutando una macro de excel que extrae información de un libro y lo copia a otro, el archivo con datos se llama protocolo y todo se copia al informe de protocolo.

Tengo 2 protocolos, ejecuto la macro para el primero, ya que extrae la información cierro el primer protocolo y abro el segundo, al ejecutar la macro me da el Error 9 Subindice fuera de intervalo. Siempre tengo que cerrar y abrir ambos documentos, protocolo e informe y esto es lo que quiero evitar ya que a veces tengo 6 o 7 protocolos y pierdo algo de tiempo cerrando y abriendo todo de nuevo.

La información la copio de un libro a otro haciendo referencia entre libros con:

Código:

Windows().Activate
Range().Select
Selection.Copy
Windows().Activate
Range().Select
ActiveSheet.Paste

Hay datos que pueden no tienen una celda fija, lo unico que se me ocurrio fue activar una celda del informe y hacer un vlookup:

Código:

Windows("Informe de Protocolo.xlsm").Activate
Range("R47").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(""Nota"",'[protocolo.xls]Registro Ingreso'!R60:R85,2,FALSE)"

¿Hay alguna forma mas eficiente de extraer la información?
¿Cómo puedo evitar el error 9?

Saludos.


	En línea

edr89

Desconectado

Mensajes: 7

Re: VBA - Error 9 (Subindice) y otra duda.

« Respuesta #1 en: 24 Noviembre 2011, 09:01 »

Respecto a la extración de información me resultó más útil este código:

Código:

Windows("protocolo.xls").Activate
Cells.Find(What:="dx", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Selection.Copy
Windows("Informe.xlsm").Activate
Range("C47").Select
ActiveSheet.Paste

Si la celda hace referencia a una formula entonces pego por valores y no con "Active Sheet.Paste".

Código:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Queda pendiente el error de subindice :huh:


	En línea

edr89

Desconectado

Mensajes: 7

Re: VBA - Error 9 (Subindice) y otra duda.

« Respuesta #2 en: 1 Diciembre 2011, 08:22 »

Para evitar error 9 hice un proceso mas completo, primero abro el archivo y despues ejecuto la extracción

Para abrir archivo:

Código:

Dim ExtArchivo As String, Titulo As String
Dim FilterIndex As Integer
Dim Protocolo As Variant
' File filters
ExtArchivo = "All Files (*.*),*.*"
FilterIndex = 3
Titulo = "Por favor seleccione un protocolo:"
ChDrive ("C")
ChDir ("C:")
With Application
Protocolo = .GetOpenFilename(ExtArchivo, FilterIndex, Titulo)
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
' Exit on Cancel
If Protocolo = False Then
Exit Sub
End If
Workbooks.Open Protocolo

Application.ScreenUpdating = False


	En línea

edr89

Desconectado

Mensajes: 7

Re: VBA - Error 9 (Subindice) y otra duda.

« Respuesta #3 en: 11 Diciembre 2011, 23:50 »

Para poder extraer la información de libros con diferentes nombres, primero lo abro y despues agrego estas lineas:

Código:

Dim LibroaCopiar As String
LibroaCopiar = ActiveWorkbook.Name

Así ya no tengo que renombrar el archivo a protocolo.xls, el código identifica al archivo abierto como LibroaCopiar, sin importar el nombre o caracteres que tenga.


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Cómo Evitar el tipico error 404 y redireccionar a otra página? Desarrollo Web	Casidiablo	1	1,421	13 Enero 2006, 00:38 por -Riven-Ward-
	OTRA DUDA DE LOS MALDITOS Iframes. Duda HTML. 20-5 Desarrollo Web	‭lipman	7	2,907	21 Mayo 2007, 09:27 por dominioswww
	Al crear otra particion da error y ya XP no carga, ayuda. Windows	txente	13	2,296	7 Septiembre 2009, 17:00 por hitori batusai
	Error SQLite en otra PC .NET	Skeletron	6	1,752	24 Septiembre 2009, 04:29 por Skeletron
	Problema El subindice esta fuera de intervalo Programación Visual Basic	ninto33	5	3,088	8 Febrero 2010, 08:19 por BlackZeroX (Astaroth)