Jump to content
Sign in to follow this  
zero-x

Renombrar aleatoriamente

Recommended Posts

hola

Mis conocimientos de excel en programacion son limitados

pero algo entiendo, hace un tiempo necesitaba renombrar

muchas imagenes al azar , en su momento me ayudo Logroastur

creo que es de otro foro , la rutina es de él.
Me quede con la rutina pero perdi la implementacion en un formateo

alguien me ayuda a implementarla

Se trata de un modulo mdGetRandomFileName,

la idea es leer un directorio lleno de imagenes, o otro tipo de archivos

y renombrarla al azar, la rutina hace eso.

Como la implemento para que al  seleccionar un directorio me permita renombrar

segun como explica la rutina.

 

gracias

 

 

Renombrar aleatorio.xlsm

Share this post


Link to post
Share on other sites

Hola zero-x,

La funcion mdGetRandomFileName, pues echale una ojeada a los comentarios que pone el que la creo. Blanco  y en botella :)

En definitiva a la funcion le pones como parametro obligatorio la ruta completa de un archivo y te cambia el nombre del archivo.Tiene 3 parametros opcionales para que el nombre aleatorio tenga o no numeros, y/o mayusculas y su largo.

Por ej: si le pasas como argumento tal que asi "C:\Excel\TUAPP\Prueba.xlsx" te de volvera algo asi: "C:\Excel\TUAPP\25321156.xlsx" o  "C:\Excel\TUAPP\asdfgbfd.xlsx", o... segun los argumentos opcionales

SAludos

Ikanni

 

 

 

 

Share this post


Link to post
Share on other sites
Hace 3 horas, Macro Antonio dijo:

¿ Pero lo has probado o no ?

 Estoy verificando que no hay errores , mas rato te confirmo gracias

 

edit : Confirmado Puedes cerrar el tema. Gracias

 

 

 

Edited by zero-x
clarificar

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Es perfecto , es lo que trate de hacer y no me resulto, solo una duda, se podrá modificar de alguna manera que  la suma no sea mayor al promedio? no se si sera muy complejo eso. Pero de verdad muchas gracias.
    • Saludos @rsoto.conta te dejo una forma, es las mas simple, ordenas la deuda, y vas asignando valores maximo y minimo a cada cobrador, al final la distribución es uniforme, lo único es que si el valor máximo es muy diferente al resto, pues siempre el primer seleccionado de seguro tendrá un promedio mucho mayor Distribuir Deuda.xlsm
    • ya revise ambos codigos una disculpa por la demora, y veo que ambos casos son funcionales, pero me surgen algunas dudas al respecto: para el caso de MAURICIO_ODN mi pregunta seria al poner un listbox oculto en el formulario no causaria algun error debido a procedimientos largos e inmanejables (como dice Antoni) o de que otra manera se podria utilizar tu codigo? ya que cuando lo uno al evento change del combobox pais si marca error.   para el caso de Antonio, mi pregunta es si solo conoces esa manera?, es decir; en mi idea trato de evitar el uso de varias hojas y dejarlo mas en codigo, disculpame es que ando buscando como que el "termino medio" de las cosas. Aunque es muy bueno hacerlo como lo mencionas, tal vez me adapte a tu idea mejor.   de antemano muchas gracias
    • A ver asi: With Application hoy = VBA.CDate(VBA.Date) mday = .WeekNum(hoy, 2) fmes = .EoMonth(hoy, -1) fec = VBA.Format(mday, "dd/mm/yyyy") uday = .WeekNum(fmes, 2) mes_ = VBA.Month(hoy) resul = VBA.IIf(mes_ = 1, mday, mday - uday + 1) End With  
    • Buenas Tardes Señores/as, Espero se encuentren muy bien junto a sus familias en relación al Virus que bastante nos ha afectado. Quisiera pedirles una orientación u ayuda por favor. Esta es una empresa de cobranza la cual soy el el que distribuye la deuda a cada cobrador. adjunto archivo el cual ocupo, son 25 cobradores , debo distribuir el total de la deuda a estas 25 personas, el cual tengo que tratar que el MONTO y la CANTIDAD  sean lo mas parecido parecidos y parejo posible. Cualquiera orientación y/o ayuda se agradece (busque en todo el foro y no encontré algo similar, y si hay, busque mal)  Espero tenga una buena tarde,     0807.xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy