Revisión de Proyecto en Excel VBA Para el Sr. Dante

Dante gracias a las miles y miles de consultas en la que me ha ayudado cre que he podido terminar el pequeño proyecto personal en la que hemos trabajado pero antes de darlo por terminado me gustaría que hiciera un espacio en su tiempo y lo revisara y me comentara si hay algún detalle que allá pasado por alto o que se pueda mejorar, de ante mano le agradezco mucho el apoyo que me a brindado GRACIAS...

Este es el Archivo http://1drv.ms/1xaG6nm 

1 Respuesta

Respuesta
1

No puedo descargar el archivo, solamente lo puedo visualizar, para poder revisar las macros, puedes enviarme tu archivo.

Te anexo un par de de macros en el formulario "RegistroFactura", una para que solamente acepte números en la Factura, y la otra macro, es para que en Monto sólo acepte números y 2 decimales.

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)'Por.Dante Amor    If Not (KeyAscii >= 48 And KeyAscii <= 57) Then        KeyAscii = 0    End IfEnd SubPrivate Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)'Por.Dante Amor    pto = InStr(1, TextBox6, ".")    If KeyAscii = 46 Then        If pto > 0 Then KeyAscii = 0    ElseIf KeyAscii >= 48 And KeyAscii <= 57 Then        If Len(Mid(TextBox6, pto + 1)) = 2 And TextBox6.SelStart >= pto Then KeyAscii = 0    Else        KeyAscii = 0    End IfEnd Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cuadro de texto con 2 decimales (formato)

Tengo una consulta sobre poner formato con 2 decimales a un cuadro de texto, pero nada,, me explico,, tengo un formulario vb con excel,,, y un cuadro de texto llamado Pago y quisiera cuando ponga por ejemplo,, en el cuadro de texto 600...
2 respuestas

TextBox para solo números y introducción de 3 caracteres

En un TextBox para solo números y que me acepte solamente 3 caracteres, el código siguiente es lo que tengo Private Sub txtcli3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 '<--- El...
1 respuesta

Comboboxs dependientes en una hoja de excel

Tengo en una hoja de excel la Columna A perteneciente al Distribuidor1 con la siguiente informacion; Distribuidor1 Departamento1 Departamento2 Etc En la otra columna se encuentra el Distribuidor2, con el departamento 3, Departamento4, etc. Y así...
3 respuestas

Unificar código en un Modulo para VBA Excel

Tengo este código en 4 textBox 'Solo numeros, guion y cantidad caracteres. Puede separarse uno del otro Private Sub txtcli6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 '<--- El...
1 respuesta

Mejorar Macro que importe datos de otro libro-excel

Feliz Navidad Para todos ustedes: Por favor agradeceré ayudarme mejorando esta macro, es que no puedo solucionar. La macro que pongo a continuación realiza lo siguiente -Extrae datos de un libro que yo eligo, de una determinada hoja, en este caso de(...
1 respuesta

Mascara de entrada en Textbox

¿Es posible crear una máscara de entrada en un textbox? Por ejomplo, un textbox de fecha, que tenga que tomar el formato dd-mm-aa.
1 respuesta

Error 2147217900(80040e14) VB

Estoy tratando de conectar una tabla de access (Base de datos) en Tabla de excel (cálculo financiero) con VB, pero al momento de ejecutar me marca error Error 2147217900(80040e14) error de sintaxis en la cláusula from, de favor me puedes ayudar a...
1 respuesta

Textbox que solo acepte números y guiones

Mi pregunta es la siguiente, en un Botón de comando tengo el siguiente código : If Not IsNumeric(TextBox1) Then Dim mensaje As String mensaje = MsgBox( Valor ingresado NO es Numérico & Chr(13) & Ingrese nuevamente! , vbCritical, Title:= Ingresar...
3 respuestas