Día 20 - Cómo importar hojas de Excel a Excel o Copiar hojas de excel
HTML-код
- Опубликовано: 7 фев 2025
- Recibe GRATIS Kit completo de Excel para que Maximices tu Desempeño
👇
bit.ly/Recibir...
1) Suscríbete: goo.gl/FrswaC
2) Descarga el ejercicio a resolver de este día: goo.gl/OlgI0h
3) Vídeo explicativo del #Reto40Excel: • Lanzamiento de Reto40E...
4) A través de tu email Suscríbete a este curso gratuito para aumentar tu productividad en Excel un 80% y obtén 4 regalos adicionales al suscribirte a este curso: goo.gl/zNqh0o
Día 20 - Cómo importar hojas de Excel a Excel #Reto40Excel 2016
En el presente vídeo se explica paso a paso la cómo importar hojas de Excel a Excel o dicho de otra forma, cómo copiar hojas de Excel a Excel, esto se hace con base en dos archivos, uno que se considera el archivo fuente y el otro el archivo principal. Llamamos archivo principal desde donde se da la orden para extraer o importar hojas de Excel y el fuente desde donde se importan, es decir, el archivo que contiene la información o las hojas a ser importadas
Bienvenido a este recurso, aprende y comparte para ayudarles a otras personas en este tema que muy pocos manejan y como segunda recomendación, descarga el ejercicio práctico de este día desde el siguiente link: goo.gl/OlgI0h
Temas tratados en este material:
Cómo importar hojas de Excel a Excel
Importar hojas de Excel
Método Copy en VBA
Día a día del #Reto40Excel:
Explicación paso a paso de lo qué es el Reto40Excel
• Lanzamiento de Reto40E...
Día 14 - Recordatorio en Excel cuando falten días para una fecha - Parte 1 #Reto40Excel 2016
• Día 14 - Recordatorio ...
Día 13 - Macro en Excel para ingresar datos con mensaje de confirmación #Reto40Excel 2016
• Día 13 - Macro en Exce...
Día 11 - Emitir sonido Beep en Excel con macro VBA #Reto40Excel 2016
• Día 11 - Emitir sonido...
Día 10 - Insertar Comentarios en Excel con macros en Excel #Reto40Excel 2016
• Día 10 - Insertar Come...
Día 9 - Ingresos y Egresos en Excel con Macro en Excel #Reto40Excel 2016
• Día 9 - Ingresos y Egr...
Día 8 - Día 8 - Comodines en Excel #Reto40Excel 2016
• Día 8 - Comodines en E...
Día 7 - Macro en Excel para extraer datos con condiciones #Reto40Excel 2016
• Día 7 - Macro en Excel...
Día 6 - Macro en Excel para abrir archivos externos con condición IF #Reto40Excel 2016
• Día 6 - Macro en Excel...
Día 5: Día 5 - Sumar las últimas celdas en Excel #Reto40Excel 2016
• Día 5 - Sumar las últi...
Día 4: Formato condicional para mostrar repeticiones a partir de una variable #Reto40Excel 2016
• Día 4 - Formato condic...
Día 3: Ordenar con letras y números en Excel #Reto40Excel 2016
• Día 3 - Ordenar con le...
Día 2: Definir cálculo con Función SI y lista desplegable en Excel
• Día 2 - Definir cálcul...
Día 1: Validación de datos en Excel para limitar tamaño y contenido en una celda #Reto40Excel 2016 • Día 1 - Validación de ...
Para no perderte nada de lo que compartimos en las redes sociales, puedes seguirnos a través de los medios:
Facebook: goo.gl/W5dIsa
Twitter: / ee_excel
Instagram: goo.gl/xadGB5
Linkedin: goo.gl/Os1boH
Para no perderte nada de lo que compartimos en las redes sociales, puedes seguirnos a través de los medios:
Facebook: goo.gl/W5dIsa
Twitter: / ee_excel
Instagram: goo.gl/xadGB5
Linkedin: goo.gl/Os1boH
Nivel Excel: Nivel Macros con VBA
Proyecto: Especialistas En Excel
Líder: Alfonso Lenis
Palabras relacionadas:
capacitación excel,
soluciones excel,
curso de excel,
curso excel,
productividad en excel,
Comunidad Triple EEE,
Alfonso Lenis,
Especialistas en Excel,
Cómo importar hojas de Excel a Excel,
importar hojas de Excel,
Importar hojas,
copiar hojas de excel,
copiar hojas,
extraer información de excel,
método Copy en VBA,
tutorial importar hojas de excel a excel,
importar hojas de excel a excel,
como importar hojas de excel a excel,
aprender a importar hojas de excel a excel
![BLACK BAG - Official Trailer [HD] - Only in Theaters March 14](http://i.ytimg.com/vi/Du0Xp8WX_7I/mqdefault.jpg)
Muy buen tutorial. Gracias
Excelente macro, de mucha utilidad en nuestras labores diarias. Gracias!!!
Excelente... muy útil y nuevamente muchas gracias por el material de Reto 40.... (Y)
Muy bueno el material
Saludos
Reto superado, gracias
Excelente !!! muy bueno...
Gracias...
Es muy buena la macro, gracias por los aportes, un saludo
Estoy ya casi al día con el Reto40Excel.
La solución al día 20 es:
Sub TRAERHOJASOTROSARCHIVOS()
Dim RUTA, NOMBARCHIVO, NOMBARCHPRINCIPAL As String
Dim NOMBHOJA As Worksheet
Dim CUENTAHOJAS As Integer
Application.DisplayAlerts = False
NOMBARCHPRINCIPAL = ActiveWorkbook.Name
RUTA = Sheets("RETO40EXCEL").Cells(7, 3)
NOMBARCHIVO = Sheets("RETO40EXCEL").Cells(9, 3)
Workbooks.Open (RUTA & "\" & NOMBARCHIVO)
For Each NOMBHOJA In Workbooks(NOMBARCHIVO).Worksheets
CUENTAHOJAS = Workbooks(NOMBARCHPRINCIPAL).Worksheets.Count
Workbooks(NOMBARCHIVO).Worksheets(NOMBHOJA.Name).Copy _
AFTER:=Workbooks(NOMBARCHPRINCIPAL).Worksheets(CUENTAHOJAS)
Next NOMBHOJA
Application.DisplayAlerts = True
End Sub
Tiempo utilizado: 13:21:37
Es muy cierto que la Fuerza EEE es constantes y te impide que te vayas al lado Oscuro de la fuerza.
Cómo podría importar todo un libro a un libro igual pero en blanco.... esto sirve por si el libro en el que se trabaja se ha dañado y así se queda importar a otro libro para recuperar la información. O por si se actualizado el libro para no tener que volver ingresar toda la información... mil gracias
excelente
Duda, cómo hago que SOLO copie las hojas que no estaban ocultas? Gracias excelente material
buena explicación amigo pero como hago para enviar la hoja activa de mi proyecto a otro archivo abierto en otro pc es para enviar desde la caja de un restaurante la orden a la cocina.
Hola buenas noches, espero que me puedan ayudar a resolver un problema que tengo en un archivo de excel, resulta que tengo activas 5 hojas de excel, 1 es el capturador de registros, hecho con las celdas de excel, (no formularios), 2 es la base de datos que se llena con los registros capturados, 3 es un formato que extrae datos de la base de datos y del catalogo, 4 esta se llena una carta con datos también de la base de datos capturada y por ultimo 5 el catalogo de productos, con el que se toman los productos en automático para llenar también el formato(3), pero tengo un botón creado con las formas de excel(no formulario), que tiene que crear cada vez que se presione este, una nueva hoja y que le cambie el nombre con el numero de referencia de la celda que esta en la hoja 3(del mismo formato) celda "C5", por ejemplo, en la hoja formato esta una celda que dice numero de orden, en donde se escribe el numero de orden (C5) que al momento de activar el botón del nuevo registro, que copee el formato y lo copie en otra hoja con el nombre de la celda indicada(C5), y así sucesivamente que se vaya agregando una nueva hoja con el siguiente numero consecutivo de la orden es decir (anterior es numero es 105 de la celda C5, ahora va ser la 106 en la (C5) y al oprimir el boto cree la hoja 106 y copee el formato.
en la hoja de la Carta que también la copee en la misma hoja que se creo en ese registro, es decir si fue la hoja 105, que se copee el formato y la carta.
el segundo punto es solo asignar el fucos o el cursor solamente en los campos de los registros que voy a capturar en el orden de mi captura, ya que uno de los ultmos campos que se toman del capturador de registros están en el formato celda J1 y de ahí que se pase a la Celda A15 automáticamente.
solo es eso jejjeje espero de su ayuda. gracias cualquier duda mi whats es 5587230712 de la ciudad de mexico o mi correo es r711111@@t.
Saludos
Una duda. Qué pasa si yo quiero copiar las hojas de 3 archivos distintos... es posible? Muchas gracias y saludos.
me salió un error en esta linea al ejecutar la macro, se me coloca este en color amarillo: numHojas = Workbooks(nombreArchivoPrincipal).Worksheet.Count, revisé todo y lo hice tal cual como estaba en el video
Funciona, pero al ejecutar la macro deja abierto el archivo fuente.
slds
Hola, genial, pero por mas que reviso, me sigue marcando error 9 de intervalo.
Sub importarhojas()
Dim carpeta As String
Dim nombreArchivo As String
Dim nombreArchivoPrincipal As String
Dim nombreHoja As Worksheet
Dim numeroHojas As Integer
Application.DisplayAlerts = False
nombreArchivoPrincipal = ActiveWorkbook.Name
carpeta = Sheets("Hoja 1").Cells(2, 3)
nombreArchivo = Sheets("Hoja 1").Cells(3, 3)
Workbooks.Open (carpeta & nombreArchivo)
For Each nombreHoja In Workbooks(nombreArchivo).Worksheets
numeroHojas = Workbooks(nombreArchivoPrincipal).Worksheets.Count
Workbooks(nombreArchivo).Worksheets(nombreHoja.Name).Copy _
after:=Workbooks(nombreArchivoPrincipal).Worksheets(numeroHojas)
Next nombreHoja
Application.DisplayAlerts = True
End Sub