Actualizar caption de label con valor de celda
Tengo un userform que copia los valores introducidos en los textbox a celdas de una hoja. El problema es que la introducir un dato en el textbox3, la hoja devuelve un valor (nombre de producto) en otra celda de esa hoja. Necesito que antes de introducir el valor en el texbox4, el usuario vea ese nombre de producto en un label del userform para comprobar que el valor introducido en textbox3 es correcto antes de seguir introduciendo datos y ejecutar la macro "ENTRADA". Adjunto el código del userform por si queda más claro:
Private Sub CommandButton1_Click()
Application.Run "ENTRADA"
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
Unload Me
End Sub
Private Sub TextBox1_Change()
Range("B4") = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Range("A1") = TextBox2.Value
End Sub
Private Sub TextBox3_Change()
Range("B1") = TextBox3.Value
End Sub
Private Sub TextBox4_Change()
Range("E1") = TextBox4.Value
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub CommandButton1_Click()
Application.Run "ENTRADA"
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
Unload Me
End Sub
Private Sub TextBox1_Change()
Range("B4") = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Range("A1") = TextBox2.Value
End Sub
Private Sub TextBox3_Change()
Range("B1") = TextBox3.Value
End Sub
Private Sub TextBox4_Change()
Range("E1") = TextBox4.Value
End Sub
Private Sub UserForm_Click()
End Sub
1 Respuesta
Respuesta de Elsa Matilde
1