víctor ibarz respondió:
Sería algo así: Sub CrearCarpeta() ruta = "C:\OUT\" NumOut = Range("A2") DescripcionOut = Range("A3") Carpeta = "OUT_" & NumOut & "-" & Format(Date, "yyyy_mm_dd") & "-" & DescripcionOut If Len(Dir(ruta & Carpeta, vbDirectory)) = 0 Then ruta = ruta &...