Buenas tardes, agradeceria vuestra ayuda. Utilizo la siguiente macro para copiar un rango a un libro. El problema es que me gustaria copiarlo al resto de libros que se van creando todos los meses. Se llaman siempre igual, solo que se añade al nombre el mes. Me podeis indicar si se puede hacer un bucle, o por ejemplo, listar los nombres existentes en celda y que se realice desde ahi? Gracias Sub CambiosPersonalBAJAS() Application.ScreenUpdating = False 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino 'Set wbDestino = Workbooks.Open("c:\BAJAS 2019.xlsm") Set wbDestino = Workbooks.Open("c:\Empleados ENERO 2019.xlsm") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("PERSONAL") Set wsDestino = wbDestino.Worksheets("PERSONAL") 'Indicar la celda de origen y destino Const celdaOrigen = "A3" Const celdaDestino = "A3" 'Inicializar los rangos de origen y destino Set rngOrigen = wsOrigen.Range(celdaOrigen) Set rngDestino = wsDestino.Range(celdaDestino) 'Seleccionar rango de celdas origen rngOrigen.Select Range("A3", Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy 'Pegar datos en celda destino rngDestino.PasteSpecial xlPasteValues Application.CutCopyMode = False 'Guardar y cerrar el libro de Excel destino wbDestino.Save wbDestino.Close savechanges:=True Application.ScreenUpdating = True 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.

Copiar rango en los 12 libros del año

Autor del tema danippp
Fecha de inicio 29 May 2019

danippp

Member

29 May 2019

Buenas tardes, agradeceria vuestra ayuda. Utilizo la siguiente macro para copiar un rango a un libro. El problema es que me gustaria copiarlo al resto de libros que se van creando todos los meses...

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

Copiar rango de varios libros y pegarlos en otro

Respuestas: 1

3 May 2017

Cacho R

Pregunta

copiar de un rango solo los que tienen datos a otro de otra

Respuestas: 0

28 Ene 2017

MonicaGG

Pregunta

código vba para copiar celdas de un rango a otro

Respuestas: 7

8 Sep 2025

IsraelCassales

Resuelto

Copiar datos en otro rango si el anterior esta ocupado.

Respuestas: 1

6 Nov 2024

Abraham.Valencia

Resuelto

Macro para copiar rango a otra hoja.

Respuestas: 4

9 Ene 2024

Jose Ignacio Pino Mondeja

Pregunta

Copiar rango celdas y pegar en otra hoja

Respuestas: 4

18 Abr 2023

Dante Amor M

Pregunta

Macro para copiar valor solo a rango de celdas visibles

Respuestas: 10

13 Mar 2023

Goldfinger

Resuelto

Copiar rango y quitar formulas

Respuestas: 6

10 Feb 2023

LauraNM

Resuelto

Copiar rango de filas según condición

Respuestas: 4

14 Dic 2022

mago18

Pregunta

Copiar formato de una hoja en el mismo rango del resto de hojas

Respuestas: 5

10 Dic 2022

Jose Luis España

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