Excel - Crear carpetas 📁📂 a partir de una lista de Excel. Tutorial en español HD

Te explicamos paso a paso cómo crear carpetas automáticamente a partir de un listado en Excel. Aunque utilizamos una macro para hacerlo es un tutorial sencillo, solo tienes que seguir los pasos del tutorial.

…………………………………………………………………………………………………………………………

🚀👨🏻‍🎓 🅽🆄🅴🆂🆃🆁🅾🆂 🅲🆄🆁🆂🅾🆂

…………………………………………………………………………………………………………………………

🔔 Aprende MÁS (+) en MENOS (-) tiempo

…………………………………………………………………………………………………………………………

🌐 Redes sociales 🌐
…………………………………………………………………………………………………………………………

𝙀𝙦𝙪𝙞𝙥𝙤 & 𝙋𝙧𝙤𝙜𝙧𝙖𝙢𝙖𝙨
A menudo, nos preguntáis por los recursos que utilizamos. En esta página vamos recopilando los equipos y programas que utilizamos.
…………………………………………………………………………………………………………………………

Nota: En algunas descripciones de los vídeos encontrarás enlaces de afiliados, lo que significa que, sin costo adicional para ti, recibiremos una pequeña comisión si realizas una compra usando los enlaces. Esto nos permite continuar creando tutoriales como este. ¡Gracias por apoyarnos!
Tutorial de Excel que muestra cómo crear carpetas a partir de Excel.

Se ha utilizado " Microsoft Excel 2016" en español para este tutorial, el tutorial es válido la versión Excel 2013, Excel 2010 y Excel 2007.

[angel_v]

Sub CrearCarpetas()

ruta =
celda = InputBox("Primera celda")
Range(celda).Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

[alemontenegro]

Sub CrearCarpetas()

ruta = InputBox ("Ingresa la ruta donde quieres crear las carpetas")
celda = InputBox ("Primera celda")
Range (celda) .Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset (1, 0).Select
Loop
End Sub

[DiegoARojasCD]

Buenas tardes. Una consulta: porque al querer crear las carpeta en macro, me sale error 75 en tiempo de ejecución, y no me termina de crear todas?

[mauroalejandropuertacastan]

Por gente como usted es que el internet sigue siendo valioso. gracias por su prompt

[Jelenitaqc]

¡Tenía que crear 470 carpetas! Con esto me ha costado apenas unos minutos. ¡Mil gracias!

[MdFrancisco]

Sub CrearCarpetas()

ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas")
celda = InputBox("Primera celda")
Range(celda).Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

[andresruiz]

Se pueden poner subcarpetas y si es así como?
Gracias

[HECTORFABIANCASTILLOMONT-ltle]

Muchas gracias. No saben la cantidad de veces que he visto el video y he utilizado el tutorial.

[manuelcansecomx]

de esas veces en que sientes amor por quienes hacen tutoriales....muchisimas gracias!

[LMBL]

Sub CrearCarpetas()

ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas")
celda = InputBox("Primera celda")
Range(celda).Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

[WENDYSCERVANTEZ-rs]

M epodrian ayudar, me sale error 75 y no me deja hacerlas

[gabrielescaremorales]

Hola, buenas tardes, a mi me arroja error en MkDir (ruta & "/" & ActiveCell.Value), podrías ayudarme por favor, saludos desde Chile.

[isaiasjimenez]

Hola, buen dia. He intentado hacerlo para crear 14 mil carpetas pero solo se crean hasta la carpeta 606. ME podrias ayudar?Me resalta estos datos  MkDir (ruta & "/" & ActiveCell.Value) cuando intento partir desde la cenda que no ha credo las carpetas. Muchas GRacias por tu ayuda.

[julioecheverria]

Buenas noches...alguien puede compartir el código o la macro? muchas gracias

[cmartin]

HAY FORMA DE HACERLO EN SENTIDO INVERSO? O SEA, TENGO UNA LISTA DE CARPETAS Y QUISIERA PASARLAS A UN PLANILLA DE EXCEL

[moonagosto]

Muy buena explicación, se entiende muy bien. Ahorré mucho tiempos en más de 150 carpetas que antes hacía una por una. Gracias 😚👏👏👏👏👏👏

[LAURAPENALOPEZ-tbey]

Hola, no encuentro en la página el código de Sub - Crear carpetas ¿Alguien me puede colaborar por favor?

[pandaedits]

Sub CrearCarpetas()

ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas")
celda = InputBox("Primera celda")
Range(celda).Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

[lamonatello]

Gracias por el video. Realmente me ayudó muchísimo.

[isrnick_]

dios que belleza de tutorial y de voz, me parecio extremadamente practico, te amo <3