Hola

Realiza un prueba con el siguiente codigo

*Borra el contenido de tu Módulo1 y pega este codigo:

Código:

Únicamente los usuarios registrados pueden visualizar esta información.

Haz un prueba oprimiento tu boton Crear Carpetas y nos platicas como te fue

saludos

En pimer lugar quiero agradecerte tu ayuda. Me parece increible que hayan personas como tú que emplean su tiempo y sus conocimientos en ayudar a los demás de manera altruista.

He probado el código y parece que funciona perfectamente. Sólo me queda probarlo en el archivo original.

Ahora me surge otra duda, mi intención era colocar un enlace a cada una de las celdas con la URL de la carpeta que corresponde a cada una de ellas. ¿De qué forma puedo hacerlo? Antes lo tenía claro pero ahora con tu código no se donde ponerlo.


Muchas gracias y un saludo

Hola

Me alegro te haya funcionado, para asignar los links (Hipervinculos), agrega al codigo lo resaltado de color azul.

Saludos cordiales:

Código:

Únicamente los usuarios registrados pueden visualizar esta información.

Saludos cordiales

Muchisimas gracias por tu ayuda.

Funciona todo a la perfección.


Un saludo y Felices Fiestas.

Únicamente los usuarios registrados pueden visualizar esta información.

--------------------------
que onda banda esta es la primera vez que escribo
haber si me pueden ayudar yo solo quiero un macro
enque que cree una carpeta con cada nombre de la celda en la columna
a1 y una subcarpeta para cada una de la b1..
seria carpeta a1 subcarpeta b1,
carpeta a2 subcarpeta b2
y asi sucecibamente .
les agradeceri mucho me pasaran un codigo
eso hari muy rapido mi trabajo
gracias
suerte

otra cosa mi exceel es 2003
gracias

Hola MEME

La anterior macro la podemos adaptar a tu necesidad, solo seria necesario que nos comentarás en cuál ruta se crearian o como señalarias en las celdas las rutas por ejemplo se me ocurre

en la celda A1 colocarias C:\NombreCarpeta\CrearEstaCarpeta
en la celda A2 CrearSubcarpeta

En el entendido de que la subcarpeta de A2 esta dentro del directorio de A1

En el primer caso seria necesario que ya existiera C:\NombreCarpeta, porque si no se provocaria un error, o solo que desearias que de una vez se crearan los dos subdirectorios.

Seria bueno tener un ejemplo de como lo haces manualmente para si colocarlos desde la macro.

saludos cordiales

buen primero que nada gracias por la ayuda, yo ya tengo un macro en la cual solo me crea las carpetas de la primer columna que seria de la A1 a la A20 y me las crea en la carpeta donde esta el archivo de excel, entonces lo que hago yo es borrar la lista de la A1 a la A20 y poner el contenido de la B1 a la B20 entonces ya que me crea esta nueva lista de carpetas yo manualmente lo que es muy tardado meto la carpeta b1 en la a1 la b2 en la a2 y asi sucesivamente, yo lo que te comentaba arriva era que si se podra que automaticamente cree una carpeta ya con su respectiva subcarpeta adentro para evitarme el trabajo ese que te comento.
este es el codigo del macro que uso:
Sub Crear_carpetas()
'Ocultamos el procedimiento
Application.ScreenUpdating = False
'llamamos al objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'pasamos a una variable, la ruta donde se encuentra el
'fichero de excel donde se está ejecutando este código
ruta = ActiveWorkbook.Path
'seleccionamos la primera celda que contiene
'los nombres de las carpetas (suponemos que es A4)
Range("A1").Select
'recorremos toda la columna, hasta que encuentre una fila vacía, y
'por cada fila con texto, crearemos una carpeta con el nombre
'de ese mismo texto
Do While Not IsEmpty(ActiveCell)
'si el fichero no existe, entonces lo creamos
If Not fso.FolderExists(ruta & "\" & ActiveCell.Value) Then
fso.CreateFolder (ruta & "\-" & ActiveCell.Value)
End If
'pasamos a la fila siguiente, y volvemos a recorrer el bucle
ActiveCell.Offset(1, 0).Select
Loop
'limpiamos el objeto
Set fso = Nothing
'Mostramos el procedimiento
Application.ScreenUpdating = True
End Sub

Hola MEME


Por lo que comentas la macro me parece funciona asi como lo deseas, sin hacerle ninguna modificación, descomprime el siguiente archivo y pruebalo, y nos comentas si te funciono.

Pasos:

1.- Descomprimes el archivo y lo guardas en la ruta donde deseas te cree las carpetas y subcarpetas (igual a tu anterior macro)
2.- en la celda A1 colocas el nombre de la Carpeta1 y en celda B1 el Nombre de la Subcarpeta1, asi como en el ejemplo del archivo
3.- Pulsas el boton crear carpetas


(La macro permite crear hasta 4 nive les ' Carpeta, Subcarpeta1, Subcarpeta2 y Subcarpeta3')

Saludos cordiales