Luis Mondelo

Ok, te preparo un ejemplo y te lo mando Feliz año nuevo

Ahora te mando un ejemplo

Mándame el archivo con el ejemplo de datos para poder ayudarte [email protected]

Supongo que tendrás un botón para pasar los datos del form a la hoja, pues una vez pasados los datos vuelve a pintar la fecha y la hoja en sus textbox, como en el siguiente ejemplo: Private Sub CommandButton1_Click() '...................

En el siguiente enlace te dejo un archivo con un ejemplo explicado http://share.cx.com/9dh3dG No olvides finalizar la consulta

Prueba con estas sentencias Private Sub CommandButton1_Click() ListBox1.AddItem CDbl(TextBox2) + (CDbl(TextBox2) * 0.1) ListBox1.List(ListBox1.ListCount- 1, 1) = CDbl(TextBox3) + (CDbl(TextBox3) * 0.1) ListBox1.List(ListBox1.ListCount- 1, 1) =...

Mándame el archivo con el ejemplo detallado para poder ayudarte [email protected]

¿Hay qué sumar la celda c17 de todas las pestañas de cada archivo?

Utiliza este evento dentro del objeto ThisWorkbook y será imposible mandar algo por impresora Private Sub Workbook_BeforePrint(Cancel As Boolean) MsgBox "No está permitido imprimir el documento" Cancel = True End Sub no olvides finalizar la consulta

Usa mejor esta fórmula: ¡ATENCION! Es una fórmula matricial para poder aceptarla tendrás que pulsar CONTROL + SHIFT + ENTER =SUMA(SI((DERECHA(B1:B5000;2)="08");1)) recuerda finalizar la consulta