Pasar de textbox a textbox con enter y evitar que se el textbox se quede vacío.
Publicado por ALEJANDRO (4 intervenciones) el 05/09/2017 23:59:18
Buenas tardes, estoy tratando de realizar un programa el cual al dar enter, si no se cumple una función del textbox me ponga el cursor en el mismo textbox (en este caso que busque en el libro "Base de Datos" en la celda A), borre la información que hay en el mismo y diga un mensaje de error o que, al coincidir con el dato que busco en el libro "Base de Datos" deshabilite el textbox 2 y coloque el cursor en ese textbox.
Ya funciona si encuentra el Numero de Parte, pero si no lo encuentra solo envía el mensaje y coloca el cursor en el textbox2 y también si solo oprimo enter se mueve hacia el textbox2. sin enviarme mensaje.
Adjunto código:
Ya funciona si encuentra el Numero de Parte, pero si no lo encuentra solo envía el mensaje y coloca el cursor en el textbox2 y también si solo oprimo enter se mueve hacia el textbox2. sin enviarme mensaje.
Adjunto código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Dim npc, npc_buscar As StringDim fila As Integer
Sheets("Base de Datos").Select
fila = 2 npc = TextBox1Do While npc_buscar <> npc
fila = fila + 1
npc_buscar = Range("A" & fila).Value
CommandButton6.Enabled = True
If npc_buscar = Empty ThenCommandButton6.Enabled = False
MsgBox "Número de Parte No Existe"Exit Do
End If
Loop
'Enviar a textbox valor de tabla excel
TextBox15 = Range("i" & fila).Value
TextBox16 = Range("j" & fila).Value
TextBox17 = Range("c" & fila).Value
TextBox18 = Range("h" & fila).Value
TextBox20 = Range("d" & fila).Value
TextBox21 = Range("g" & fila).Value
TextBox22 = Range("b" & fila).Value
TextBox25 = Range("e" & fila).Value
TextBox26 = Range("f" & fila).Value
TextBox2.Enabled = True
Call TextBox2.SetFocusEnd If
End Sub
Valora esta pregunta
0
