inocampo

Sub Formulario Application.ScreenUpdatin =False Sheets("Hoja1").ShowDatafom End Sub Este código lo aplicas a un botón de la hoja y te abrirá el formulario automático de Excel para la hoja, para que funcione debes tener la información en la celda A1....

Si me envías el archivo de pronto podemos hacer algo, si no te lo hago saber. [email protected]

mi e-mail es [email protected] Es mi especialidad los filtros

Para que tu texto box no te reciba si no números debes ingresar esta rutina. Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Text) And _ TextBox1.Text <> "" Then Beep MsgBox "Campo numerico" TextBox1.Text = "" TextBox1.SetFocus End If End Sub...

Necesito saber como esta estructurado tu programa para darte una solución, por esa razón necesito el archivo

No se si ya tienes respuesta, podríamos hacer algo muy sencillo, puedes excribirme a [email protected], si me escribes puedo invertir tiempo en algo sencillo, [email protected]

No te envíe el e-mail, [email protected]