Crear carpetas

[Akkar]

Hola, Soy nuevo aquí y en el mundo de Excel, tengan paciencia conmigo. Aunque ahora estoy mirando videos para aprender macro, empecé a hacer proyectos hace un mes. Pero como que empecé corriendo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

no sé si me explique bien sobre mi problema

se entiende lo que pretendes, sin embargo, estas pidiendo que se adivinen ciertos detalles (?)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

Ok, disculpa mi ignorancia, aunque entendí perfectamente lo que me dijiste, es lógico. No se si sabre poner el código, vamos a intentarlo.

ruta = ThisWorkbook.Path

MkDir ruta &...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

e intentado poner lo que necesito, organizando lo y buscando lógica, esta no se que intento es, ya que voy probando el ensayo y error

sin...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

Eres muy amable y paciente. No se como enviar el excel.

Sub crearcarpetas()

' creare un contador para sacar a las auxiliares que no esten repetidas para luego crear carpetas
Dim...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

puse completo para que vieras que si(sino estoy equivocado) puse los valores... aunque cuando empiezas a tocar, y no funciona, y copio y pego a ver si...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

1) tu variable "auxiliar" (cadena de texto) queda FIJA despues del primer for...next
- ya no "juega" para la segunda parte

2) cuando creas las...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

por que no mejor adjuntas (una copia de) TU modelo ?

creo que lo hice en el anterior mensaje

 

[Akkar]

ok, ya lo vi (que no estaba antes ?)

lo edite 3 minutos despues de publicar


bueno, estas en lo cierto, ni aun poniendo un nuevo me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

Amigo, ya lo conseguí

lo simplifique y conseguí el resultado querido, pero hasta que lo vi, me volvi loco.

pero ya funciona correctamente.

era una confusion en mis variables puestas.... que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

lo simplifique y conseguí el resultado querido, pero hasta que lo vi, me volvi loco.
pero ya funciona correctamente.
era una confusion en mis...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

no estoy seguro que funcione "correctamente", de todas formas, te paso esta informacion:

NO toque tu macro para importar datos, pero dos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

Solamente me quedaría depurar un poco la otra macro. Ya que al importar, me trae todo con colores y bordes, que conseguí eliminarlos. Pero me deja 3 lineas vacías al final, y no he sabido...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

Hola,

el .DataBodyRange sustituye a lo de ultimafila ?

el with es para que trabaje solo esa tabla?

porque no me deja crear otra carpeta en la variable que hiciste base?

me quede un poco...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

el .DataBodyRange sustituye a lo de ultimafila ?

mas o menos (entre otras cosas)

el with es para...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

lo mismo, al crear esas carpetas, los archivos serian como la carpeta donde deben ir

ejem. carpeta Manolo Perez CC343234234

los archivos serian en pdf

3AGO Perez CC343234234(val)
13AGO Perez...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

explicarme que hace cada linea de la macro

adjunto el mismo archivo solo con comentarios a cada linea de codigo
[QUOTE="Akkar, post: 228526...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

Muchísimas gracias!

  ' se indica el nombre de la sub-carpeta que debe ser dependiente de la ruta anterior '
  base = "\Curaciones Agosto20"

si quiero poner otra carpeta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Akkar]

  If Dir(ruta & base, vbDirectory) = "" Then MkDir ruta & base

como es, que este IF no tiene end if?

en mi primera macro tuve problemas al rellenar seguido de then, creo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Entre:

If A=B Then C=C+1

y

If A=B Then
   C=C+1
End If

No hay ninguna diferencia.