Como puedo enlazar un comcobox con un Textbox y guardar los valores de ambos en hoja y columnas especificas
¿Cómo están? Disculpa, espero que puedan ayudarme en lo siguiente; tengo este código en el cual presenta error en lo que está en negrita. En este quisiera que se pueda seleccionar el lote del producto en el combobox llamado "LOTE2" y se refleje el nombre del producto en el TextBox1 basado en el lote seleccionado en el combobox llamado "LOTE2".
Private Sub GUARDAR2_Click()
Dim ContFila As Long
Dim hoja As Worksheet
Set hoja = Worksheets(4)
ContFila = hoja.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row
hoja.Cells(ContFila, 2).Value = FECHA2.Value
hoja.Cells(ContFila, 3).Value = Me.ComboBox1.Value
hoja.Cells(ContFila, 4).Value = Me.TextBox1.Value
hoja.Cells(ContFila, 5).Value = Me.AREA2.Value
hoja.Cells(ContFila, 6).Value = Me.CANTIDAD2.Value
hoja.Cells(ContFila, 7).Value = Me.UNIDAD2.Value
hoja.Cells(ContFila, 8).Value = Me.RECIBE.Value
hoja.Cells(ContFila, 13).Value = Me.OBSERVA2.Value
Rem baciar formulario
Me.ComboBox1.Value = ""
Me.AREA2.Value = ""
Me.TextBox1.Value = ""
Me.CANTIDAD2.Value = ""
Me.UNIDAD2.Value = ""
Me.RECIBE.Value = ""
Me.OBSERVA2.Value = ""
FECHA2.SetFocus
End Sub
Private Sub GUARDAR1_Click()
Dim ContFila As Long
Dim hoja As Worksheet
Set hoja = Worksheets(3)
ContFila = hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
hoja.Cells(ContFila, 1).Value = FECHA1.Value
hoja.Cells(ContFila, 2).Value = Me.PROVEDOR1.Value
hoja.Cells(ContFila, 3).Value = Me.FACTURA1.Value
hoja.Cells(ContFila, 4).Value = Me.CONTROL1.Value
hoja.Cells(ContFila, 5).Value = Me.PRODUCTO1.Value
hoja.Cells(ContFila, 7).Value = Me.CANTIDAD1.Value
hoja.Cells(ContFila, 8).Value = Me.UNIDAD1.Value
hoja.Cells(ContFila, 9).Value = Me.PRECIO1.Value
hoja.Cells(ContFila, 13).Value = Me.OBSERV1.Value
Rem baciar formulario
Me.PROVEDOR1.Value = ""
Me.FACTURA1.Value = ""
Me.CONTROL1.Value = ""
Me.PRODUCTO1.Value = ""
Me.CANTIDAD1.Value = ""
Me.UNIDAD1.Value = ""
Me.PRECIO1.Value = ""
Me.OBSERV1.Value = ""
FECHA1.SetFocus
End Sub
Private Sub SALIR1_Click()
Unload Me
End Sub
Private Sub SALIR2_Click()
Unload Me
End Sub
Private Sub TextBox1_change()
On Error Resume Next
LOTE2.Value = WorksheetFunction.VLookup(Val(TextBox1.Text), Range("B:C"), 2, 0)
If Err.Number > 0 Then LOTE2.Value = Empty
On Error GoTo 0
End Sub
Anexo el formulario en ejecución: