Fusionar celdas entre varios libros de Excel
Hola,
quiero fusionar en un libro los datos de 2 libros. He empezado a programar la función y me esta dando error.
Tengo abierto un libro y ejecuto la macro de abajo. Quiero que abra el fichero VisitasAp y copia todos los datos de un hoja en la hoja del libro que ya tengo abierto. Me da error si uso dos libros si la macro la prueba con un solo libro y usando hojas no tengo problemas.
Me podéis ayudar.
Gracias.
Sub Prueba()
Workbooks.Open Filename:="R:\Sales\Ventas\Informes\VisitasAP.xls", _
UpdateLinks:=3
filad = 3
Sheets("VCli").Select
ultima = Application.CountA(Range("A:A"))
For j = 3 To ultima
' AQUI ES DONDE ME DA ERROR
Worksheets("VisitasClientes").Cells(filad, 1) = Worksheets("Vcli").Cells(j, 1).Value
filad = filad + 1
Next
End Sub
quiero fusionar en un libro los datos de 2 libros. He empezado a programar la función y me esta dando error.
Tengo abierto un libro y ejecuto la macro de abajo. Quiero que abra el fichero VisitasAp y copia todos los datos de un hoja en la hoja del libro que ya tengo abierto. Me da error si uso dos libros si la macro la prueba con un solo libro y usando hojas no tengo problemas.
Me podéis ayudar.
Gracias.
Sub Prueba()
Workbooks.Open Filename:="R:\Sales\Ventas\Informes\VisitasAP.xls", _
UpdateLinks:=3
filad = 3
Sheets("VCli").Select
ultima = Application.CountA(Range("A:A"))
For j = 3 To ultima
' AQUI ES DONDE ME DA ERROR
Worksheets("VisitasClientes").Cells(filad, 1) = Worksheets("Vcli").Cells(j, 1).Value
filad = filad + 1
Next
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
El problema es que no le indicas de qué libro se trata.
Cuando abres el libro ese pasa a ser el activo, entonces la instrucción que mencionas debes escribirla así:
Workbooks("PrimerLibro"). Worksheets("VisitasClientes").Cells(filad, 1) = ActiveWorkbook. Worksheets("Hoja2").Cells(j, 1).Value
PrimerLibro debe ser el nombre del libro que ya tenías abierto al momento de llamar al VisitasAp, que pasa a ser el activo, por eso lo llamo como 'ActiveWorkbook'
Cuando abres el libro ese pasa a ser el activo, entonces la instrucción que mencionas debes escribirla así:
Workbooks("PrimerLibro"). Worksheets("VisitasClientes").Cells(filad, 1) = ActiveWorkbook. Worksheets("Hoja2").Cells(j, 1).Value
PrimerLibro debe ser el nombre del libro que ya tenías abierto al momento de llamar al VisitasAp, que pasa a ser el activo, por eso lo llamo como 'ActiveWorkbook'
