Dante Amor

Reviso tu archivo, Mi correo [email protected]

Utiliza esta macro Sub suma() 'Por.DAM Dim fec As Date fec = InputBox("Introduce la fecha en esta forma: dd/mm/aaaa", "FECHA") Columns("C").Clear For i = 1 To Range("A" & Rows.Count).End(xlUp).Row ws = ws + Cells(i, "B") If Cells(i, "A") = fec Then...

Se me ocurre la siguiente solución, puesto que no podemos hacer un filtro por un valor calculado, en este caso quieres calcular la longitud de los caracteres de la celda y en base a esa longitud hacer el filtrado. Como no podemos hacer eso en...

En el UserForm1 en cada textbox tienes que poner este código Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.DAM With UserForm2 .ptext = 1 .Show End With End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)...

Puedes enviarme un archivo con ejemplos, en otra hoja, utilizando esos datos de ejemplo, escribe como quieres el resultado.

Pon el siguiente código en el formulario: Dim colTbxs As Collection 'Collection Of Custom Textboxes Private Sub UserForm_Initialize() Dim ctlLoop As MSForms.Control Dim clsObject As Clase1 'Create New Collection To Store Custom Textboxes Set colTbxs...

Te anexo un archivo, en el userform va el código para validar los textbox, te puse un ejemplo con 3 textbox, tendrás que replicar este código en cada uno de los 40 textbox If validatext(ActiveControl.Name, ActiveControl.Value) = 1 Then Cancel = True...

Te presento 2 opciones. La primera, mantiene el libro cerrado, crea una hoja temporal para almacenar los datos del libro "Inventario De Insumos" (al final del proceso, borra la hoja temporal), el libro "Inventario De Insumos" deberá ser versión 2003,...

Después de esta línea End Select Tienes que poner esta línea, para que el evento se active nuevamente. Application.EnableEvents = True Si no se está ejecutando, crea una pequeña macro, para que los eventos estén activos, por ejemplo: Sub ev()...

El problema puedes ser por el empaquetador, tal vez no está tomando debidamente el código para abrir el archivo PDF, ese sería un bug del empaquetador. Tendrías que buscar otra alternativa para abrir el PDF, desde VBa, volver a empaquetar y probar.