Como hacer que las 2 instrucciones del código funcionen en el Useform ?
Tengo este código en un campo de texto para que los datos en otro campo de texto sea el mismo de forma automática:
Private Sub textruta_exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.Text = textruta End Sub
Pero al hacer que el campo textruta obtenga los datos de forma automática según lo que se seleccione en el combobox con el siguiente código, ya no funciona la primera instrucción para que TextBox4 sea igual a textruta.
Private Sub combocliente_Change()
Set h = Sheets("data")
Set b = h.Columns("H").Find(combocliente.Value, LookAt:=xlWhole)
If Not b Is Nothing Then
textruta.Value = h.Cells(b.Row, "I")
End If
End Sub
1 Respuesta
Respuesta de Daniel Espino
1
El problema es que tu evento es "textruta_exit" y al hacer el cambiio no estas entrando en textruta solo estas cambiando el valor, lo segundo es no se por que te comlicas en hacer dos proceso cuando en el segundo puede quedar perfectamente:
Private Sub combocliente_Change()
Set h = Sheets("data")
Set b = h.Columns("H").Find(combocliente.Value, LookAt:=xlWhole)
If Not b Is Nothing Then
textruta.Value = h.Cells(b.Row, "I")
TextBox4.Text = h.Cells(b.Row, "I")
End If
End Sub
