Agregar ADJUNTO mediante un UserForm

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Agregar ADJUNTO mediante un UserForm

Notapor alejandro123 » 08 Ene 2018 10:02

Hola a todos!

Me presento, mi nombre es Alejandro, y soy nuevo en esto de la programación mediante VBA, y realmente manejo solo lo básico de lo básico.
Se me encargó la tarea de poder agregar registros en una hoja de excel, que no hay problema con eso.

El problema comienza cuando debo agregar un adjunto (ej. un pdf o una imagen). Buscando en internet, logré que me abra la ventana de "Buscar el archivo", el cual puedo seleccionarlo y me indica la ruta en el label.

¿Cómo puedo agregar ese adjunto en la misma linea que el registro, en la celda que corresponde, creando un hipervinculo en una carpeta específica?
¿En el label, como puede aparecer el nombre del archivo, y no la ruta de ubicación?
Además, ¿Existe la posibilidad de modificar ese adjunto a través del formulario donde modifico los datos?

Espero no incomodar a nadie con tanta pregunta, espero puedan ayudarme, sobre todo con adjuntar, por favor!!!

Espero aprender y en un futuro no muy lejano ser un aporte tambien.

Muchas gracias a todos desde ya! :D :D :D
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
alejandro123
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 3
Registrado: 08 Ene 2018 09:46

Re: Agregar ADJUNTO mediante un UserForm

Notapor Antoni » 08 Ene 2018 17:00

Ya casi está, mañana, si no pasa nada,l te subo un "apaño".
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5359
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Agregar ADJUNTO mediante un UserForm

Notapor Cacho R » 08 Ene 2018 17:36

.
Hola! Alejandro ¡Muchas preguntas requieren muchas respuestas!...

Por ello te adjunto un pequeño/sencillo pero "sustancioso" modelo. Verás:

- Controles con posiciones y tamaños prefijados.
- Controles con posiciones y tamaños modificados por código.
- Buscador por dos campos en simultáneo.
- Altas, bajas y modificaciones de registros.
- Ayuda en línea.

¿Te sirve la orientación?...

Feliz 2018.
Saludos, Cacho R.
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 9999
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: Agregar ADJUNTO mediante un UserForm

Notapor Cacho R » 08 Ene 2018 19:30

Antoni escribió:Ya casi está, mañana, si no pasa nada,l te subo un "apaño".

Tarde... ¡Siempre tarde!... :mrgreen: :D :P :mrgreen:
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 9999
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: Agregar ADJUNTO mediante un UserForm

Notapor alejandro123 » 09 Ene 2018 00:34

Muchísimas gracias por dedicar parte de su tiempo en mi consulta.

Cacho R escribió:.
Hola! Alejandro ¡Muchas preguntas requieren muchas respuestas!...

Por ello te adjunto un pequeño/sencillo pero "sustancioso" modelo. Verás:

- Controles con posiciones y tamaños prefijados.
- Controles con posiciones y tamaños modificados por código.
- Buscador por dos campos en simultáneo.
- Altas, bajas y modificaciones de registros.
- Ayuda en línea.

¿Te sirve la orientación?...

Feliz 2018.
Saludos, Cacho R.


Cacho R., es exactamente lo que estaba buscando, muchas gracias!!! Además de que está muy completo el ejemplo, sirvió para responderme otras dudas que surgieron en el camino :D

Ahora solo me surge una consulta, ese adjunto que yo estoy seleccionando, puede ser guardado en OTRA carpeta?

Nuevamente, muchas gracias Cacho R. y Antoni!!!
alejandro123
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 3
Registrado: 08 Ene 2018 09:46

Re: Agregar ADJUNTO mediante un UserForm

Notapor Cacho R » 09 Ene 2018 01:26

.
alejandro123 escribió:Cacho R., es exactamente lo que estaba buscando, muchas gracias!!! Además de que está muy completo el ejemplo, sirvió para responderme otras dudas que surgieron en el camino :D

Pero... ¡Qué bueno!...

alejandro123 escribió:Ahora solo me surge una consulta, ese adjunto que yo estoy seleccionando, puede ser guardado en OTRA carpeta?...

Desde el punto de vista práctico: ¡Yo no me "metería" en "esa ensalada" ni por casualidad!...
Quiero decir: "Algo" me indica (por experiencia) que hoy quieres cambiar/copiar de carpeta a los archivos y mañana querrás cambiar/copiar y cambiarles de nombre (ya que estamos).

Por ello te sugiero:

- Opción 1: Cambia (o copia) "a mano" esos archivos a la carpeta definitiva y luego asocia su hipervínculo.
- Opción 2: Idem anterior pero que te lo haga una macro.
- Opción 3: Ibídem anteriores pero incluyendo cambio de nombres.

En resumen: ¡No mezclar la hacienda! (decimos en el campo).

Saludos, Cacho R.
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 9999
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: Agregar ADJUNTO mediante un UserForm

Notapor alejandro123 » 09 Ene 2018 16:03

Bueno, seguí el consejo dado. La idea de agregar el hipervínculo era lo que necesitaba, no así el que el hipervínculo fuese nombrado como el archivo que estoy seleccionando. Me restringí a que se llame solamente "Adjunto", ya que se encontraría con su registro a un costado.

Código: Seleccionar todo
    With Hoja7.Cells(final, 18)
        If Dir(Me.txt_adjuntar) <> "" And Me.txt_adjuntar <> "" Then
           .Worksheet.Hyperlinks.Add Anchor:=.Cells, Address:=Me.txt_adjuntar, TextToDisplay:="Adjunto"
        Else
            Hoja7.Cells(final, 18) = "-"
        End If
    End With


Pude resolver todas mis dudas e incluso complementé con las propiedades de MouseMove junto a un label para poder entregar información.

Muchísimas gracias por tu tiempo Cacho R.!
alejandro123
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 3
Registrado: 08 Ene 2018 09:46

Re: Agregar ADJUNTO mediante un UserForm

Notapor Cacho R » 09 Ene 2018 18:50

.
alejandro123 escribió:Muchísimas gracias por tu tiempo Cacho R.!

Fue un gusto, Alejandro, y hasta la próxima.
Cacho R.
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 9999
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: Agregar ADJUNTO mediante un UserForm

Notapor Dario.ferv » 22 Ene 2018 13:02

Cacho R escribió:Por ello te adjunto un pequeño/sencillo pero "sustancioso" modelo.

alejandro123 escribió:Me restringí a que se llame solamente "Adjunto", ya que se encontraría con su registro a un costado.


Hola estimados, apliqué parte del código que subió Cacho para agregar hipervínculos a mi planilla mediante un formulario y usé la idea de Alejandro del TextToDisplay, mi consulta es la siguiente: Cómo puedo obtener la dirección del hipervínculo en un TextBox de un formulario? he probado varios códigos pero solo obtengo la palabra que puse en el TextToDisplay o el valor de la celda ($A$1, por ejemplo). De antemano gracias.

Saludos!
Dario.ferv
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 6
Registrado: 08 Ene 2018 08:45

Re: Agregar ADJUNTO mediante un UserForm

Notapor Antoni » 22 Ene 2018 14:29

Código: Seleccionar todo
TextBox1 = Range("A1").Hyperlinks(1).Address
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5359
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados