Trabajar con varios libros desde una macro

Lo que pasa es que estoy trabajando con dos libros de excel, desde un formulario para buscar información, esta información esta contenida en los dos libros uno de ellos es donde esta la macro. Cuando llamo el otro libro me trae la informacioon pero cuando quiero sacar información del libro en el que tengo la macro me bota error. ¿Sabes cómo hacer para que me tome el libro que deseo?

1 respuesta

Respuesta
1
Si no pones el código y señalas la parte del error, no te puedo ayudar.
Hola
Este es mi código
Private Sub Ciclo1_Change()
 Programa1.Clear
    Dim inc As Integer
    Dim fila As Integer
    inc = 1
Workbooks. Open("C:\Documents and Settings\Sandra\Mis documentos\Inventario proyecto Darwin ver 28 (version 1).XLS").Sheets("Unidades").Select
    Range("J" & inc).Activate
    Do While (ActiveCell.Cells.Text <> "")
        If Ciclo1.Text = "" Then
            Exit Do
        End If
            inc = inc + 1
            Range("J" & inc).Activate
            If (ActiveCell.Cells.Text = Ciclo1.Text) Then
                fila = inc
                Range("b" & inc).Activate
                Programa1.AddItem (ActiveCell.Cells.Text)
            Else
                          End If
      Loop
    If fila = 0 Then
        Exit Sub
       End If
End Sub
Private Sub CommandButton1_Click()
    Dim inc As Integer
    Dim A As String
     Dim fila As Integer
  Worksheets("Estado de Requerimientos").Select
 A = Programa1.Text
    inc = 1
     Range("b" & inc).Activate
    Do While (ActiveCell.Cells.Text <> "")
        If A = "" Then
            Exit Do
        End If
            inc = inc + 1
            Range("b" & inc).Activate
            If (ActiveCell.Cells.Text = A) Then
                fila = inc
                Range("C" & inc).Activate
              Requerimiento1.Text = ActiveCell.Cells.Text
            Else
                          End If
      Loop
    If fila = 0 Then
        Exit Sub
       End If
End Sub
Private Sub Programa1_Change()
    Dim inc As Integer
    Dim fila As Integer
    inc = 1
     Range("b" & inc).Activate
    Do While (ActiveCell.Cells.Text <> "")
        If Programa1.Text = "" Then
            Exit Do
        End If
            inc = inc + 1
            Range("b" & inc).Activate
            If (ActiveCell.Cells.Text = Programa1.Text) Then
                fila = inc
                Range("g" & inc).Activate
               Subtipo1.Text = ActiveCell.Cells.Text
            Else
                          End If
      Loop
    If fila = 0 Then
        Exit Sub
       End If
    Workbooks("Inventario proyecto Darwin ver 28 (version 1).XLS").Close
    End Sub
Private Sub UserForm_Initialize()
 Sheets("Parametros").Select
 Call llenarcombo(Ciclo1, "a")
End Sub
¿Y dónde señala el error?
Utiliza On Error Resume Next.
Lo que pasa es que si no coloco la linea Workbooks("Inventario proyecto Darwin ver 28 (version 1).XLS").Close
me da error en Worksheets("Estado de Requerimientos").Select
Entonces abre el libro primero ya que al final del código veo que lo cierras.
Al principio lo abro pero estoy trabajando con dos libros y no se como cambiar de un libro a otro
Tienes que activarlo.
Workbooks("Inventario proyecto Darwin ver 28 (version 1).XLS").Worksheets("Estado de Requerimientos"). Activate
Con esto activo el libro y la hoja correspondiente.
¿Si pero si quiero cambiar al otro libro que es donde estoy haciendo la macro?
Pues amiga, ahí está la instrucción:
Workbooks("Inventario proyecto Darwin ver 28 (version 1).XLS").Activate
Solo pones el nombre del libro que deseas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

(Macro) Necesito recorrer Columnas (Range) entre fechas según el valor de 2 celdas

Tengo esta macro que llama a otro archivo y luego recorre el archivo desde donde es llamado. Sub Carga_Operacion() Dim Response As String Dim Fini As Date Dim Fter As Date Dim hora1 As String, fecha1 As String, user1 As String destino =...
1 respuesta

Macro para comparar datos en libros

Tengo dos libros de clientes el libro 1 y el libro 2, el cual me lo envían todos los meses, quiero una macro para que me resalte de color cuales de los clientes que tengo en el libro 2 no los tengo en el libro 1. Los archivos están conformados por...
2 respuestas

Macros para buscar cadena de texto

Estoy haciendo una macros para buscar datos de una columna y después pegar toda la fila a otra celda, todo dentro de la misma hoja, quiero modificar el código para que el resultado lo pegue en otra hoja pero no me resulta, por favor si alguien me...
1 respuesta

Solucionar un error de compilación

En un formulario tengo un botton desde el cual llamo a un procedimiento que a su vez llama a una función y a otro procedimiento. El problema esta en que al darle click al botton ejecuta lo que esta allí pero al llegar a la cabecera del procedimiento...
1 respuesta

Compara datos de un libro con otro

Experto tengo el siguiente ejercicio que realizar, tengo ideas como hacerlo pero traducirlo al lenguaje de macros es un poco difícil para mi ya que soy un novato, voy al grano lo que quiero hacer es lo siguiente : tener un libro de excel o una base...
1 respuesta

¿Cómo sumar 2 label y 2 textbox,y mostrar suma en un 3er label?

Estoy haciendo un formulario en excel 2007, con un combobox que filtra, dos label que muestra datos del filtro, y dos text box, en la cual agrego o resto. Tanto en los dos labels como en los dos textbox se maneja con números. Cómo hacer que en un...
1 respuesta