Excel - Do While con valores de textbox y celdas vba

Hola a todos,

Tengo un código en vba excel que busca que una vez se seleccione un valor en un comboBox, busque ese mismo valor en una hoja de cálculo y compare el valor que se ingresó a un textbox con el de la celda que se encuentra dos columnas a la derecha. Siempre que el valor del textbox sea mayor al de la celda, se debe sumar 24 a dicha celda y restar 1 a otra celda, hasta que ya sean iguales o el valor de la celda sea mayor al del textbox, se debe restar el valor del textbox con el que quedó la celda.

Esto es para el egreso de cajas o unidades en un inventario. La caja trae 24 unidades, si hay x cajas y unas pocas unidades sueltas y quiero egresar unas unidades pero con las que tengo sueltas no me alcanza, tendría que restarle a cajas, sumarle a unidades y ahí si restarle a unidades lo que quiero egresar. Diferencio entre los valores del combobox, ya que las unidades por caja de cada producto cambian de acuerdo a la presentación.

Al ejecutar el código, deja de funcionar excel y tengo que cerrarlo bruscamente, tal vez me puedan ayudar. Gracias.

El código que llevo, con respecto a esa parte, se muestra a continuación:

Do While True
producto = 4
If (Worksheets("PRODUCTOS").Cells(producto, 1).Text = (Me.ComboBox1.Text)) Then Exit Do
producto = producto + 1

Loop

If (ComboBox1 = "Vinagre Blanco 500 ml" Or ComboBox1 = "Vinagre Rojo 500 ml" Or ComboBox1 = "Vinagre Frutas" Or ComboBox1 = "Vinagre Limón" Or ComboBox1 = "Vinagre Manzana 500 ml" Or ComboBox1 = "Multiusos 500 ml" Or ComboBox1 = "Vinagre Blanco 900 ml" Or ComboBox1 = "Vinagre Rojo 900 ml") Then

Do While True

If (Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2).Value < TextBox10.Value) Then Exit Do

Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 1).Value = Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 1).Value - 1
Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2).Value = Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2).Value + 24

Loop
Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2) = Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2) - TextBox10.Value

If (Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2) >= TextBox10.Value) Then
Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2) = Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 2) - TextBox10.Value
Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 1) = Worksheets("PRODUCTOS").Cells(producto, 1).Offset(0, 1) - TextBox8.Value
End If


End If

sin mucho análisis veo que estás usando un bucle infinito: Do While True ... Loop
seguramente la única condición de salida que pusiste no se cumple jamás y por eso se cuelga excel...
deberías mejorar el código poniendo otra condición de salida del bucle o revisar tu lógica...

El primer bucle esta mal planteado, esta es la forma correca:


O si lo prefieres


Saludos.
\\//_

Muchas gracias por el aporte, sin embargo hasta esa parte me funciona muy bien, el problema es en el siguiente While, se queda eternamente sumando 24 y restando 1 a las celdas, como si no volviera a evaluar para darse cuenta que ya el valor que tengo en la celda es mayor a mi textbox y puede salir del bucle. No sé que error pueda tener, ya lo intenté con Do While, Do While True, Do until, y el problema es el mismo, las condición para salir me parece que está bien y no doy con el error.