Hola a todos, no soy muy bueno en programar en VBA, en mi trabajo necesitamos realizar la suma de varios libros, en distintas hojas con tablas idénticas, los libros son disgregados por su nombre. En el ejemplo que realice, selecciono los libros que comienzan con "1-R-1015", para ello estoy usando la función Dir. Sin embargo, no logré que esta función me busque los archivos que están en las subcarpetas. Dado que son muchos libros es muy moroso ir copiando todos a la misma carpeta, ya que es una información que debe actualizarse mensualmente. Quisiera pedir su valiosa ayuda para aconsejarme cómo puedo hacer para que el MACRO busque, y abra los libros que están en las subcarpetas. Les dejo el código: Sub integrado() Dim archi As String Dim Carpeta As String Dim primero As String Dim a As Double primero = ActiveWorkbook.Name Carpeta = ActiveWorkbook.Path & "\" Sheets(1).Select Range("R11").Select ChDir ActiveWorkbook.Path archi = Dir(Carpeta & "1-R-1015" & "*.xl*") Do While archi <> primero Workbooks.Open (Carpet & archi) a = a + Sheets(1).Range("R11").Value a = a + Sheets(2).Range("R11").Value a = a + Sheets(3).Range("R11").Value a = a + Sheets(4).Range("R11").Value ActiveWorkbook.Close False archi = Dir() If archi = "" Then archi = primero End If Loop todas = Array(a) For x = 0 To UBound(todas) ActiveCell.Value = todas(x) ActiveCell.Offset(1, 0).Select Next End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Ayuda, sumar celdas de varios libros en subcarpetas

Autor del tema wiskani
Fecha de inicio 28 Sep 2017

wiskani

New member

28 Sep 2017

Hola a todos, no soy muy bueno en programar en VBA, en mi trabajo necesitamos realizar la suma de varios libros, en distintas hojas con tablas idénticas, los libros son disgregados por su nombre...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Ayuda para sumar varias celdas con una condición VBA

Respuestas: 9

5 Oct 2020

Cacho R

Pregunta

Ayuda, Sumar y Contar si el formato de las celdas son Moneda

Respuestas: 3

20 Mar 2015

Cacho R

Resuelto

sumar numero macro ayuda

Respuestas: 25

21 May 2023

FGV

Resuelto

Ayudaa sumar.si.conjunto me da 0 necesito ayuda urgente

Respuestas: 4

20 Abr 2023

XXGENERALLZZ

Pregunta

Ayuda, sumar celda de varios libros en subcarpetas

Respuestas: 1

27 Sep 2017

wiskani

Pregunta

Ayuda para sumar datos según condición con macros

Respuestas: 1

5 Oct 2015

jefryvictor

Pregunta

Ayuda para que busque el dato mayor y sumar 1

Respuestas: 5

30 Jul 2013

Cacho R

Pregunta

Ayuda, Sobre macro Para Sumar dos Valores

Respuestas: 1

7 Mar 2013

hc3115

Pregunta

Ayuda para sumar

Respuestas: 1

1 Sep 2008

ioyama

Pregunta

Ayuda con Macros

Respuestas: 6

17 Jul 2026

Víctor1

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba