Actividad pública reciente
Ha valorado "Buena" la respuesta
Textbox en userform
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
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
