Día 20 - Cómo importar hojas de Excel a Excel o Copiar hojas de excel

[@Videogaltech]

Muy buen tutorial. Gracias

[@javiermartinez3474]

Excelente macro, de mucha utilidad en nuestras labores diarias. Gracias!!!

[@dariamramirez6613]

Excelente... muy útil y nuevamente muchas gracias por el material de Reto 40.... (Y)

[@sersau18]

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

[@albertodiaz9728]

Muy bueno el material Saludos

[@EditAndresRivera]

Reto superado, gracias

[@dignosilveromartinez9075]

Excelente !!! muy bueno... Gracias...

[@nelsonarriagada6775]

Es muy buena la macro, gracias por los aportes, un saludo

[@sementalitaliano22]

Una duda. Qué pasa si yo quiero copiar las hojas de 3 archivos distintos... es posible? Muchas gracias y saludos.

[@dankoduran8925]

Duda, cómo hago que SOLO copie las hojas que no estaban ocultas? Gracias excelente material

[@raulcontrerasortiz8763]

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

[@joelnjgm26]

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.

[@yobjabed]

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

[@willmadera]

excelente

[@XYENIGM]

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

[@diegomartinezlopez9888]

Funciona, pero al ejecutar la macro deja abierto el archivo fuente. slds

[@edgargonzalez8640]

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.