• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Leer valor de celdas de libros cerrados

JuanEchenique

New member
Buenos días.
Necesito copiar datos de diferentes archivos, cuya Ruta, nombre, hoja y celda estan definidas mediante formulas en el libro destino.

Alguien me puede ayudar con esto?

Adjunto el archivo con las definiciones.

Muchas gracias.
 

Adjuntos

Héctor Miguel

Well-known member

JuanEchenique

New member

JuanEchenique

New member
puedes poner en claro que significa (exactamente) esto: ?

- que obtuviste ?
- que esperabas ?
Hector
Gracias por tu preocupación, me restaba que lea de distintas celdas, las celdas origen y destino de los datos pero pude resolverlo con el siguiente codigo
Sub std()
Dim ruta As String, direccion1 As String, hoja As String
Application.ScreenUpdating = False
ruta = Range("G7")
fichero3 = Range("H7")
Lugar = Range("I7")
direccion3 = ruta & fichero3
Set celdadestino = Workbooks("Principal.xlsm").Sheets("Data").Range("C3")
Workbooks.Open Filename:=direccion3
Sheets(Lugar).Select
Range("B8").Select
Selection.Copy
Windows("Principal.xlsm").Activate
Range("C102").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C102").Copy: Range("D7").PasteSpecial xlValues
Workbooks(fichero3).Activate
Sheets(Lugar).Select
Range("P13").Select
Selection.Copy
Windows("Principal.xlsm").Activate
Range("D102").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D102").Copy: Range("D9").PasteSpecial xlValues
Workbooks(fichero3).Activate
Sheets(Lugar).Select
Range("S13").Select
Selection.Copy
Windows("Principal.xlsm").Activate
Range("E102").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E102").Copy: Range("D8").PasteSpecial xlValues
Application.CutCopyMode = False
Workbooks(fichero3).Close savechanges:=False
Range("D2").Select
Application.ScreenUpdating = True
End Sub

Seguramente el codigo puede simplificarse, pero no tengo los conocimiento suficientes para realizarlo.
Saludos cordiales.
 

Héctor Miguel

Well-known member
restaba que lea de distintas celdas... origen y destino... pude resolverlo con
son metodos distintos...
- el propuesto es una funcion personalizada (la llamas desde la celda destino) y se actualiza al modificar los datos-argumento
- el que publicas es un procedimiento normal (lo manejas a traves de variables) y lo ejecutas cada vez que cambien los datos

ambos son validos (y)
 

JuanEchenique

New member
son metodos distintos...
- el propuesto es una funcion personalizada (la llamas desde la celda destino) y se actualiza al modificar los datos-argumento
- el que publicas es un procedimiento normal (lo manejas a traves de variables) y lo ejecutas cada vez que cambien los datos

ambos son validos (y)
Hector buen día.
Recién pude entender a que se refería con la función personalizada.
Voy a probar también con su recomendación, ya que por caso parece mucho más simple, y con menor utilización de código.
Desde ya muchas gracias por su ayuda.
 
Arriba