rsancho01

rsancho01

 Nicaragua @rsancho01 desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Buena" la respuesta

Textbox en userform

respondió: Solo modifica un poco el código: En el evento AfterUpdate del Textbox del Código: Set N = Sheets("Hoja de Datos").Range("A:A").Find(TextBox1,,,xlWhole) If Not N Is Nothing Then TextBox2 = N.Offset(0, 1) Else TextBox1.SetFocus MsgBox("El Codigo " &...
Ha valorado "Excelente" la respuesta

Textbox en userform

respondió: En el evento AfterUpdate del Textbox del Código: Set N = Sheets("Hoja de Datos").Range("A:A").Find(TextBox1,,,xlWhole) If Not N Is Nothing Then TextBox2 = N.Offset(0, 1) Else MsgBox("El Codigo " & TextBox1 & " no se ha encontrado!") Exit Sub End If
Ha empezado a seguir a
Ha empezado a seguir a