Dante Amor

Podría ser algo así Private Sub NOMBRES_APELLIDOS_Change() 'Buscar por nombre Dim p, i Set p = Sheets("PERSONAL") If Trim(NOMBRES_APELLIDOS.Value) = "" Then LIST_NOMBRES.Visible = False Exit Sub End If LIST_NOMBRES.clear CEDULA_CODIGO = "" CARGO = ""...

Tengo que revisar el código para ver dónde aplicar el ajuste. O tal vez quieras intentar actualizar el código. Por ejemplo, cuando hace la operación tienes que utilizar la función CDbl( ): TextBox1 = CDbl(TextBox1) + CDbl(TextBox2) Envíame tu archivo...

Envíame lo siguiente: 2 libros con datos que quieres importar, en cada libro me marcas de amarillo lo que quieres importar 1 libro con el userform, me explicas con un ejemplo qué quieres poner el formulario; y en una hoja, me pones el resultado...

Una opción es que cambies el formato de la columna, selecciona la columna, entra al menú Inicio, Formato, Formato de celdas, Selecciona Personalizada, en Tipo escribe 13 ceros: 0000000000000 Presiona Aceptar Pero el formato solamente es un efecto...

Tienes 2 libros Libro origen con los datos Libro destino donde quieres el resultado ¿En el libro origen en cuál hoja están los datos?¿En el libro origen en cuál columna están las cédulas?¿Pueden existir varios registros con la misma cédula o...

Existen varios métodos para agregar datos a un listbox, uno de ellos es .AddItem, pero este método solamente te permite 10 columnas, es una limitante de este método. Otros métodos pueden ser .RowSource o .List. Revisa los siguientes enlaces: Agregar...

En un correo nuevo envíame tu archivo, recuerda poner tu nombre de usuario en el asunto

Podrías poner un ejemplo de cada cálculo: Si escribo 6 horas realizadas y el valor de la hora es 20 ¿Cuál es el cálculo? Si activo el checkbox1, ¿cuál es el cálculo? Si activo el checkbox2, ¿cuál es el cálculo? Si activo el checkbox3, ¿cuál es el...

Para eso, tendrías que capturar el nombre completo, presionar un botón, la macro buscaría, si lo encuentra completa los otros textbox, si no existe, te enviaría el mensaje. Si así lo quieres, entonces envíame tu archivo y te adapto la macro. Mi...

Prueba con lo siguiente y me comentas Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Or Not IsNumeric(TextBox1) Then MsgBox "Introduce un número " TextBox1.SetFocus Exit Sub End If ' Set h = Sheets("Hoja1") u = h.Range("I" &...