Elsa Matilde

Me parece que toda esta parte del proceso, pase al listbox de la derecha y el cálculo de días lo debes hacer en el mismo código, o sea en el evento hacer click del texbox de la izquierda. Por ejemplo: 'se coloca en el label la fecha del primer item...

Tengo un modelo con separación de filas: Para lograr esto, al llenar cada fila del listbox se agrega una más con los guiones en todas sus columnas. En mi ejemplo le di un ancho mayor a la columna 0. ListBox3. AddItem...

No me queda claro si necesitas que copie cada hoja en nuevos libros (separados)... o todas las hojas en el mismo libro que estás creando desde tu código, y en ese caso si cada hoja se copia en hojas separadas o a continuación de lo ya pegado. Porque...

Te dejo la macro que solicitas. Estoy considerando que puede haber valores que no necesariamente sean múltiplos de 50 (ver imagen). Sub IgualarCantidades() 'Ajustada x Elsamatilde Application.ScreenUpdating = False For i = Range("G" &...

La propiedad es: MatchRequired en True Si llegas a ingresar un valor que no está en la lista recibirás el siguiente mensaje: Si luego de este mensaje decides borrarlo y dejarlo vacío presiona ESC para poder salir.

Observa en la imagen cómo se escribe el Userform en la macro... sin el número.

A simple vista debes reemplazar el rango de búsqueda solo a las col B:C en la siguiente instrucción: If Sheets("Principal").Range("A:c").Find(TxtFiltro.Value) Is Nothing Then Sdos. Elsa

Te recomiendo utilizar el evento Exit en lugar del que estás utilizando. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'si la celda se limpia o queda vacía el proceso continúa If TextBox1 = "" Then Exit Sub Dim Nombre As String Dim...

Te explico algunos detalles: - Cuando se inicializa un Userform se supone arranca vacío por lo que no hace falta limpiarlo. Salvo que sea llamado desde otro UF y ya traiga los datos necesarios para esa llamada. En ese caso no habría que limpiarlo....

Las siguientes instrucciones cambian el modo de selección. Agregalas a tu código donde corresponda. Private Sub CommandButton1_Click() If ListBox1.MultiSelect = 0 Then ListBox1.MultiSelect = 1 Else ListBox1.MultiSelect = 0 End If End Sub