Elsa Matilde

Te estaré enviando un nuevo modelo porque el que utilizas hasta aquí adolece de algunas fallas que detallo: Estás presentando 3 situaciones: 1- Se muestra el último usuario registrado en los label y ahora también la imagen... y se solicita la...

Las instrucciones que necesitas en el evento Initialize son éstas: Private Sub UserForm_Initialize() Sheets("logs").Activate Label1 = Hoja8.Range("g1").Value Label2 = Hoja8.Range("h1").Value 'EM: busca la ruta de la imagen. Se encuentra en hoja...

Tengo desarrollado un pequeño ejemplo que puedo enviártelo como para iniciarte en el tema. Mis correos aparecen en el sitio que dejo al pie.

Veo que tu hoja Clientes tiene en la col B datos de fechas como texto. Entonces mirando el código de tu UF de Clientes, en esa col envías datos de dirección. 'Aqui es cuando agregamos o modificamos el registro Application.ScreenUpdating = False...

Escribí la macro aquí para poder agregar lo que falta. También aclara en que celda se encuentra el día o se debe tomar el de la fecha. No valores aun, solo envia las aclaraciones.

Recibí el libro. Ni bien tenga un momento lo reviso y te comento. Sdos!

El dato lo necesitas para que, al momento de modificar el registro del cliente, Excel pueda ir a buscar la imagen para mostrartela. Y si le asignas una nueva foto se guardará la nueva ruta. Si no guardas esa información nunca sabrás cuál fue la...

Aclara algunos detalles: -¿Dónde se encuentra la lista? Nombre de hoja y rango. - ¿Si las filas a mostrar se encuentran en la misma hoja o en cuál? Y a partir de qué número de fila se debe mostrar ( o cuál es la primer fila oculta) No valores aún...

Envíame una muestra de la hoja con los controles con sus nombres reales, para no perder tiempo dibujándolos y te coloco el bucle. Mis correos aparecen en mi sitio que dejo al pie.

Una opción puede ser colocar un control de error y en ese caso asignarle otro nombre o dejar el predeterminado que asigna Excel. Sub NombreHoja() On Error Resume Next ActiveSheet.Name = Range("B1").Value If Err.Number > 0 Then MsgBox "Ya existe hoja...