Hola, estoy empezando con la programación en VBA y he llegado a un punto muerto... Estoy haciendo un macro para que me copie datos de una serie de Excel, los datos siempre estarán en la columna A y B y empezarán en la fila 2, aunque la longitud de los mismos puede ser variable dependiendo del archivo. Con el macro pretendo que se seleccione la carpeta y que tome los datos de todos los Excel que haya en ella y los pase a otro libro en el que tengo diferentes funciones y fórmulas para hacer cálculos, por lo que el bucle que he añadido tiene que ir creando nuevas pestañas en este libro. En este libro, también se pegarán siempre los datos en las columnas A y B a partir de la fila 2. Hasta ahí creo que lo he conseguido pero en ocasiones me salen errores como por ejemplo que me dice que ya existen datos en las columnas en las que yo quiero pegarlos, o me repite algunos datos en dos pestañas... y no sé dónde puede estar el error... El código sería el siguiente: Sub copy() On Error Resume Next milibro = ActiveWorkbook.Name Set navegador = CreateObject("shell.application") carpeta = navegador.browseforfolder(0, "SELECCIONA CARPETA", 0, "c:\").items.Item.Path ChDir carpeta & "\" archi = Dir("*.xlsx") Do While archi <> "" Workbooks.OpenText archi Sheets("Sheet1").Select Sheets("Sheet1").copy after:=Sheets(1) Range("A2:B2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Clear Content Windows("archi").Activate Range("A2:B2").Select Range(Selection, Selection.End(xlDown)).Select Selection.copy Windows("Calc FC_JMA.xlsx").Activate ActiveWindow.Range ("A2:B2") Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.copy before:=Workbooks(milibro).Sheets(1) Workbooks(otro).Close False archi = Dir() Loop End Sub Si pudiéseis ayudarme me haríais un favor inmenso. Muchas gracias de antemano por vuestra ayuda!! Un saludo!! :D

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.

Macro con bucle para copiar y pegar en nuevas pestañas

Autor del tema Juanma Alcantara
Fecha de inicio 6 Oct 2017

Juanma Alcantara

New member

6 Oct 2017

Hola,

estoy empezando con la programación en VBA y he llegado a un punto muerto...

Estoy haciendo un macro para que me copie datos de una serie de Excel, los datos siempre estarán en la columna...

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

Resuelto

Macro vba, bucle de copiar y pegar

Respuestas: 7

1 Mar 2022

Iggy123

Pregunta

Bucle macro para copiar celdas en fila, pegar, transponer.

Respuestas: 2

21 Nov 2021

Isa_ias

Resuelto

Macro para copiar y pegar uno x uno y con variable bucle

Respuestas: 5

26 Jun 2021

Protostecnologia

Pregunta

Macro con bucle para copiar y pegar generando nueva pestaña

Respuestas: 1

5 Oct 2017

Juanma Alcantara

Pregunta

Macro Copiar y Pegar en secuencia con bucle

Respuestas: 6

30 Sep 2015

Cacho R

Resuelto

Ayuda Bucle Macro un libro por cada mes del año

Respuestas: 7

24 Jul 2023

danippp

Resuelto

Macro con bucle (Salto de filas)

Respuestas: 11

28 Jun 2022

silver_axe007

Pregunta

Error en macro con bucle

Respuestas: 12

12 Nov 2021

caropiacenza

Resuelto

Macro con bucle para cambiar valor de celda con n° del 1 al 210

Respuestas: 6

2 Oct 2021

carian1980

Pregunta

Crear un bucle en macro

Respuestas: 8

25 May 2021

cambrisi

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