no entiendo porque no tienes mas «likes» ni mas vistas. el macro funciona exelentemente y permite salvar mucho tiempo. Muchas gracias nota: pude notar que frecuentemente te dicen que no consiguen la macro. Te recomiendo que la pegues en la descripccion del video y no en los comentarios.
muchas gracias, me ha funcionado muy bien. Recomiendo que si colocas el codigo en los comentarios lo dejes fijo, así aparecerá siempre hasta arriba independientemente de todos los comentarios adicionales que se agreguen
Hola, al ejecutar la macro en la carpeta me sale una carpeta mas que se llama "Verdadero" y dentro me aparecen varias carpetas repetidas. Como puedo eliminar esto? Gracias.
Hola Jesus, consultarte como cambiaría la macro si deseo crear carpeta 1/ carpeta 2/carpeta 3 ya que este seria la estructura que tengo. tu apoyo por favor
Hola, Tengo el siguiente problema . Cree las carpetas con Visual Basic de un archivo de excel, pero las subcarpetas que contienen la info provienen de otro archivo. Como puedo vincular para que se guarden las subcarpetas en mis carpetas ya creadas, y como puedo hacer que se vayan actualizando? Gracias
Si pudieras poner un link hacia el código en la sección de la descripción tendrías muchos mas likes y visitas te lo aseguro, cuesta un poco encontrar el código entre tanto comentario. Pero está genial tu material. Muchas gracias Jesús, muy productivo tu material.
e ha funcionado de maravilla y una ultima duda como le ago para meter un documento de word con ciertas características a todas las carpetas que cree. ejemplo la carpeta con 3 sub-carpetas y un documento así a 100 carpetas.
Tengo una cantidad de archivos autocad, quiero ordenarlos y abrirlos desde el Excel para poder trabajar. Si me podrías ayudar con ese tema. Gracias por su respuesta.
hola me puedes ayudar con un código que me ayude a detectar la ruta de la carpeta que contiene el archivo excel con la macro, ya que quiero que al guardar el archivo de word que genero con la macro me detecte automáticamente la carpeta que contiene el excel y se guarde en dicha carpeta mi nuevo archivo word. Tomando en cuenta que la carpeta lo cambiaría de lugar constantemente. porfa te agradecería mucho. Gracias
Hola amigo, buen video pero al ejecurar la macro me genera una carpeta extra con nombre "verdadero" en la cual hay subcarpetas que no estan en el listado supongo que es un erro facil de solucionar.
Buen video, quisiera saber como hacer para luego de crear esas carpetas, colocar las imagenes dentro de cada una, por ejemplo creo carpetas enumeradas del 1 al 200 y quiero poner en cada carpeta 2 fotos, claro que yo tengo el código de estas fotos, como haría para que automáticamente se distribuyan en cada carpeta con un excel? ayuda por favor, gracias
Buen día, aquí va: Sub CrearSubCarpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value) End IfNext jEnd Sub
???Siempre las dejaré en el primer comentario del video, aquí va nuevamente: Sub CrearSubCarpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1 Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value) End If Next j End Sub
muchas gracias me sirvió mucho, si puedes subir un video donde expliques como mover archivos de imagen a una carpeta especifica o crearla y guardar el archivo ahi.
si señor, te contextualizo: en mi trabajo descargo imagenes y luego me toca organizarlas en carpetas por diferentes itens, el hacerlo una a una me toma muchisimo tiempo, entonces queria preguntarter si en macros se puede tomar esos archivos y organizarlos dentro de carpetas de una sola vez, se podria hacer?
Por ahora se me ocurre que se puede hacer a través de un listado que se generaría a través de una macro (ya hay un video para listar archivos: ruclips.net/video/b-M-dJyynaM/видео.html) y al frente colocar el nombre de la carpeta en la cual se organiza cada una de las fotos y lo que haría la macro es mover los archivos a esa carpeta. Cuéntame si así te sería útil.
Hola, gracias me ha servido bastante la información, mas sin embargo espero puedas apoyarme con lo siguiente, como puedo realizar que al momento que me cree carpetas y subcarpetas, me mande una alerta de cuantas creo de cada carpeta y cada subcarpeta ? espero puedas apoyarme, saludos!
Sub CrearSubCarpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value) End IfNext jEnd Sub
Hola Antonio, aquí va: Sub CrearSubCarpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value) End IfNext jEnd Sub
Hola Jesús, gracias por el vídeo, me ayudó mucho con el trabajo que justo tengo ahora. No obstante, quisiera tu ayuda con un caso más complejo o muy trabajoso, debo crear 1052 libros de excel y cada libro se debe crear y guardar en una única ruta; es decir, 1052 rutas para 1052 libros de excel. como me puedes ayudar?
Hola Frederic, aqui va. Sub CrearSubCarpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value) End IfNext j End Sub
Sergio, adjunto código nuevamente, favor quitar el símbolo "?" que a veces aparece al final del código: Sub CrearSub_Carpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1 Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop
Frederic, aquí va: Sub CrearSub_Carpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1 Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop
Sub CrearSubCarpetas() Dim i As Integer Dim j As Integer i = 0 ruta = InputBox("INGRESAR LA RUTA") Range("A1").Select On Error Resume Next Do While ActiveCell.Value "" i = i + 1 MkDir (ruta & "/" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop For j = 1 To i Step 1Cells(j, 2).Select If ActiveCell.Value "" Then On Error Resume Next Do While ActiveCell.Value "" MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value) ActiveCell.Offset(0, 1).Select Loop MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value) End IfNext jEnd Sub
Bravo! Ahora quisiera una macro que aumente sub carpetas a carpetas ya creadas. Seria fenomenal. A ver si avisas. Like amigo.
no entiendo porque no tienes mas «likes» ni mas vistas. el macro funciona exelentemente y permite salvar mucho tiempo. Muchas gracias
nota: pude notar que frecuentemente te dicen que no consiguen la macro. Te recomiendo que la pegues en la descripccion del video y no en los comentarios.
muchas gracias, me ha funcionado muy bien. Recomiendo que si colocas el codigo en los comentarios lo dejes fijo, así aparecerá siempre hasta arriba independientemente de todos los comentarios adicionales que se agreguen
Jefe, ya no estan los link para descargar macro. Que pasoooo?
EXCELENTE VIDEO MASTER!!! MUCHAS GRACIAS!!!!
Hola, al ejecutar la macro en la carpeta me sale una carpeta mas que se llama "Verdadero" y dentro me aparecen varias carpetas repetidas. Como puedo eliminar esto?
Gracias.
Hola Jesus, consultarte como cambiaría la macro si deseo crear carpeta 1/ carpeta 2/carpeta 3 ya que este seria la estructura que tengo. tu apoyo por favor
Excelente video Bro me sirvió bastante
Hola disculpa, donde está el código? entre a tu web y no lo encuentro! Ya lo borraron?
amigo pueddes poner la macro completa ?
Hola Jesus, sí además de crear las subcarpetas, quiero copiar/agregar un archivo Excel en la carpeta principal?
Excelente funcionando! Me gustaria saber para crear una sub carpeta dentro de una sub carpeta? osea 3 niveles? se puede?
Excelente gracias por su colaboración
no copia todas las filas hay algo mal en el codigo solo me crea 86 carpetas de 129 que quiero hacer
Hola, buen video. ¿me ayudarías a crear la macro para subcarpetas dentro de las subcarpetas?
Hola, Tengo el siguiente problema . Cree las carpetas con Visual Basic de un archivo de excel, pero las subcarpetas que contienen la info provienen de otro archivo. Como puedo vincular para que se guarden las subcarpetas en mis carpetas ya creadas, y como puedo hacer que se vayan actualizando? Gracias
Buenas, si tengo que meter multiples carpetas dentro de una misma, ejemplo
Carpeta1 - Sub1
Carpeta1 - Sub2
Carpeta1 - Sub3
Carpeta1 - Sub4
Carpeta1 - Sub5
--
Carpeta2 - Sub1
Carpeta2 - Sub2
Carpeta2 - Sub3
Carpeta2 - Sub4
Carpeta2 - Sub5
etc. que deberia cambiar en el codigo?
Saludos.-
Hola JESUS quisiera saber donde dejas la información para crear mis carpetas
Si pudieras poner un link hacia el código en la sección de la descripción tendrías muchos mas likes y visitas te lo aseguro, cuesta un poco encontrar el código entre tanto comentario. Pero está genial tu material. Muchas gracias Jesús, muy productivo tu material.
e ha funcionado de maravilla y una ultima duda como le ago para meter un documento de word con ciertas características a todas las carpetas que cree. ejemplo la carpeta con 3 sub-carpetas y un documento así a 100 carpetas.
Gracias por su aporte, se podría abrir un archivo autocad desde un listado de archivos en Excel. Gracias por su respuesta.
Hola Eddy, si se puede. Que más necesitas hacer en el archivo de AutoCAD?
Tengo una cantidad de archivos autocad, quiero ordenarlos y abrirlos desde el Excel para poder trabajar. Si me podrías ayudar con ese tema. Gracias por su respuesta.
Te agraecere mucho tu respuesta, gracias
hola
me puedes ayudar con un código que me ayude a detectar la ruta de la carpeta que contiene el archivo excel con la macro, ya que quiero que al guardar el archivo de word que genero con la macro me detecte automáticamente la carpeta que contiene el excel y se guarde en dicha carpeta mi nuevo archivo word. Tomando en cuenta que la carpeta lo cambiaría de lugar constantemente. porfa te agradecería mucho. Gracias
:) Muchas gracias, es super me encanto, muy util,
Hola Jesus, como podría crear mas carpetas con mas subcarpetas dentro de una subcarpeta. Tu apoyo por favor
Hola amigo, buen video pero al ejecurar la macro me genera una carpeta extra con nombre "verdadero" en la cual hay subcarpetas que no estan en el listado supongo que es un erro facil de solucionar.
Buenas tardes me podría compartir la macro , gracias
Genial! gracias, consulta se puede crea una carpeta principa > sub carpeta > subsubcarpeta??
Hola Makarena, si, si es posible. Habría que ajustar un poco la programación
@@Macroexcelaton 😱😱😱 esperare ese video !!!
@@makarenaplazalinares8463 Revisa el vídeo, espero que sea lo que buscabas ruclips.net/video/E1iyo7jiryE/видео.html
Hola, Porque no colocas la Macro completa
Buen video, quisiera saber como hacer para luego de crear esas carpetas, colocar las imagenes dentro de cada una, por ejemplo creo carpetas enumeradas del 1 al 200 y quiero poner en cada carpeta 2 fotos, claro que yo tengo el código de estas fotos, como haría para que automáticamente se distribuyan en cada carpeta con un excel? ayuda por favor, gracias
Amigooo.!!!! sorry no encuentro los codigos VBA porfa ayudame
Buen día, aquí va:
Sub CrearSubCarpetas() Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End IfNext jEnd Sub
DONDE SALE LA MACRO?????????????
???Siempre las dejaré en el primer comentario del video, aquí va nuevamente:
Sub CrearSubCarpetas()
Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1
Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End If
Next j
End Sub
Hola, súper útil el video. Pregunta: donde puedo consultar el código? Gracias
Hola José, en el siguiente link puedes descargar el archivo ejemplo: jalfredo06.wixsite.com/macroexcelaton/herramientas-libres
gracias por que el video me sirvio de arto mara mi exel
Me sale errror de sintaxis
muchas gracias me sirvió mucho, si puedes subir un video donde expliques como mover archivos de imagen a una carpeta especifica o crearla y guardar el archivo ahi.
Hola Willy, lo que tu deseas es que la macro te seleccione los archivos de imagen donde hay diferentes tipos de archivos y los coloque en una carpeta?
si señor, te contextualizo: en mi trabajo descargo imagenes y luego me toca organizarlas en carpetas por diferentes itens, el hacerlo una a una me toma muchisimo tiempo, entonces queria preguntarter si en macros se puede tomar esos archivos y organizarlos dentro de carpetas de una sola vez, se podria hacer?
por favor reenviame el link por que no se puede ver sale un error al darle clik al enlace.
Por ahora se me ocurre que se puede hacer a través de un listado que se generaría a través de una macro (ya hay un video para listar archivos: ruclips.net/video/b-M-dJyynaM/видео.html) y al frente colocar el nombre de la carpeta en la cual se organiza cada una de las fotos y lo que haría la macro es mover los archivos a esa carpeta. Cuéntame si así te sería útil.
al darle click al enlace me sale esto: 404 Not Found
Hola, gracias me ha servido bastante la información, mas sin embargo espero puedas apoyarme con lo siguiente, como puedo realizar que al momento que me cree carpetas y subcarpetas, me mande una alerta de cuantas creo de cada carpeta y cada subcarpeta ? espero puedas apoyarme, saludos!
Sub CrearSubCarpetas() Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End IfNext jEnd Sub
buenas noches ingeniero, excelente tutorial pero no está la macro en los comentarios de donde la puedo copiar
Hola Antonio, aquí va: Sub CrearSubCarpetas() Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End IfNext jEnd Sub
EXCELENTE JESUS TE LO AGRADEZCO PARA LOS QUE NO SABEMOS PROGRAMAR ESTO ES MUY UTIL. GRACIAS
Hola Jesús, gracias por el vídeo, me ayudó mucho con el trabajo que justo tengo ahora.
No obstante, quisiera tu ayuda con un caso más complejo o muy trabajoso, debo crear 1052 libros de excel y cada libro se debe crear y guardar en una única ruta; es decir, 1052 rutas para 1052 libros de excel.
como me puedes ayudar?
Christian, siento la demora. Subí un nuevo video con lo que necesitas: ruclips.net/video/1P0T642mH7Q/видео.html
hola ...
me puedes facilitar tu codigo porfa... es justo lo que necesito
Hola Frederic, aqui va.
Sub CrearSubCarpetas() Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End IfNext j
End Sub
Hola jesus, tengo un problema con la Macross. LA ruta End IfNext j me aparece en rojo y no me deja correrla en excel. ¿Cómo puedo solucionarlo?
Sergio, adjunto código nuevamente, favor quitar el símbolo "?" que a veces aparece al final del código:
Sub CrearSub_Carpetas()
Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1
Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End If
Next j
End Sub
Frederic, aquí va:
Sub CrearSub_Carpetas()
Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1
Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End If
Next j
End Sub
Hola jesus, gracias! me funcionó adecuadamente!
excelente muy buen video
Me podrías compartir el código de la macro?
No lo localizó en los comentarios
no me funciono
it's magic
Me alegra que te haya sido útil.
Sub CrearSubCarpetas() Dim i As Integer
Dim j As Integer
i = 0
ruta = InputBox("INGRESAR LA RUTA")
Range("A1").Select
On Error Resume Next
Do While ActiveCell.Value ""
i = i + 1
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
For j = 1 To i Step 1Cells(j, 2).Select
If ActiveCell.Value "" Then
On Error Resume Next
Do While ActiveCell.Value ""
MkDir (ruta & "/" & Cells(j, 1).Value & "/" & ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
Loop
MkDir (ruta & "/" & ActiveCell.Offset(-1, 0).Select & "/" & ActiveCell.Value)
End IfNext jEnd Sub
Jesús Hernández r
Gracias, deberías poner el comentario fijo para que aparezca de primero, thank you
fija la wea