Elsa Matilde

Miraré la última versión que me enviaste y veré si me queda clara la consulta. Sdos. Elsa

Respondiendo al Ej. mencionado, la macro se coloca en un módulo y podes ejecutarla una vez completados los 2 valores del punto (*) Primero la macro verifica si aún el cuadro dice NG sino te enviará un mensaje. Sub paseMatriz() 'x Elsamatilde...

Desde el menú Insertar, Insertar imagen podes buscarlas en cualquier carpeta ubicada en tu equipo e incluso en disco externo. Una vez insertada, clic derecho sobre el objeto, opción 'Asignar macro' y allí le asignas la que necesites.

Esta macro es un ejemplo... podes utilizarla para todo tipo de control, aquí se controla que sea numérico. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsNumeric(TextBox2) Then MsgBox "Este campo debe ser numérico"....

No entendí si el Frame siempre estará como bloqueado y recién con el checkbox se va a desbloquear. ¿Quizás lo tengas bloqueado desde el evento Initialize del UF? Otra opción posible sin necesidad del checkbox es que lo tengas bloqueado hasta mover un...

Te faltó aclarar que estás trabajando con controles ListBox (y combobox) como si fuesen TextBox, de ahí que la confusión de dan. Las instrucciones serían: If lst_ES.List(0) = "SUSPENDIDO" Then lst_ES.BackColor = &HFF& 'rojo Else lst_ES.BackColor =...

En el mismo evento Initialize (en cualquiera de los 2 modelos), agregá las líneas para la fecha. Cuando los datos no serán modificados por el usuario lo convenciente es colocarlos en Label. Así que dibujé un Label, le dí algo de color, ubicación y...

Para cargar el combobox1 tenés una línea donde estás seleccionando la hoja BBDD y luego la recorre llenando el control... por eso se queda en esa hoja. Cambiá tu bucle por este otro: Private Sub UserForm_Initialize() 'x Elsamatilde Dim i As Integer i...

Teniendo la factura diseñada en una hoja la solución recomendada es una fórmula en lugar de macro y en ese caso cada hoja buscará el dato en la de precios correspondiente. Por ej, para la factura_PE, en fila 9 sería así:...

Esta macro hace lo que necesitas: Sub sinCeros() 'x Elsamatilde For Each cd In Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row) If cd.Value = 0 Then cd.Value = "" Next cd End Sub Ingresá al Editor de macros, insertá un módulo y allí pegala....