Private Sub ComboBoxDescripcion_Change()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Listado_Precios").Activate
Cells(ComboBoxDescripcion.ListIndex + 2, 1).Select
TextBoxItem = ActiveCell.Offset(0, 1)
TextBoxCantidad = ActiveCell.Offset(0, 2)
TextBoxUM = ActiveCell.Offset(0, 3)
TextBoxPrecioU = ActiveCell.Offset(0, 4)
TextBoxDTO = ActiveCell.Offset(0, 5)
TextBoxICO = ActiveCell.Offset(0, 6)
TextBoxIVA = ActiveCell.Offset(0, 7)
End Sub
Private Sub ComboBoxDescripcion_Enter()
Application.ScreenUpdating = False
ComboBoxDescripcion.Clear
Sheets("Listado_Precios").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ComboBoxDescripcion.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Private Sub CommandButtonACEPTAR_Click()
Application.ScreenUpdating = False
Sheets("Orden_de_Compra").Activate
'Al cambiar el rango a una celda diferente de la que lanzaba el IngresoItem dejo de darme el error
Range("c11").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell = ComboBoxDescripcion
ActiveCell.Offset(0, -1) = TextBoxItem
ActiveCell.Offset(0, 1) = TextBoxCantidad
ActiveCell.Offset(0, 2) = TextBoxUM
ActiveCell.Offset(0, 3) = TextBoxPrecioU
ActiveCell.Offset(0, 4) = TextBoxDTO
ActiveCell.Offset(0, 5) = TextBoxICO
ActiveCell.Offset(0, 6) = TextBoxIVA
ComboBoxDescripcion.Clear
TextBoxItem = ""
TextBoxCantidad = ""
TextBoxUM = ""
TextBoxPrecioU = ""
TextBoxDTO = ""
TextBoxICO = ""
TextBoxIVA = ""
IngresoItem.Hide
'Sheets("Orden_de_Compra").Activate
End Sub
Private Sub UserForm_Click()
End Sub
este es el código de UF la verdad gracias a tu respuesta pues cambie la linea que comento arriba y no me sigue dando problema seguiré con el proyecto a ver si consigo q me salga todo como quiero
gracias por tu tiempo