Elsa Matilde

Si estás recibiendo esta respuesta, enviame una muestra con el formulario (¿es un userform?) Al correo: cibersoft. Arg de gmail. También mis correos aparecen en sitio que dejo al pie.

No se a quien va dirigida la consulta pero viendo que no tenés respuesta aún, aquí va mi idea. En el evento Initialize debes guardar el nombre del libro y hoja de destino. Private Sub UserForm_Initialize() 'se declara een una variable el libro activo...

Recibida tu consulta. Ya te prepararé el nuevo código ajustado.

Qué pena pero parece que no están enviando notificaciones. Enviame una hoja de ejemplo para reconocer las celdas y verificar la macro.

Hay que extraer, del hipervínculo, el nombre de la hoja para poder hacerla visible. Esto se puede realizar desde el evento FollowHyperlink de la hoja donde tengas todos tus vínculos. 1- Entra al Editor de macros (con ALT+F11 o menú...

Estás colocando el código en el evento Initialize, o sea al abrir el Userform... y todavía no tienes nada en el textbox. Debieras colocar el código, por ejemplo, en el evento Exit del Textbox, o sea a salir del control luego de escribir el texto por...

Entiendo que ya no quieres que se te inserte una fila por encima sino ir colocando los datos hacia abajo. En ese caso primero debes encontrar cuál es la primer fila vacía (hay varios modos. En video 30 de mi canal explico el método CurrentRegion que...

Ya lleva varios días esta consulta aquí. Si aún no tenés resuelto el tema comentame aclarando este detalle: ¿En qué momento debe ejecutarse el relleno? ¿Al momento que ingresas un valor en col E o recorriendo así como está tu tabla?

En los videos 20 y 40 de mi canal dejé explicados los pasos para insertar gifs animados (en un Userform o en una hoja). Ahora, si solo se trata de una imagen gif (no animada) este ejemplo te puede servir: Sub muestraGif() 'establecer ruta y nombre...

Hay muchas maneras de copiar/pegar datos (con formatos, con fórmulas, solo valores, etc). Aquí no mencionas dónde se debiera pegar ni cómo. Esto es solo un ejemplo: Sub copiando() ActiveCell.Offset(-1, 0).Resize(1, 43).Select Selection.Copy...