Textbox (Responder y Cerrar)

Buenos días, deseo que alguien me ayude, resulta que tengo un useform donde solo tengo una pregunta en un textbox y deseo que cuando se responda ubique la repuesta en la fila 8, columna 14 de la hoja1 y se cierre. No quiero usar ningún botón para hacerlo así tengo el userform:
Va al Libro S/N: /_____________/

1 respuesta

Respuesta
1
¿Tendrás algún botón de Aceptar o solo el textbox?
Sdos
Elsa
Hola Elsa, gracias por responder, eso es lo que no quiero, colocar un botón, lo que quiero es que al responder en el Textbox1, ubique la respuesta en donde le indico y se cierre, aquí te muestro lo que he hecho, si corre pero no me esta cerrando el useform.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("HistorialFact").Select
Dim fila As Integer
fila = 8
While Cells(fila, 1) <> Empty
fila = fila + 1
Wend
If KeyCode = vbKeyReturn Then
Cells(fila, 14) = UCase(TextBox1.Value)
End If
TextBox1 = Empty
TextBox1.SetFocus
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Dibujá un 2do textbox y mantenelo visible pero debajo del primero, es solo para que el control se 'salga' del textbox1
La rutina sería esta:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Hoja1").Select
Dim fila As Integer
fila = 8
While Cells(fila, 1) <> Empty
fila = fila + 1
Wend
Cells(fila, 14) = UCase(TextBox1.Value)
Unload Me
End Sub
PD) Te recomiendo mi manual de Formularios

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Macro compara datos y copiar en otra hoja

Nnecesito una macro Buscar datos de hoja1 celda b2 en hoja2 columna b si es igual, guardar datos en variable, después compara datos de hoja1 c2 con hoja2 columna d si es igual copiar datos ubicado en columna b en hoja1 celda a2 si los datos no son...
1 respuesta

Macro para bajar renglones

Me podrías ayudar con una macro que realize la siguiente función: Tengo un useform que pone datos en la celdas, y le hice un botón de aceptar, lo que quiero que haga ese botón es que me pocisione en la siguiente celda, por ejemplo: Escribo datos en...
2 respuestas

Sumar valores de una columna filtrados por un combobox

Ando en busqueda de ayuda, tengo base de datos: "N°Fractura columna A, Cliente Columna B, Abono Columna C", En donde un cliente a hecho varios abonos a una factura determinada, es decir hay varios registros con el mismo numero de factura y cliente,...
1 respuesta

Macro para que no se repitan los códigos

Estoy realizando un formulario en excel con el editor de Visual Basic mi formulario me permite el ingreso de datos que se guardan en una hoja de excel entre los datos tengo "Código, nombre, dirección, teléfono, cargo... Etc" cosas por lo parecido...
2 respuestas

Como mirar la información de una celdaen un textbox

Soy yo de nuevo La situación es la siguiente: estoy trabajando en un formulario "Userform1", tengo un textbox llamado "textbox7_Change()" y una hoja llamada "VENTA", en la hoja hay una celda "c9" que tiene una fórmula. Deseo que el al momento de...
1 respuesta