Ubicación de Carpeta

2 envíos / 0 nuevos
Último envío
SALAVERRINO
Imagen de SALAVERRINO
Offline
última acción: Hace 6 meses 4 días
alta: 24/05/2016 - 15:59
Puntos: 25
Ubicación de Carpeta

Buenos días a los miembros de este prestigioso foro, en esta ocasión quisiera pedir su apoyo en como mejorar la macro, en cuanto a la dirección donde se ejecuta dicha macro, cuando presiono el botón de formulario Union Plla 601, por defecto me lleva a una carpeta diferente a la cual estoy trabajando ejemplo: C:\Este equipo\Documentos (POR DEFECTO), y lo que quisiera es cuando ejecuto la rutina del botón de formulario Union Plla 601, me muestre la ubicación de los datos de dicha carpeta que se trabajando, ejemplo: D:\AGENCIAS MARITIMAS\SHIPPING\AÑO 2017\10 ABRIL CS SATIRA (lo que esta resaltado negrita es carpeta es variable que podria esta en una E: F:, etc., adjunto archivo.


Desde ya agradezco su apoyo.

AdjuntoTamaño
File plantilla_electronica.xlsm511.55 KB
Cron
Imagen de Cron
Offline
última acción: Hace 2 horas 13 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8840
En la hoja puedes obtener la

En la hoja puedes obtener la dirección completa y el nombre del archivo con la siguiente función:

=SUSTITUIR(IZQUIERDA(CELDA("nombrearchivo");ENCONTRAR("]";CELDA("nombrearchivo"))-1);"[";"")

En realidad te valdría con:

=CELDA("nombrearchivo")

pero esto te devuelve el nombre del archivo entre corchetes y a la derecha el nombre de la hoja. Al utilizar IZQUIERDA, eliminamos todo lo que hay desde el corchete de cierre ] hasta el final. Con SUSTITUIR eliminamos el corchete de apertura [.

Si lo necesitas en una macro, puedes utilizar:

Application.ActiveWorkbook.Path

O si necesitas el nombre del archivo también:

Application.ActiveWorkbook.FullName

 

Un saludo